/* GCC BASILYS GENERATED FILE warmelt-outobj-3.c - DO NOT EDIT */ /* generated on Tue May 5 15:51:20 2009 */ #include "run-basilys.h" /**** warmelt-outobj-3.c declarations ****/ #define basilys_HAS_INITIAL_ENVIRONMENT 1 /**!!** Copyright 2008, 2009 Free Software Foundation, Inc. Contributed by Basile Starynkevitch This file is part of GCC. GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GCC; see the file COPYING3. If not see . **!!**/ static basilys_ptr_t rout_1_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_OUTPUCOD_OBJLABELINSTR(basilysclosure_ptr_t 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_OBJGOTOINSTR(basilysclosure_ptr_t 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_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_56_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_57_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_58_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_59_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_60_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_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_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_63_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_64_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_65_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_66_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_67_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_68_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_69_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_70_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_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_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_73_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_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_75_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_76_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_77_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_78_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_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_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_84_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_85_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_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_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_91_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_92_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_93_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_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_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_96_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_97_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_98_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_99_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_100_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_101_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_102_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_103_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_104_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_105_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_106_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_107_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_108_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_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_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_111_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_112_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_113_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_114_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_115_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_116_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_117_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_118_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_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_120_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_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_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_123_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_124_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_125_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_126_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_127_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_128_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_129_COMPILE_ONE_OR_MORE_FILES(basilysclosure_ptr_t 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_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_131_RUNFILE_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_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_133_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_134_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_135_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_136_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.melt:36:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:36:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:37:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:37:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:37:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:37:/ apply.arg"); argtab[0].bp_cstring = "outdeclinit_root recv"; BASILYS_LOCATION("warmelt-outobj.melt:37:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:37:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:37:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:37:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:37:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:38:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:38:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:38:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:38:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:38:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:38:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outdeclinit_root unimplemented catchall"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:38:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:38:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:36:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V6*/ curfptr[4];; BASILYS_LOCATION("warmelt-outobj.melt:36:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:36:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:43:/ getarg"); /*_.OBIELEM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt: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.melt:43:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:44:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:44:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:44:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:44:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:44:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obelem"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:44:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:44:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:44:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:45:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt:47:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:47:/ block"); /*block*/{ /*_#IS_STRING__L3*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.CNAM__V9*/ curfptr[8])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:47:/ cond"); /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:47:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:47:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:47:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cnam"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:47:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:47:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:47:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:48:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:48:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:48:/ cond"); /*cond*/ if (/*_.OLOCVAR__V8*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:48:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:48:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:48:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check olocvar"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:48:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:48:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:49:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:49:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:49:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:45:/ clear"); /*clear*/ /*_.OLOCVAR__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:45:/ clear"); /*clear*/ /*_.CNAM__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:45:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:45:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:45:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:43:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.melt:43:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:43:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:54:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt: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.melt:54:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:55:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:55:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:55:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:55:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_root recv"; BASILYS_LOCATION("warmelt-outobj.melt:55:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:55:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:55:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:55:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:55:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:56:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:56:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:56:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:56:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:56:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:56:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_root unimplemented catchall"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:56:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:56:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:54:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.melt:54:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:54:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:62:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt: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.melt:62:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:63:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:63:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:63:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:63:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_root recv"; BASILYS_LOCATION("warmelt-outobj.melt:63:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:63:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:63:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:63:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:63:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:64:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.melt:64:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-outobj.melt:62:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RETURN___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.melt:62:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:62:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:69:/ getarg"); /*_.OBPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt:69:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L2*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.OBPR__V2*/ curfptr[1])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-outobj.melt:71:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:71:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:71:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[2])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ")")); BASILYS_LOCATION("warmelt-outobj.melt:71:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:71:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:71:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:76:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:76:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:76:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "((void*)(BASILYSG(")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ")))")); BASILYS_LOCATION("warmelt-outobj.melt:76:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:76:/ clear"); /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:76:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:76:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:82:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:82:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:82:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:82:/ apply.arg"); argtab[0].bp_cstring = "bad obpredef"; BASILYS_LOCATION("warmelt-outobj.melt:82:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; BASILYS_LOCATION("warmelt-outobj.melt:82:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:82:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:82:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:82:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:83:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:83:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:83:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:83:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:83:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:83:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "invalid obpredef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:83:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:83:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:81:/ block"); /*block*/{ /*_.PROGN___V11*/ curfptr[9] = /*_.IFCPP___V9*/ curfptr[7];;} ; /*_.IFELSE___V5*/ curfptr[4] = /*_.PROGN___V11*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:76:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:76:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:76:/ clear"); /*clear*/ /*_.PROGN___V11*/ curfptr[9] = 0 ;} ; } ; /*_.IFELSE___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:71:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:71:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:69:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V4*/ curfptr[3];; BASILYS_LOCATION("warmelt-outobj.melt:69:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:69:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:88:/ getarg"); /*_.OBPRED__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt: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.melt:88:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:89:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:89:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:89:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:89:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:89:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obpredef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:89:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:89:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:89:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:90:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:91:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:91:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:90:/ clear"); /*clear*/ /*_.OBPR__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:90:/ clear"); /*clear*/ /*_.OUTPUT_PREDEF__V9*/ curfptr[8] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:88:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.melt:88:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:88:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:95:/ getarg"); /*_.OBNIL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt: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.melt:95:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:96:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:96:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:96:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:96:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:96:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obnil"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:96:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:96:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:96:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(/*nil*/NULL)")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:101:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:101:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V4*/ curfptr[3]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:101:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:111:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:111:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:112:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:112:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:112:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:112:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:112:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitobject check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:112:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:112:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:112:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:113:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:113:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:113:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:113:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitobject recv"; BASILYS_LOCATION("warmelt-outobj.melt:113:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:113:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:113:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:113:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:113:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:114:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt: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.melt: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.melt: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.melt:120:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:120:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:120:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:120:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:120:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check odata"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:120:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:120:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:120:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:121:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt: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.melt: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.melt:126:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:126:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:126:/ apply.arg"); argtab[1].bp_long = 1; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*iniobj ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:131:/ cond"); /*cond*/ if (/*_.OIOPREDEF__V12*/ curfptr[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:131:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:131:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "if (")); BASILYS_LOCATION("warmelt-outobj.melt:134:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:134:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " != (basilys_ptr_t)&cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") {")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "basilys_assertmsg(\"check.predef length ")); BASILYS_LOCATION("warmelt-outobj.melt:140:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:140:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "\", basilys_object_length((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:142:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:142:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ")) >= ")); /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.ODSLOTS__V17*/ curfptr[16])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L4*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "};")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); /*_.THE_NULL__V23*/ curfptr[22] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:149:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:149:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V23*/ curfptr[22]; BASILYS_LOCATION("warmelt-outobj.melt:149:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " = ")); BASILYS_LOCATION("warmelt-outobj.melt:151:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:151:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:132:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:131:/ clear"); /*clear*/ /*_.OUTPUT_PREDEF__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:131:/ clear"); /*clear*/ /*_.OUTPUT_PREDEF__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:131:/ clear"); /*clear*/ /*_.OUTPUT_PREDEF__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:131:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:131:/ clear"); /*clear*/ /*_.THE_NULL__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:131:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:131:/ clear"); /*clear*/ /*_.OUTPUT_PREDEF__V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:131:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:131:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "if (!")); /*_.THE_NULL__V26*/ curfptr[19] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:158:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:158:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V26*/ curfptr[19]; BASILYS_LOCATION("warmelt-outobj.melt:158:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); /*_.THE_NULL__V28*/ curfptr[21] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:160:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:160:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V28*/ curfptr[21]; BASILYS_LOCATION("warmelt-outobj.melt:160:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:155:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:131:/ clear"); /*clear*/ /*_.THE_NULL__V26*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:131:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V27*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:131:/ clear"); /*clear*/ /*_.THE_NULL__V28*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:131:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V29*/ curfptr[22] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " basilys_assertmsg(\"iniobj checkdiscr ")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "\", NULL != (void*)")); /*_.THE_NULL__V30*/ curfptr[23] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:170:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:170:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V30*/ curfptr[23]; BASILYS_LOCATION("warmelt-outobj.melt:170:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".obj_class = (basilysobject_ptr_t)(")); /*_.THE_NULL__V32*/ curfptr[19] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:176:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:176:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V32*/ curfptr[19]; BASILYS_LOCATION("warmelt-outobj.melt:176:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:179:/ cond"); /*cond*/ if (/*_.ODOBNUM__V18*/ curfptr[17]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:179:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:179:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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.melt:184:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:184:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:184:/ block"); /*block*/{ /*_#GET_INT__L6*/ curfnum[5] = (basilys_get_int((basilys_ptr_t)(/*_.ODOBNUM__V18*/ curfptr[17])));; /*block*/{ basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L6*/ curfnum[5])); /*clear*/ /*_.IFELSE___V34*/ curfptr[21] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:184:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:184:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:186:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:186:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:186:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.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.melt:186:/ clear"); /*clear*/ /*_.NAMED_NAME__V36*/ curfptr[35] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:186:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:186:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:189:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:189:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:189:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:189:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitobject unexpected odobnum"; BASILYS_LOCATION("warmelt-outobj.melt:189:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; BASILYS_LOCATION("warmelt-outobj.melt:189:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:189:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:189:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:189:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:190:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:190:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:190:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:190:/ cond.then"); /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:190:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:190:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitobject unexpected odobnum"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:190:/ clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:190:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:188:/ block"); /*block*/{ /*_.PROGN___V41*/ curfptr[39] = /*_.IFCPP___V39*/ curfptr[37];;} ; /*_.IFELSE___V35*/ curfptr[22] = /*_.PROGN___V41*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:186:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:186:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:186:/ clear"); /*clear*/ /*_.PROGN___V41*/ curfptr[39] = 0 ;} ; } ; /*_.IFELSE___V34*/ curfptr[21] = /*_.IFELSE___V35*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:184:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:184:/ clear"); /*clear*/ /*_.IFELSE___V35*/ curfptr[22] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:180:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:179:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:179:/ clear"); /*clear*/ /*_.IFELSE___V34*/ curfptr[21] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L9*/ curfnum[7])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L10*/ curfnum[5])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "basilys_object_set_serial((basilysobject_ptr_t) (&cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "));")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_.ODLOC__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_.ODHASH__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_.ODSLOTS__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_.ODOBNUM__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_.THE_NULL__V30*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V31*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_.THE_NULL__V32*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V33*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_#GET_INT__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[5] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:114:/ clear"); /*clear*/ /*_.ODATA__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:114:/ clear"); /*clear*/ /*_.ODISCR__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:114:/ clear"); /*clear*/ /*_.ONAME__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:114:/ clear"); /*clear*/ /*_.OLOCVAR__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:114:/ clear"); /*clear*/ /*_.OIOPREDEF__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:114:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:111:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:231:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:231:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:232:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:232:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:232:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:232:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:232:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitpredef_objinitobject check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:232:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:232:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:232:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:233:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:233:/ block"); /*block*/{ /*_#IS_STRBUF__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) == OBMAG_STRBUF);; BASILYS_LOCATION("warmelt-outobj.melt:233:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:233:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:233:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:233:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitpredef_objinitobject check sbuf"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:233:/ clear"); /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:233:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:233:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:234:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:234:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:234:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:234:/ apply.arg"); argtab[0].bp_cstring = "outcinitpredef_objinitobject recv"; BASILYS_LOCATION("warmelt-outobj.melt:234:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:234:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:234:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:234:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:234:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt: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.melt: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.melt: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.melt:241:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:241:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:241:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:241:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:241:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check odata"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:241:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:241:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:241:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:242:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:242:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:242:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:242:/ apply.arg"); argtab[0].bp_cstring = "outcinitpredef_objinitobject oiopredef"; BASILYS_LOCATION("warmelt-outobj.melt:242:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:242:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:242:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:242:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:243:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:243:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:243:/ block"); /*block*/{ /*_.THE_NULL__V21*/ curfptr[20] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:243:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V21*/ curfptr[20];; BASILYS_LOCATION("warmelt-outobj.melt:243:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IF___V20*/ curfptr[18] = /*_.RETURN___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:243:/ clear"); /*clear*/ /*_.THE_NULL__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:243:/ clear"); /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt: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.melt:244:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:244:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:244:/ block"); /*block*/{ /*_.THE_NULL__V24*/ curfptr[21] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:244:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V24*/ curfptr[21];; BASILYS_LOCATION("warmelt-outobj.melt:244:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IF___V23*/ curfptr[20] = /*_.RETURN___V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:244:/ clear"); /*clear*/ /*_.THE_NULL__V24*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:244:/ clear"); /*clear*/ /*_.RETURN___V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:244:/ cond.else"); /*_.IF___V23*/ curfptr[20] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.melt:245:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:247:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:247:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:247:/ apply.arg"); argtab[1].bp_long = 1; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inipredef ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V13*/ curfptr[12]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.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.melt:254:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:254:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:254:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "if (!BASILYSG(")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V30*/ curfptr[29]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ")) BASILYSG(")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[30]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") = (basilys_ptr_t)&cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V13*/ curfptr[12]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "else {")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "BASILYSGIX(predefinited,")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V32*/ curfptr[31]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") = 1;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "fnotice(stderr, \"BASILYS: predefined %s already defined <%s:%d>\\n\", \"")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V33*/ curfptr[32]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "\", __FILE__, __LINE__);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "};")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:254:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:254:/ clear"); /*clear*/ /*_.NAMED_NAME__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:254:/ clear"); /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:254:/ clear"); /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:254:/ clear"); /*clear*/ /*_.NAMED_NAME__V33*/ curfptr[32] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:254:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:254:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L9*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-outobj.melt:276:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:276:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:276:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L10*/ curfnum[9])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L11*/ curfnum[10])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "] = (void*)&cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V13*/ curfptr[12]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "else {")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "predefinited[")); /*_#GET_INT__L12*/ curfnum[11] = (basilys_get_int((basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L12*/ curfnum[11])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "] = 1;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L13*/ curfnum[12])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ", __FILE__, __LINE__);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "};")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:276:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:276:/ clear"); /*clear*/ /*_#GET_INT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:276:/ clear"); /*clear*/ /*_#GET_INT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:276:/ clear"); /*clear*/ /*_#GET_INT__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:276:/ clear"); /*clear*/ /*_#GET_INT__L13*/ curfnum[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:276:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:276:/ block"); /*block*/{ /*_#NULL__L14*/ curfnum[9] = ((/*_.OIOPREDEF__V15*/ curfptr[14]) == NULL);; BASILYS_LOCATION("warmelt-outobj.melt:298:/ cond"); /*cond*/ if (/*_#NULL__L14*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:298:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:298:/ block"); /*block*/{ /*_.THE_NULL__V36*/ curfptr[31] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:299:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V36*/ curfptr[31];; BASILYS_LOCATION("warmelt-outobj.melt:299:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V35*/ curfptr[30] = /*_.RETURN___V37*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:298:/ clear"); /*clear*/ /*_.THE_NULL__V36*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:298:/ clear"); /*clear*/ /*_.RETURN___V37*/ curfptr[32] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:298:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:298:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:301:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:301:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:301:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:301:/ apply.arg"); argtab[0].bp_cstring = "outcinitpredef_objinitobject unexpected oiopredef"; BASILYS_LOCATION("warmelt-outobj.melt:301:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[10]; BASILYS_LOCATION("warmelt-outobj.melt:301:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:301:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:301:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:301:/ cppif.else"); /*_.IFCPP___V38*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:302:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:302:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:302:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:302:/ cond.then"); /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:302:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:302:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitpredef_objinitobject unexpected oiopredef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:302:/ clear"); /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:302:/ cppif.else"); /*_.IFCPP___V40*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:300:/ block"); /*block*/{ /*_.PROGN___V42*/ curfptr[40] = /*_.IFCPP___V40*/ curfptr[32];;} ; /*_.IFELSE___V35*/ curfptr[30] = /*_.PROGN___V42*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:298:/ clear"); /*clear*/ /*_.IFCPP___V38*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:298:/ clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:298:/ clear"); /*clear*/ /*_.PROGN___V42*/ curfptr[40] = 0 ;} ; } ; /*_.IFELSE___V34*/ curfptr[29] = /*_.IFELSE___V35*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:276:/ clear"); /*clear*/ /*_#NULL__L14*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:276:/ clear"); /*clear*/ /*_.IFELSE___V35*/ curfptr[30] = 0 ;} ; } ; /*_.IFELSE___V29*/ curfptr[28] = /*_.IFELSE___V34*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:254:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:254:/ clear"); /*clear*/ /*_.IFELSE___V34*/ curfptr[29] = 0 ;} ; } ; /*_.LET___V26*/ curfptr[21] = /*_.IFELSE___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:245:/ clear"); /*clear*/ /*_.ODLOC__V27*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:245:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:245:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:245:/ clear"); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V26*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_.ODATA__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_.ODISCR__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_.ONAME__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_.OLOCVAR__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_.OIOPREDEF__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_.IF___V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_.IF___V23*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:235:/ clear"); /*clear*/ /*_.LET___V26*/ curfptr[21] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:231:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-outobj.melt:231:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:231:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:231:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:231:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:311:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:311:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V4*/ curfptr[3]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:311:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:321:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:321:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:322:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:322:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:322:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:322:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:322:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitmultiple check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:322:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:322:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:322:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:323:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:323:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:323:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:323:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitmultiple recv"; BASILYS_LOCATION("warmelt-outobj.melt:323:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:323:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:323:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:323:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:323:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:324:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inimult ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:331:/ cond"); /*cond*/ if (/*_.OLOCVAR__V9*/ curfptr[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:331:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:331:/ block"); /*block*/{ /*_.THE_NULL__V10*/ curfptr[9] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:333:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:333:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V10*/ curfptr[9]; BASILYS_LOCATION("warmelt-outobj.melt:333:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:332:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:331:/ clear"); /*clear*/ /*_.THE_NULL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:331:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (basilysobject_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:342:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:342:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V13*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.melt:342:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".nbval = ")); /*_#GET_INT__L3*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:324:/ clear"); /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:324:/ clear"); /*clear*/ /*_.OLOCVAR__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:324:/ clear"); /*clear*/ /*_.OIE_DISCR__V12*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:324:/ clear"); /*clear*/ /*_.THE_NULL__V13*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:324:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:324:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[0] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:321:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:353:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:353:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.OIE_CNAME__V4*/ curfptr[3]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:353:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:362:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:362:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:363:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:363:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:363:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:363:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:363:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitclosure check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:363:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:363:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:363:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:364:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:364:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:364:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:364:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitclosure recv"; BASILYS_LOCATION("warmelt-outobj.melt:364:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:364:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:364:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:364:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:364:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:365:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*iniclos ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:372:/ cond"); /*cond*/ if (/*_.OLOCVAR__V9*/ curfptr[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:372:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:372:/ block"); /*block*/{ /*_.THE_NULL__V10*/ curfptr[9] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:375:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:375:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V10*/ curfptr[9]; BASILYS_LOCATION("warmelt-outobj.melt:375:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:373:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:372:/ clear"); /*clear*/ /*_.THE_NULL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:372:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (basilysobject_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:384:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:384:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V13*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.melt:384:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".nbval = ")); /*_#GET_INT__L3*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:365:/ clear"); /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:365:/ clear"); /*clear*/ /*_.OLOCVAR__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:365:/ clear"); /*clear*/ /*_.OIE_DISCR__V12*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:365:/ clear"); /*clear*/ /*_.THE_NULL__V13*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:365:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:365:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[0] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:362:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:397:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:397:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.OIE_CNAME__V4*/ curfptr[3]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:397:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:407:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:407:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:408:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:408:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:408:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:408:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:408:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitroutine check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:408:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:408:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:408:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:409:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:409:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:409:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:409:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitroutine recv"; BASILYS_LOCATION("warmelt-outobj.melt:409:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:409:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:409:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:409:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:409:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:410:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt: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.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inirout ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:419:/ cond"); /*cond*/ if (/*_.OLOCVAR__V10*/ curfptr[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:419:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:419:/ block"); /*block*/{ /*_.THE_NULL__V12*/ curfptr[11] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:422:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:422:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V12*/ curfptr[11]; BASILYS_LOCATION("warmelt-outobj.melt:422:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:420:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:419:/ clear"); /*clear*/ /*_.THE_NULL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:419:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (basilysobject_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:431:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:431:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V15*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:431:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " strncpy(cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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.melt:437:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:437:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:437:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:438:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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.melt:441:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:441:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:441:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:441:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitroutine ndatr"; BASILYS_LOCATION("warmelt-outobj.melt:441:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.melt:441:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:441:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:441:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:441:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:442:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:442:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:442:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:442:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitroutine dpro"; BASILYS_LOCATION("warmelt-outobj.melt:442:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.melt:442:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:442:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:442:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:443:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:443:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:443:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V23*/ curfptr[21]))); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:445:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:445:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:445:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:446:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:447:/ cond"); /*cond*/ if (/*_.MIXINT_VAL__V25*/ curfptr[24]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:447:/ cond.then"); /*_.LOCFIL__V26*/ curfptr[25] = /*_.MIXINT_VAL__V25*/ curfptr[24];; } else {BASILYS_LOCATION("warmelt-outobj.melt:447:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:447:/ clear"); /*clear*/ /*_.MIXLOC_VAL__V27*/ curfptr[26] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " @")); basilysgc_add_strbuf_cstr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.LOCFIL__V26*/ curfptr[25]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ":")); /*_#GET_INT__L8*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.DLOC__V24*/ curfptr[21])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L8*/ curfnum[7])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:446:/ clear"); /*clear*/ /*_.DLOC__V24*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:446:/ clear"); /*clear*/ /*_.MIXINT_VAL__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:446:/ clear"); /*clear*/ /*_.LOCFIL__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:446:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:438:/ clear"); /*clear*/ /*_.DNAM__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:438:/ clear"); /*clear*/ /*_.DPRO__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:438:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:438:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:438:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:438:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:437:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:437:/ block"); /*block*/{ basilysgc_add_strbuf_cstr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); /*epilog*/} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "\", BASILYS_ROUTDESCR_LEN - 1);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".nbval = ")); /*_#GET_INT__L9*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L9*/ curfnum[7])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:465:/ cond"); /*cond*/ if (/*_.IPRO__V9*/ curfptr[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:465:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:465:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:467:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:467:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:467:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:467:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitroutine ipro"; BASILYS_LOCATION("warmelt-outobj.melt:467:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.melt:467:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:467:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:467:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:467:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:468:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:468:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:468:/ cond.then"); /*_.IFELSE___V31*/ curfptr[25] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:468:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:468:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ipro"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:468:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:468:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:468:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "BASILYS_ROUTINE_SET_ROUTCODE(&cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ", ")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V32*/ curfptr[16]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:466:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:465:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:465:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:465:/ clear"); /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:465:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:465:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:477:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:477:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:477:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:477:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitroutine (noipro) recv"; BASILYS_LOCATION("warmelt-outobj.melt:477:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.melt:477:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:477:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:477:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:477:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "#warning no procedure in objinitroutine ")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:476:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:465:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[17] = 0 ;} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:410:/ clear"); /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:410:/ clear"); /*clear*/ /*_.IPRO__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:410:/ clear"); /*clear*/ /*_.OLOCVAR__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:410:/ clear"); /*clear*/ /*_.NDATR__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:410:/ clear"); /*clear*/ /*_.OIE_DISCR__V14*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:410:/ clear"); /*clear*/ /*_.THE_NULL__V15*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:410:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:410:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:410:/ clear"); /*clear*/ /*_#GET_INT__L9*/ curfnum[7] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:407:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:486:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:486:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V4*/ curfptr[3]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:486:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:496:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:496:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:497:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:497:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:497:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:497:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:497:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitstring check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__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.melt:497:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:497:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:497:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:498:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:498:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:498:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:498:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitstring recv"; BASILYS_LOCATION("warmelt-outobj.melt:498:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:498:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:498:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:498:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:498:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:499:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inistring ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:506:/ cond"); /*cond*/ if (/*_.OLOCVAR__V9*/ curfptr[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:506:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:506:/ block"); /*block*/{ /*_.THE_NULL__V10*/ curfptr[9] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:508:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:508:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V10*/ curfptr[9]; BASILYS_LOCATION("warmelt-outobj.melt:508:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:507:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:506:/ clear"); /*clear*/ /*_.THE_NULL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:506:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (basilysobject_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt: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.melt:517:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:517:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V13*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.melt:517:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " strncpy(cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".val, \"")); BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.OIE_DATA__V15*/ curfptr[14]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "\", sizeof(cdat->")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".val)-1);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:499:/ clear"); /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:499:/ clear"); /*clear*/ /*_.OLOCVAR__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:499:/ clear"); /*clear*/ /*_.OIE_DISCR__V12*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:499:/ clear"); /*clear*/ /*_.THE_NULL__V13*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:499:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:499:/ clear"); /*clear*/ /*_.OIE_DATA__V15*/ curfptr[14] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:496:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt: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.melt:532:/ getarg"); /*_.ANY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:532:/ 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.melt:532:/ 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.melt:532:/ 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.melt:532:/ block"); /*block*/{ basilys_puts(stderr,( "* output_c_code unimplemented reciever discriminator ")); BASILYS_LOCATION("warmelt-outobj.melt:535:/ block"); /*block*/{ /*_.DISCR__V5*/ curfptr[4] = (basilys_discr((basilys_ptr_t)(/*_.ANY__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-outobj.melt:535:/ 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.melt:535:/ clear"); /*clear*/ /*_.DISCR__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:535:/ clear"); /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ;} ; basilys_newlineflush(stderr); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:537:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:537:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:537:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:537:/ cond.then"); /*_.IFELSE___V8*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:537:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:537:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "@@ outpucod_anydiscr not able to output"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(537)?(537):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[4] = /*_.IFELSE___V8*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:537:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:537:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:532:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V7*/ curfptr[4];; BASILYS_LOCATION("warmelt-outobj.melt:532:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:532:/ 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.melt:541:/ getarg"); /*_.NUL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:541:/ 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.melt:541:/ 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.melt:541:/ 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.melt:541:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.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.melt:547:/ getarg"); /*_.ANYR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:547:/ 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.melt:547:/ 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.melt:547:/ 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.melt:547:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:548:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:548:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:548:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:548:/ apply.arg"); argtab[0].bp_cstring = "outpucod_catchall_root anyr"; BASILYS_LOCATION("warmelt-outobj.melt:548:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:548:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:548:/ apply.arg"); argtab[3].bp_long = 548; /*_.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.melt:548:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:548:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:548:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:549:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:549:/ 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.melt:551:/ block"); /*block*/{ /*_.DISCR__V8*/ curfptr[7] = (basilys_discr((basilys_ptr_t)(/*_.ANYR__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-outobj.melt:551:/ 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.melt:551:/ clear"); /*clear*/ /*_.DISCR__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:551:/ clear"); /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;} ; basilys_newlineflush(stderr); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:553:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:553:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:553:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:553:/ cond.then"); /*_.IFELSE___V11*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:553:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:553:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "@@ outpucod_catchall_root not able to output"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(553)?(553):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[7] = /*_.IFELSE___V11*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:553:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:553:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:547:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V10*/ curfptr[7];; BASILYS_LOCATION("warmelt-outobj.melt:547:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:547:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:547:/ clear"); /*clear*/ /*_.DISPLAYDEBUGMSG__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:547:/ 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 6 void* varptr[6]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ const char* loc_CTYPE_CSTRING__o0; const char* loc_CTYPE_CSTRING__o1; long _spare_; } *framptr_=0, curfram__; if (BASILYS_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_RAW_LOCATION", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.melt:560:/ getarg"); /*_.LOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:560:/ 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.melt:560:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.melt:560:/ 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.melt:560:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:561:/ cond"); /*cond*/ if (/*_.LOC__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:561:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:561:/ block"); /*block*/{ basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#ifndef MELTGCC_NOLINENUMBERING")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.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.melt:566:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:566:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:566:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#line ")); /*_#GET_INT__L3*/ curfnum[2] = (basilys_get_int((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[2])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " \"")); /*_.MIXINT_VAL__V5*/ curfptr[4] = (basilys_val_mixint((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.MIXINT_VAL__V5*/ curfptr[4]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\"")); BASILYS_LOCATION("warmelt-outobj.melt:566:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:566:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:566:/ clear"); /*clear*/ /*_.MIXINT_VAL__V5*/ curfptr[4] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:566:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:566:/ block"); /*block*/{ /*_#IS_MIXLOC__L4*/ curfnum[2] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])) == OBMAG_MIXLOC);; BASILYS_LOCATION("warmelt-outobj.melt:572:/ cond"); /*cond*/ if (/*_#IS_MIXLOC__L4*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:572:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:572:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#line ")); /*_#MIXLOC_LOCLINE__L5*/ curfnum[4] = (LOCATION_LINE(basilys_location_mixloc((basilys_ptr_t)/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#MIXLOC_LOCLINE__L5*/ curfnum[4])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " \"")); /*_?*/ curfram__.loc_CTYPE_CSTRING__o1 = (LOCATION_FILE(basilys_location_mixloc((basilys_ptr_t)/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CTYPE_CSTRING__o1)); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\"")); BASILYS_LOCATION("warmelt-outobj.melt:572:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:572:/ clear"); /*clear*/ /*_#MIXLOC_LOCLINE__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:572:/ clear"); /*clear*/ /*_?*/ curfram__.loc_CTYPE_CSTRING__o1 = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:572:/ cond.else"); /*_.IFELSE___V6*/ curfptr[4] = NULL;; } ; /*_.IFELSE___V4*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:566:/ clear"); /*clear*/ /*_#IS_MIXLOC__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:566:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[4] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:579:/ cond"); /*cond*/ if (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:579:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:579:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "::**/")); BASILYS_LOCATION("warmelt-outobj.melt:580:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#endif /*MELTGCC_NOLINENUMBERING*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:562:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:561:/ clear"); /*clear*/ /*_#IS_MIXINT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:561:/ 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.melt:591:/ getarg"); /*_.LOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:591:/ 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.melt:591:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.melt:591:/ 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.melt:591:/ block"); /*block*/{ /*_#IS_MIXINT__L2*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])) == OBMAG_MIXINT);; BASILYS_LOCATION("warmelt-outobj.melt:593:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:593:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:593:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "BASILYS_LOCATION(\"")); /*_.MIXINT_VAL__V5*/ curfptr[4] = (basilys_val_mixint((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.MIXINT_VAL__V5*/ curfptr[4]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":")); /*_#GET_INT__L3*/ curfnum[2] = (basilys_get_int((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[2])); BASILYS_LOCATION("warmelt-outobj.melt:598:/ cond"); /*cond*/ if (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:598:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:598:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":/ ")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0)); BASILYS_LOCATION("warmelt-outobj.melt:598:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\");")); BASILYS_LOCATION("warmelt-outobj.melt:593:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:593:/ clear"); /*clear*/ /*_.MIXINT_VAL__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:593:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:593:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:593:/ block"); /*block*/{ /*_#IS_MIXLOC__L4*/ curfnum[2] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])) == OBMAG_MIXLOC);; BASILYS_LOCATION("warmelt-outobj.melt:604:/ cond"); /*cond*/ if (/*_#IS_MIXLOC__L4*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:604:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:604:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "BASILYS_LOCATION(\"")); /*_.MIXLOC_VAL__V7*/ curfptr[6] = (basilys_val_mixloc((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.MIXLOC_VAL__V7*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":")); /*_#GET_INT__L5*/ curfnum[4] = (basilys_get_int((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L5*/ curfnum[4])); BASILYS_LOCATION("warmelt-outobj.melt:609:/ cond"); /*cond*/ if (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:609:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:609:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":/ ")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0)); BASILYS_LOCATION("warmelt-outobj.melt:609:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\");")); BASILYS_LOCATION("warmelt-outobj.melt:604:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:604:/ clear"); /*clear*/ /*_.MIXLOC_VAL__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:604:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:604:/ cond.else"); /*_.IFELSE___V6*/ curfptr[4] = NULL;; } ; /*_.IFELSE___V4*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:593:/ clear"); /*clear*/ /*_#IS_MIXLOC__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:593:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[4] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:616:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:616:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:616:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:616:/ 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.melt:591:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_RAW_LOCATION__V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-outobj.melt:591:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:591:/ clear"); /*clear*/ /*_#IS_MIXINT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:591:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:591:/ 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.melt:621:/ getarg"); /*_.ROU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:621:/ 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.melt:621:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:622:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:623:/ 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.melt:624:/ 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.melt:625:/ 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.melt:629:/ 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((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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.melt:634:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:634:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:634:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "frame_")); BASILYS_LOCATION("warmelt-outobj.melt:637:/ 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((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "_st ")); BASILYS_LOCATION("warmelt-outobj.melt:635:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:634:/ clear"); /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "{ unsigned nbvar;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#if ENABLE_CHECKING")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( " const char* flocs;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#endif")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:649:/ cond"); /*cond*/ if (/*_#ISINITIAL__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:649:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:649:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( " struct basilysclosure_st *noinitialclos;")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:649:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:649:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( " struct basilysclosure_st *clos;")); /*epilog*/} ; } ; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( " struct excepth_basilys_st *exh;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( " struct callframe_basilys_st *prev;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); /*_#I__L5*/ curfnum[4] = ((/*_#NBVAL__L1*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:657:/ cond"); /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:657:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:657:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARPTR ")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBVAL__L1*/ curfnum[0])); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( " void* varptr[")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBVAL__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "];")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:658:/ block"); /*block*/{} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:657:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:657:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*no varptr*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARPTR /*none*/0")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:666:/ block"); /*block*/{} ; /*epilog*/} ; } ; /*_#I__L6*/ curfnum[5] = ((/*_#NBLONG__L2*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:671:/ cond"); /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:671:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:671:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARNUM ")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBLONG__L2*/ curfnum[1])); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( " long varnum[")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBLONG__L2*/ curfnum[1])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "];")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:672:/ block"); /*block*/{} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:671:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:671:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*no varnum*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARNUM /*none*/0")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:680:/ block"); /*block*/{} ; /*epilog*/} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:685:/ cond"); /*cond*/ if (/*_.OTHERS__V7*/ curfptr[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:685:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:685:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*others*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:692:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:692:/ 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.melt:692:/ 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.melt:690:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:690:/ 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.melt:686:/ block"); /*block*/{ /*_.PROGN___V13*/ curfptr[12] = /*_.LIST_EVERY__V12*/ curfptr[11];;} ; /*_.IFELSE___V9*/ curfptr[7] = /*_.PROGN___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:685:/ clear"); /*clear*/ /*_.LAMBDA___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:685:/ clear"); /*clear*/ /*_.LIST_EVERY__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:685:/ clear"); /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:685:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:685:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*no others*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:705:/ block"); /*block*/{} ; /*epilog*/} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( " long _spare_; }")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:622:/ clear"); /*clear*/ /*_.OBODY__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:622:/ clear"); /*clear*/ /*_.ONBVAL__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:622:/ clear"); /*clear*/ /*_.ONBLONG__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:622:/ clear"); /*clear*/ /*_#NBVAL__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:622:/ clear"); /*clear*/ /*_#NBLONG__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:622:/ clear"); /*clear*/ /*_#ISINITIAL__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:622:/ clear"); /*clear*/ /*_.OTHERS__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:622:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:622:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:622:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:622:/ 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.melt:692:/ getarg"); /*_.OLOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:692:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:693:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:693:/ 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.melt:693:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:693:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:693:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:693:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check other oloc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(693)?(693):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:693:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:693:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:693:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:694:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:694:/ 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.melt:695:/ 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.melt:697:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:697:/ 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.melt:697:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:697:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:697:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:697:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check octyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(697)?(697):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:697:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:697:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:697:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:698:/ 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((basilys_ptr_t)((/*~DSBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_CNAME__V9*/ curfptr[7]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~DSBUF*/ curfclos->tabval[0])), ( " ")); basilysgc_add_strbuf((basilys_ptr_t)((/*~DSBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V6*/ curfptr[5]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~DSBUF*/ curfclos->tabval[0])), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~DSBUF*/ curfclos->tabval[0])), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:694:/ clear"); /*clear*/ /*_.OCTYP__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:694:/ clear"); /*clear*/ /*_.ONAME__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:694:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:694:/ clear"); /*clear*/ /*_.CTYPE_CNAME__V9*/ curfptr[7] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:692:/ 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.melt:716:/ getarg"); /*_.ROU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:716:/ 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.melt:716:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:717:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:717:/ 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.melt:717:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:717:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:717:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:717:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check rou"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(717)?(717):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:717:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:717:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:717:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:718:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:718:/ 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.melt:718:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:718:/ 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.melt:718:/ cond.else"); /*_.OTHERS__V7*/ curfptr[6] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.melt:719:/ 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.melt:719:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:719:/ 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.melt:719:/ 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.melt:721:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:721:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:721:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:723:/ 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.melt:723:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:723:/ 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.melt:723:/ cond.else"); /*_.CTYPE_MARKER__V9*/ curfptr[8] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_MARKER__V9*/ curfptr[8]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " (framptr_->clos);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (3), 0); BASILYS_LOCATION("warmelt-outobj.melt:722:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:721:/ clear"); /*clear*/ /*_.CTYPE_MARKER__V9*/ curfptr[8] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "for(ix=0; ix<")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#NBVAL__L2*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "; ix++)")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (4), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "if (framptr_->varptr[ix])")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (5), 0); BASILYS_LOCATION("warmelt-outobj.melt:732:/ 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.melt:732:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:732:/ 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.melt:732:/ cond.else"); /*_.CTYPE_MARKER__V10*/ curfptr[8] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_MARKER__V10*/ curfptr[8]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " (framptr_->varptr[ix]);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (3), 0); BASILYS_LOCATION("warmelt-outobj.melt:737:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:737:/ 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.melt:737:/ 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.melt:735:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:735:/ 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.melt:718:/ clear"); /*clear*/ /*_.OTHERS__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:718:/ clear"); /*clear*/ /*_.OBROUT_NBVAL__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:718:/ clear"); /*clear*/ /*_#NBVAL__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:718:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:718:/ clear"); /*clear*/ /*_.CTYPE_MARKER__V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:718:/ clear"); /*clear*/ /*_.LAMBDA___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:718:/ clear"); /*clear*/ /*_.LIST_EVERY__V13*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:716:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];; BASILYS_LOCATION("warmelt-outobj.melt:716:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:716:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:716:/ 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.melt:737:/ getarg"); /*_.OLOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:737:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:738:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:738:/ 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.melt:738:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:738:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:738:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:738:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check other oloc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(738)?(738):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:738:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:738:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:738:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:739:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:739:/ 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.melt:739:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:739:/ 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.melt:739:/ cond.else"); /*_.OCTYP__V6*/ curfptr[5] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.melt:740:/ 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.melt:740:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:740:/ 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.melt:740:/ cond.else"); /*_.ONAME__V7*/ curfptr[6] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.melt:741:/ 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.melt:741:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:741:/ 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.melt:741:/ cond.else"); /*_.OMARKER__V8*/ curfptr[7] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:743:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:743:/ 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.melt:743:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:743:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:743:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:743:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check octyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(743)?(743):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:743:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:743:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:743:/ 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.melt:745:/ cond"); /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:745:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:745:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "if (framptr_->")); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V7*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ") ")); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.OMARKER__V8*/ curfptr[7]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " (framptr_->")); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V7*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (3), 0); BASILYS_LOCATION("warmelt-outobj.melt:745:/ block"); /*block*/{} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:745:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:745:/ 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.melt:755:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:755:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:755:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "if (framptr_->")); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V7*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ") ")); BASILYS_LOCATION("warmelt-outobj.melt:759:/ 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.melt:759:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:759:/ 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.melt:759:/ cond.else"); /*_.NAMED_NAME__V13*/ curfptr[12] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " (framptr_->")); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V7*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (3), 0); BASILYS_LOCATION("warmelt-outobj.melt:755:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:755:/ clear"); /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:755:/ cond.else"); /*_.IFELSE___V12*/ curfptr[11] = NULL;; } ; /*_.IFELSE___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:745:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:745:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; } ; /*_.LET___V5*/ curfptr[3] = /*_.IFELSE___V11*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:739:/ clear"); /*clear*/ /*_.OCTYP__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:739:/ clear"); /*clear*/ /*_.ONAME__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:739:/ clear"); /*clear*/ /*_.OMARKER__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:739:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:739:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:739:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[9] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:737:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-outobj.melt:737:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:737:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:737:/ 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.melt:770:/ getarg"); /*_.DECLSTRUCT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:770:/ 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.melt:770:/ 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.melt:770:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:772:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:773:/ 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.melt:774:/ 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.melt:775:/ 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.melt:779:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#if ENABLE_CHECKING")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " static long call_counter__;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#define callcount thiscallcounter__")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#else")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#define callcount 0L")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#endif")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:797:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:797:/ 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.melt:798:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:798:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:798:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " *framptr_=0,")); /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " curfram__;")); /*_#NOT__L5*/ curfnum[4] = (!(/*_#ISINITIAL__L3*/ curfnum[2]));; BASILYS_LOCATION("warmelt-outobj.melt:801:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:801:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:801:/ block"); /*block*/{ basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (2), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (3), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "int ix=0;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (3), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "framptr_ = (void*)firstargp_;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (3), 0); BASILYS_LOCATION("warmelt-outobj.melt:810:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:810:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "return NULL;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (2), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}/*end markggc*/;")); BASILYS_LOCATION("warmelt-outobj.melt:802:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:801:/ clear"); /*clear*/ /*_.OUTPUCOD_MARKER__V10*/ curfptr[9] = 0 ;} ; } /*noelse*/ ; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " memset(&curfram__, 0, sizeof(curfram__));")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " curfram__.nbvar = ")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBVAL__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); /*_#NOT__L6*/ curfnum[5] = (!(/*_#ISINITIAL__L3*/ curfnum[2]));; BASILYS_LOCATION("warmelt-outobj.melt:823:/ cond"); /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:823:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:823:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " curfram__.clos = closp_;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:824:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " curfram__.prev = (struct callframe_basilys_st *) basilys_topframe;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilys_topframe = (struct callframe_basilys_st *) &curfram__;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:772:/ clear"); /*clear*/ /*_.OBODY__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:772:/ clear"); /*clear*/ /*_.ONBVAL__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:772:/ clear"); /*clear*/ /*_.ONBLONG__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:772:/ clear"); /*clear*/ /*_#NBVAL__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:772:/ clear"); /*clear*/ /*_#NBLONG__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:772:/ clear"); /*clear*/ /*_#ISINITIAL__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:772:/ clear"); /*clear*/ /*_.OTHERS__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:772:/ clear"); /*clear*/ /*_.DECLSTRUCT__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:772:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:772:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:772:/ 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.melt:834:/ getarg"); /*_.PROU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:834:/ 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.melt:834:/ 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.melt:834:/ 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.melt:834:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:835:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:835:/ 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.melt:835:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:835:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:835:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:835:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check prou"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(835)?(835):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:835:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:835:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:835:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:836:/ 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.melt:837:/ 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.melt:838:/ 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.melt:839:/ 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.melt:842:/ 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.melt:843:/ 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.melt:844:/ 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.melt:845:/ 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.melt:846:/ 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.melt:849:/ cond"); /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:849:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:849:/ block"); /*block*/{ /*_.MAKE_STRINGCONST__V17*/ curfptr[16] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[1])), ( "**")));; BASILYS_LOCATION("warmelt-outobj.melt:850:/ 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.melt:849:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:849:/ clear"); /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:849:/ cond.else"); /*_.IF___V16*/ curfptr[15] = NULL;; } ; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:854:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:854:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:854:/ apply.arg"); argtab[1].bp_long = 0; BASILYS_LOCATION("warmelt-outobj.melt:854:/ 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((basilys_ptr_t)(/*_.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.melt:856:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:856:/ cond.then"); /*_#OR___L8*/ curfnum[7] = /*_#IS_MIXINT__L7*/ curfnum[6];; } else {BASILYS_LOCATION("warmelt-outobj.melt:856:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:856:/ 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.melt:856:/ clear"); /*clear*/ /*_#IS_MIXLOC__L9*/ curfnum[8] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:856:/ cond"); /*cond*/ if (/*_#OR___L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:856:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:856:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:857:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:857:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:857:/ apply.arg"); argtab[1].bp_long = 0; BASILYS_LOCATION("warmelt-outobj.melt:857:/ 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.melt:856:/ clear"); /*clear*/ /*_.OUTPUT_RAW_LOCATION__V21*/ curfptr[20] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:856:/ cond.else"); /*_.IF___V20*/ curfptr[17] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "static basilys_ptr_t ")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAM__V7*/ curfptr[5]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "(basilysclosure_ptr_t closp_,")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( " basilys_ptr_t firstargp_,")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( " const char xargdescr_[],")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( " union basilysparam_un *xargtab_,")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( " const char xresdescr_[],")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( " union basilysparam_un *xrestab_);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "static basilys_ptr_t")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ONAM__V7*/ curfptr[5]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(basilysclosure_ptr_t closp_,")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilys_ptr_t firstargp_,")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " const char xargdescr_[],")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " union basilysparam_un *xargtab_,")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (5), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " const char xresdescr_[],")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " union basilysparam_un *xrestab_)")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{")); BASILYS_LOCATION("warmelt-outobj.melt:884:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:884:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PROU__V2*/ curfptr[1]; BASILYS_LOCATION("warmelt-outobj.melt:884:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_trace_start(\"")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.OFUNAM__V15*/ curfptr[14]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", callcount);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*getargs*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:893:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:893:/ block"); /*block*/{ /*_#IS_MULTIPLE__L10*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.OGARGS__V12*/ curfptr[11])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-outobj.melt:893:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L10*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:893:/ cond.then"); /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:893:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:893:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogargs"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(893)?(893):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V23*/ curfptr[22] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:893:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:893:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:893:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:896:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:896:/ 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.melt:896:/ 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.melt:896:/ 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.melt:894:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:894:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto lab_endgetargs;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "lab_endgetargs:;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:912:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:912:/ block"); /*block*/{ /*_#IS_LIST__L11*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.OBODY__V8*/ curfptr[7])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.melt:912:/ cond"); /*cond*/ if (/*_#IS_LIST__L11*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:912:/ cond.then"); /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:912:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:912:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obody"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(912)?(912):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V28*/ curfptr[27] = /*_.IFELSE___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:912:/ clear"); /*clear*/ /*_#IS_LIST__L11*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:912:/ clear"); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:912:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*body*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:917:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:917:/ 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.melt:917:/ 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.melt:917:/ 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.melt:915:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:915:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labend_rout;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "labend_rout:")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_trace_end(\"")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.OFUNAM__V15*/ curfptr[14]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", callcount);")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilys_topframe = (struct callframe_basilys_st*) curfram__.prev;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " return (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:935:/ cond"); /*cond*/ if (/*_.ORETVAL__V13*/ curfptr[12]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:935:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:935:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:936:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:936:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:936:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:936:/ 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.melt:935:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V34*/ curfptr[33] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:935:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:935:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*noretval*/ NULL")); /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} ; /*epilog*/} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef callcount")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARNUM")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARPTR")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*end ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ONAM__V7*/ curfptr[5]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.ONAM__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.OBODY__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.ONBVAL__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.ONBLONG__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_#NBVAL__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_#NBLONG__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.OTHERS__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.OGARGS__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.ORETVAL__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.ORLOC__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.OFUNAM__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_#NOT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.OUTPUT_RAW_LOCATION__V19*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_#IS_MIXINT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_#OR___L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.IF___V20*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V22*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.LAMBDA___V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.LAMBDA___V30*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.LIST_EVERY__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:836:/ clear"); /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:834:/ 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.melt:896:/ getarg"); /*_.CURGET__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:896:/ 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.melt:896:/ block"); /*block*/{ basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "/*getarg#")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf_dec((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (/*_#CURANK__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:902:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:902:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:902:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:902:/ 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.melt:896:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:896:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:896:/ 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.melt:917:/ getarg"); /*_.CURBODY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:917:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:918:/ cond"); /*cond*/ if (/*_.CURBODY__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:918:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:918:/ 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.melt:918:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:918:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:918:/ cond.else"); /*_#IF___L1*/ curfnum[0] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.melt:918:/ cond"); /*cond*/ if (/*_#IF___L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:918:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:918:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:920:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:920:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:920:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:920:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:919:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:918:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:917:/ 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.melt:958:/ getarg"); /*_.IDATUP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:958:/ 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.melt:958:/ block"); /*block*/{ basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "struct cdata_st {")); BASILYS_LOCATION("warmelt-outobj.melt:963:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:963:/ 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.melt:963:/ 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.melt:961:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:961:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " long spare_;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "}")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:958:/ clear"); /*clear*/ /*_.LAMBDA___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:958:/ 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.melt:963:/ getarg"); /*_.CURDAT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:963:/ 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.melt:963:/ block"); /*block*/{ basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:966:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:966:/ 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.melt:963:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_DECLINIT__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:963:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:963:/ 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.melt:974:/ getarg"); /*_.IDATUP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:974:/ 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.melt:974:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " cdat = (struct cdata_st*) basilysgc_allocate(sizeof(*cdat),0);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " basilys_prohibit_garbcoll = TRUE;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "/*initial routine predef*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:986:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:986:/ 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.melt:986:/ 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.melt:984:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:984:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "/*initial routine fill*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:995:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:995:/ 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.melt:995:/ 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.melt:993:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:993:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " cdat = NULL;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " basilys_prohibit_garbcoll = FALSE;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:974:/ clear"); /*clear*/ /*_.LAMBDA___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:974:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:974:/ clear"); /*clear*/ /*_.LAMBDA___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:974:/ 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.melt:986:/ getarg"); /*_.CURPDAT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:986:/ 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.melt:986:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:988:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:988:/ 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.melt:986:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_INITPREDEF__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:986:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:986:/ 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.melt:995:/ getarg"); /*_.CURFIL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:995:/ 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.melt:995:/ block"); /*block*/{ basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:998:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:998:/ 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.melt:995:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_INITFILL__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:995:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:995:/ 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.melt:1013:/ getarg"); /*_.PINI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1013:/ 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.melt:1013:/ 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.melt:1013:/ 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.melt:1013:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1014:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1014:/ 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.melt:1014:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1014:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1014:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1014:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pini"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1014)?(1014):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1014:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1014:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1014:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1016:/ 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.melt:1017:/ 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.melt:1018:/ 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.melt:1019:/ 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((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void* start_module_basilys(void*);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void mark_module_basilys(void*);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void* initial_frame_basilys;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "typedef ")); BASILYS_LOCATION("warmelt-outobj.melt:1032:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1032:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " initial_frame_st;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "static void initialize_module_cdata(initial_frame_st *iniframp__, char predefinited[])")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#define curfram__ (*iniframp__)")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:1043:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1043:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " *cdat = NULL;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:1047:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1047:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef curfram__")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*end initialize_module_cdata*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "void* start_module_basilys(void* modargp_) {")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "char predefinited[BGLOB__LASTGLOB+8];")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:1066:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1066:/ 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.melt:1065:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1065:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PINI__V2*/ curfptr[1]; BASILYS_LOCATION("warmelt-outobj.melt:1065:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine prologue**/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_basilys = (void*) &curfram__;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:1079:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1079:/ 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.melt:1079:/ 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.melt:1079:/ 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.melt:1077:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1077:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine cdata initializer**/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(predefinited, 0, sizeof(predefinited));")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initialize_module_cdata(&curfram__, predefinited);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine body**/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); BASILYS_LOCATION("warmelt-outobj.melt:1098:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1098:/ 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.melt:1103:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1103:/ 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.melt:1103:/ 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.melt:1103:/ 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.melt:1101:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1101:/ 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.melt:1098:/ clear"); /*clear*/ /*_.IBODY__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1098:/ clear"); /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1098:/ clear"); /*clear*/ /*_.LIST_EVERY__V24*/ curfptr[23] = 0 ;} ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labend_rout;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "labend_rout: basilys_topframe = (struct callframe_basilys_st *) curfram__.prev;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_basilys = (void*)0;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " return ")); BASILYS_LOCATION("warmelt-outobj.melt:1120:/ cond"); /*cond*/ if (/*_.ORETVAL__V10*/ curfptr[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1120:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1120:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1121:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1121:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1121:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1121:/ 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.melt:1120:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1120:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1120:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*noretval*/ NULL")); /*clear*/ /*_.IFELSE___V25*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef callcount")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARNUM")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARPTR")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /* end start_module_basilys */")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "void mark_module_basilys(void*fp)")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "int ix=0;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_st* framptr_= (initial_frame_st*)fp;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:1143:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1143:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /* end mark_module_basilys */")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.IDATUP__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.IRFILL__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.IPROLOG__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.ORETVAL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_FILL__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.LAMBDA___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.LIST_EVERY__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1015:/ clear"); /*clear*/ /*_.OUTPUCOD_MARKER__V27*/ curfptr[23] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1013:/ 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.melt:1066:/ getarg"); /*_.ROU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1066:/ 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.melt:1066:/ block"); /*block*/{ basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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.melt:1079:/ getarg"); /*_.CURPROL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1079:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1081:/ cond"); /*cond*/ if (/*_.CURPROL__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1081:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1081:/ 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.melt:1081:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1081:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1081:/ cond.else"); /*_#IF___L1*/ curfnum[0] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.melt:1081:/ cond"); /*cond*/ if (/*_#IF___L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1081:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1081:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1083:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1083:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:1083:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1083:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:1082:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1081:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1079:/ 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.melt:1103:/ getarg"); /*_.CURBODY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1103:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1105:/ cond"); /*cond*/ if (/*_.CURBODY__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1105:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1105:/ 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.melt:1105:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1105:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1105:/ cond.else"); /*_#IF___L1*/ curfnum[0] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.melt:1105:/ cond"); /*cond*/ if (/*_#IF___L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1105:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1105:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1107:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1107:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:1107:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1107:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (1), 0); BASILYS_LOCATION("warmelt-outobj.melt:1106:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1105:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1103:/ 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.melt:1153:/ getarg"); /*_.GARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1153:/ 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.melt:1153:/ 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.melt:1153:/ 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.melt:1153:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1154:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1154:/ 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.melt:1154:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1154:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1154:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1154:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check garg"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1154)?(1154):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1154:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1154:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1154:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1156:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1156:/ 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.melt:1157:/ 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.melt:1158:/ 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.melt:1160:/ 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.melt:1162:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1162:/ 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.melt:1162:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1162:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1162:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1162:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obind"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1162)?(1162):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1162:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1162:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1162:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1163:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1163:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1163:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1163:/ 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.melt:1164:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1164:/ 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.melt:1164:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1164:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1164:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1164:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oloc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1164)?(1164):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1164:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1164:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1164:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1165:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1165:/ 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.melt:1165:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1165:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1165:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1165:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ctybind"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1165)?(1165):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1165:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1165:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1165:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L7*/ curfnum[3] = ((/*_#RKBIND__L3*/ curfnum[1]) == (0));; BASILYS_LOCATION("warmelt-outobj.melt:1166:/ cond"); /*cond*/ if (/*_#I__L7*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1166:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1166:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1168:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1168:/ block"); /*block*/{ /*_#__L8*/ curfnum[7] = ((/*_.CTYBIND__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-outobj.melt:1168:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1168:/ cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1168:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1168:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ctybind first"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1168)?(1168):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1168:/ clear"); /*clear*/ /*_#__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1168:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1168:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1169:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1169:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1169:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1169:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (basilys_ptr_t) firstargp_;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1167:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1166:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1166:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[18] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1166:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1166:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1173:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1175:/ 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.melt:1176:/ 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.melt:1178:/ cond"); /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1178:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1178:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1180:/ 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.melt:1178:/ clear"); /*clear*/ /*_.NAMED_NAME__V23*/ curfptr[22] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (xargdescr_[")); /*_#I__L11*/ curfnum[10] = ((/*_#RKBIND__L3*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] != ")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.PARC__V21*/ curfptr[16]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") goto lab_endgetargs;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.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.melt:1187:/ cond"); /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1187:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1187:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1189:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1189:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1189:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1189:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (xargtab_[")); /*_#I__L13*/ curfnum[12] = ((/*_#RKBIND__L3*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].bp_aptr) ? (*(xargtab_[")); /*_#I__L14*/ curfnum[13] = ((/*_#RKBIND__L3*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[13])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].bp_aptr)) : NULL;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "gcc_assert(basilys_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:1197:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1197:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1197:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1197:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) != NULL);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1188:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1187:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1187:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1187:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1187:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1187:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1187:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1202:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1202:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1202:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1202:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = xargtab_[")); /*_#I__L15*/ curfnum[12] = ((/*_#RKBIND__L3*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[12])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ARGF__V22*/ curfptr[18]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); BASILYS_LOCATION("warmelt-outobj.melt:1201:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1187:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1187:/ clear"); /*clear*/ /*_#I__L15*/ curfnum[12] = 0 ;} ; } ; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1173:/ clear"); /*clear*/ /*_.PARC__V21*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1173:/ clear"); /*clear*/ /*_.ARGF__V22*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1173:/ clear"); /*clear*/ /*_#IS_STRING__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1173:/ clear"); /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1173:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1173:/ clear"); /*clear*/ /*_#__L12*/ curfnum[11] = 0 ;} ; /*epilog*/} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1156:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1156:/ clear"); /*clear*/ /*_.NLOC__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1156:/ clear"); /*clear*/ /*_.OBIND__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1156:/ clear"); /*clear*/ /*_#RKBIND__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1156:/ clear"); /*clear*/ /*_.CTYBIND__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1156:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1156:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1156:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1156:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1156:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[3] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1153:/ 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.melt:1219:/ getarg"); /*_.LOCV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1219:/ 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.melt:1219:/ 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.melt:1219:/ 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.melt:1219:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1220:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1220:/ 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.melt:1220:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1220:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1220:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1220:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check locv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1220)?(1220):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1220:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1220:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1220:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1222:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1223:/ 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.melt:1224:/ 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.melt:1225:/ 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.melt:1228:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1228:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1228:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_.")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.LCNAM__V9*/ curfptr[8]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfptr[")); /*_#GET_INT__L4*/ curfnum[3] = (basilys_get_int((basilys_ptr_t)(/*_.LOFF__V8*/ curfptr[7])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[3])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]")); BASILYS_LOCATION("warmelt-outobj.melt:1228:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1228:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1228:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1228:/ block"); /*block*/{ /*_#__L5*/ curfnum[3] = ((/*_.LTYP__V7*/ curfptr[5]) == ((/*!CTYPE_LONG*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.melt:1234:/ cond"); /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1234:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1234:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_#")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.LCNAM__V9*/ curfptr[8]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfnum[")); /*_#GET_INT__L6*/ curfnum[5] = (basilys_get_int((basilys_ptr_t)(/*_.LOFF__V8*/ curfptr[7])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L6*/ curfnum[5])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]")); BASILYS_LOCATION("warmelt-outobj.melt:1234:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1234:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1234:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1234:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_?*/ curfram__.")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.LCNAM__V9*/ curfptr[8]))); BASILYS_LOCATION("warmelt-outobj.melt:1240:/ block"); /*block*/{} ; /*epilog*/} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1228:/ clear"); /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1222:/ clear"); /*clear*/ /*_.LTYP__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1222:/ clear"); /*clear*/ /*_.LOFF__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1222:/ clear"); /*clear*/ /*_.LCNAM__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1222:/ clear"); /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1219:/ 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.melt:1249:/ getarg"); /*_.OCCV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1249:/ 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.melt:1249:/ 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.melt:1249:/ 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.melt:1249:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1250:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1250:/ 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.melt:1250:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1250:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1250:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1250:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check occv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1250)?(1250):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1250:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1250:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1250:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1251:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1251:/ 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.melt:1252:/ 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.melt:1253:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1253:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1254:/ 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.melt:1253:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1253:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1253:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1253:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check valueness of closed occurrence"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1253)?(1253):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1253:/ clear"); /*clear*/ /*_.OBV_TYPE__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1253:/ clear"); /*clear*/ /*_#__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1253:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1253:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(/*~")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ONAM__V8*/ curfptr[7]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[1])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "])")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1251:/ clear"); /*clear*/ /*_.OOFF__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1251:/ clear"); /*clear*/ /*_.ONAM__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1251:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1251:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1249:/ 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.melt:1266:/ getarg"); /*_.OCNSTV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1266:/ 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.melt:1266:/ 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.melt:1266:/ 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.melt:1266:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1267:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1267:/ 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.melt:1267:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1267:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1267:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1267:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ocnstv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1267)?(1267):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1267:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1267:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1267:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1268:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1268:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1268:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1268:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objconstv ocnstv"; BASILYS_LOCATION("warmelt-outobj.melt:1268:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1268:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1268:/ apply.arg"); argtab[3].bp_long = 1268; /*_.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.melt:1268:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1268:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1268:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1269:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1269:/ 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.melt:1270:/ 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.melt:1271:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1271:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1272:/ 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.melt:1271:/ cond"); /*cond*/ if (/*_#__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1271:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1271:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1271:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check valueness of const occurrence"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1271)?(1271):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1271:/ clear"); /*clear*/ /*_.OBV_TYPE__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1271:/ clear"); /*clear*/ /*_#__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1271:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1271:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(/*!")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ONAM__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L5*/ curfnum[1])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "])")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1269:/ clear"); /*clear*/ /*_.OOFF__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1269:/ clear"); /*clear*/ /*_.ONAM__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1269:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1269:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1266:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1266:/ 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.melt:1284:/ getarg"); /*_.LIS__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1284:/ 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.melt:1284:/ 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.melt:1284:/ 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.melt:1284:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1285:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1285:/ 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.melt:1285:/ cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1285:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1285:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1285:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check lis"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1285)?(1285):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1285:/ clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1285:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1285:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1286:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1286:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.BOXEDDEPTH__V5*/ curfptr[4])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-outobj.melt:1286:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1286:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1286:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1286:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check boxeddepth"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1286)?(1286):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1286:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1286:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1286:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1289:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1289:/ 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.melt:1289:/ 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.melt:1289:/ 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.melt:1289:/ 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.melt:1287:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1287:/ 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.melt:1284:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LIST_EVERY__V12*/ curfptr[11];; BASILYS_LOCATION("warmelt-outobj.melt:1284:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1284:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1284:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1284:/ clear"); /*clear*/ /*_.LAMBDA___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1284:/ 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.melt:1289:/ getarg"); /*_.CUR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1289:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1290:/ block"); /*block*/{ /*_#DEPTH__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXEDDEPTH*/ curfclos->tabval[0]))));; BASILYS_LOCATION("warmelt-outobj.melt:1291:/ cond"); /*cond*/ if (/*_.CUR__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1291:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1291:/ 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.melt:1291:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1291:/ cond.else"); /*_#IF___L2*/ curfnum[1] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.melt:1291:/ cond"); /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1291:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1291:/ block"); /*block*/{ basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1294:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1294:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-outobj.melt:1294:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1294:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); BASILYS_LOCATION("warmelt-outobj.melt:1292:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1291:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1290:/ clear"); /*clear*/ /*_#DEPTH__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1290:/ 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.melt:1301:/ getarg"); /*_.OBLO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1301:/ 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.melt:1301:/ 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.melt:1301:/ 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.melt:1301:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1302:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1302:/ 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.melt:1302:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1302:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1302:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1302:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oblo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1302)?(1302):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1302:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1302:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1302:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1303:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1303:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1303:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1303:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objblock oblo"; BASILYS_LOCATION("warmelt-outobj.melt:1303:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1303:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1303:/ apply.arg"); argtab[3].bp_long = 1303; /*_.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.melt:1303:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1303:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1303:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1304:/ 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.melt:1304:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1304:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1304:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1304:/ 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.melt:1305:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1305:/ 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.melt:1306:/ 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((basilys_ptr_t)(/*_.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.melt:1310:/ cond"); /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1310:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1310:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1311:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1311:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1311:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1311:/ 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.melt:1310:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V15*/ curfptr[14] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1310:/ 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.melt:1312:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1312:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1312:/ block"); /*block*/{ /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12])));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*epilog*/")); BASILYS_LOCATION("warmelt-outobj.melt:1316:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1316:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1316:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1316:/ 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.melt:1313:/ 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.melt:1312:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1312:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1312:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1312:/ cond.else"); /*_.IF___V16*/ curfptr[14] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1305:/ clear"); /*clear*/ /*_.BODYL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1305:/ clear"); /*clear*/ /*_.EPIL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1305:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1305:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1305:/ clear"); /*clear*/ /*_#IS_LIST__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1305:/ clear"); /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1305:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1305:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1320:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1320:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1320:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1320:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objblock done oblo"; BASILYS_LOCATION("warmelt-outobj.melt:1320:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-outobj.melt:1320:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1320:/ apply.arg"); argtab[3].bp_long = 1320; /*_.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.melt:1320:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1320:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1320:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1301:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V19*/ curfptr[16];; BASILYS_LOCATION("warmelt-outobj.melt:1301:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1301:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1301:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1301:/ clear"); /*clear*/ /*_.OBI_LOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1301:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1301:/ 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.melt:1325:/ getarg"); /*_.OBCIT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1325:/ 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.melt:1325:/ 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.melt:1325:/ 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.melt:1325:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1326:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1326:/ 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.melt:1326:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1326:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1326:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1326:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obcit"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1326)?(1326):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1326:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1326:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1326:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1327:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1327:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1327:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1327:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objciterblock obcit"; BASILYS_LOCATION("warmelt-outobj.melt:1327:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1327:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1327:/ apply.arg"); argtab[3].bp_long = 1327; /*_.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.melt:1327:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1327:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1327:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1328:/ 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.melt:1329:/ 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.melt:1330:/ 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.melt:1332:/ 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.melt:1333:/ 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.melt:1334:/ 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.melt:1336:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1336:/ 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.melt:1336:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1336:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1336:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1336:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check citer"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1336)?(1336):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1336:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1336:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1336:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1337:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1337:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*citerblock ")); BASILYS_LOCATION("warmelt-outobj.melt:1339:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V19*/ curfptr[18]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ {")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1342:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1342:/ 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.melt:1345:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1345:/ 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.melt:1345:/ 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.melt:1345:/ 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.melt:1345:/ 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.melt:1343:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1343:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1349:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1349:/ 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.melt:1350:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1350:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1350:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1351:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1351:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1351:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1351:/ 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.melt:1350:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ curfptr[25] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1350:/ cond.else"); /*_.IF___V25*/ curfptr[24] = NULL;; } ; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1353:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1353:/ 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.melt:1356:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1356:/ 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.melt:1356:/ 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.melt:1356:/ 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.melt:1356:/ 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.melt:1354:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1354:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1360:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1360:/ 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.melt:1361:/ cond"); /*cond*/ if (/*_#IS_LIST__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1361:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1361:/ block"); /*block*/{ /*_#GET_INT__L8*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V12*/ curfptr[11])));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L8*/ curfnum[7]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*citerepilog*/")); BASILYS_LOCATION("warmelt-outobj.melt:1365:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1365:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1365:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1365:/ 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.melt:1362:/ 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.melt:1361:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1361:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1361:/ clear"); /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1361:/ cond.else"); /*_.IF___V32*/ curfptr[31] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*endciterblock ")); BASILYS_LOCATION("warmelt-outobj.melt:1367:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[32]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.BODYL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.EPIL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.OBEFORE__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.OAFTER__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.CITER__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.NAMED_NAME__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V27*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.LAMBDA___V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_#IS_LIST__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.IF___V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1328:/ clear"); /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[32] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1325:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1325:/ 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.melt:1345:/ getarg"); /*_.OBEF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1345:/ 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.melt:1345:/ block"); /*block*/{ /*_#GET_INT__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:1346:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1346:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:1346:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1346:/ 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.melt:1345:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:1345:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1345:/ clear"); /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1345:/ 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.melt:1356:/ getarg"); /*_.OAFT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1356:/ 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.melt:1356:/ block"); /*block*/{ /*_#GET_INT__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:1357:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1357:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:1357:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1357:/ 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.melt:1356:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:1356:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1356:/ clear"); /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1356:/ 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.melt:1375:/ getarg"); /*_.OBCI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1375:/ 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.melt:1375:/ 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.melt:1375:/ 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.melt:1375:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1376:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1376:/ 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.melt:1376:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1376:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1376:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1376:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obci"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1376)?(1376):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1376:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1376:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1376:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1377:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1377:/ 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.melt:1378:/ 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.melt:1379:/ block"); /*block*/{ /*_.SBU__V10*/ curfptr[9] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[1])), (char*)0);; basilysgc_add_strbuf_ccomment((basilys_ptr_t)(/*_.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.melt:1379:/ clear"); /*clear*/ /*_.SBU__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1379:/ clear"); /*clear*/ /*_.STRBUF2STRING__V11*/ curfptr[10] = 0 ;} ; /*_.COMSTR__V12*/ curfptr[9] = /*_.LET___V9*/ curfptr[8];; BASILYS_LOCATION("warmelt-outobj.melt:1384:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1384:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1384:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1384:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**COMMENT: ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.COMSTR__V12*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " **/;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1377:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1377:/ clear"); /*clear*/ /*_.COMS__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1377:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1377:/ clear"); /*clear*/ /*_.COMSTR__V12*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1377:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[10] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1375:/ 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.melt:1394:/ getarg"); /*_.OBLO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1394:/ 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.melt:1394:/ 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.melt:1394:/ 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.melt:1394:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1395:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1395:/ 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.melt:1395:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1395:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1395:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1395:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oblo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1395)?(1395):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1395:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1395:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1395:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1396:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1396:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1396:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1396:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objblock oblo"; BASILYS_LOCATION("warmelt-outobj.melt:1396:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1396:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1396:/ apply.arg"); argtab[3].bp_long = 1396; /*_.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.melt:1396:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1396:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1396:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1397:/ 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.melt:1397:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1397:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1397:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1397:/ 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.melt:1398:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1398:/ 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.melt:1399:/ 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.melt:1401:/ 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.melt:1402:/ block"); /*block*/{ /*_.SBU__V16*/ curfptr[15] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);; basilysgc_add_strbuf_ccomment((basilys_ptr_t)(/*_.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.melt:1402:/ clear"); /*clear*/ /*_.SBU__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1402:/ clear"); /*clear*/ /*_.STRBUF2STRING__V17*/ curfptr[16] = 0 ;} ; /*_.COMSTR__V18*/ curfptr[15] = /*_.LET___V15*/ curfptr[14];; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*com.block:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.COMSTR__V18*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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.melt:1410:/ cond"); /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1410:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1410:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1411:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1411:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1411:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1411:/ 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.melt:1410:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ curfptr[19] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1410:/ 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.melt:1412:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1412:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1412:/ block"); /*block*/{ /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12])));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*comp.epilog:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.COMSTR__V18*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); BASILYS_LOCATION("warmelt-outobj.melt:1418:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1418:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1418:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1418:/ 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.melt:1413:/ 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.melt:1412:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1412:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1412:/ clear"); /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1412:/ cond.else"); /*_.IF___V21*/ curfptr[19] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*com.end block:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.COMSTR__V18*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1398:/ clear"); /*clear*/ /*_.BODYL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1398:/ clear"); /*clear*/ /*_.EPIL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1398:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1398:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1398:/ clear"); /*clear*/ /*_.COMS__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1398:/ clear"); /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1398:/ clear"); /*clear*/ /*_.COMSTR__V18*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1398:/ clear"); /*clear*/ /*_#IS_LIST__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1398:/ clear"); /*clear*/ /*_.IF___V19*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1398:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1398:/ clear"); /*clear*/ /*_.IF___V21*/ curfptr[19] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1425:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1425:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1425:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1425:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objcommentedblock done oblo"; BASILYS_LOCATION("warmelt-outobj.melt:1425:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-outobj.melt:1425:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1425:/ apply.arg"); argtab[3].bp_long = 1425; /*_.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.melt:1425:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1425:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1425:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1394:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V24*/ curfptr[21];; BASILYS_LOCATION("warmelt-outobj.melt:1394:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1394:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1394:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1394:/ clear"); /*clear*/ /*_.OBI_LOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1394:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1394:/ 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_OUTPUCOD_OBJLABELINSTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJLABELINSTR_st { unsigned nbvar; #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("OUTPUCOD_OBJLABELINSTR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.melt:1432:/ getarg"); /*_.OBLAB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1432:/ 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.melt:1432:/ 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.melt:1432:/ 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.melt:1432:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1433:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1433:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJLABELINSTR*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.melt:1433:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1433:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1433:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1433:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oblab"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1433)?(1433):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1433:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1433:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1433:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1434:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1434:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1434:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1434:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objlabelinstr oblab"; BASILYS_LOCATION("warmelt-outobj.melt:1434:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1434:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1434:/ apply.arg"); argtab[3].bp_long = 1434; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBLAB__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.melt:1434:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1434:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1434:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*objlabel*/ ")); BASILYS_LOCATION("warmelt-outobj.melt:1437:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 1, "OBLAB_PREFIX");/*_.OBLAB_PREFIX__V9*/ curfptr[7] = slot; }; ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.OBLAB_PREFIX__V9*/ curfptr[7]))); BASILYS_LOCATION("warmelt-outobj.melt:1438:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1438:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 2, "OBLAB_RANK");/*_.OBRANK__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.melt:1439:/ cond"); /*cond*/ if (/*_.OBRANK__V10*/ curfptr[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1439:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1439:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1440:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 2, "OBLAB_RANK");/*_.OBLAB_RANK__V11*/ curfptr[10] = slot; }; ; /*_#GET_INT__L4*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.OBLAB_RANK__V11*/ curfptr[10])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[1])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1439:/ clear"); /*clear*/ /*_.OBLAB_RANK__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1439:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1438:/ clear"); /*clear*/ /*_.OBRANK__V10*/ curfptr[9] = 0 ;} ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ":")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1443:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V12*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.melt:1443:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1443:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1443:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1443:/ apply.arg"); argtab[2].bp_cstring = "objlabel"; /*_.OUTPUT_LOCATION__V13*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBI_LOC__V12*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.melt:1432:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_LOCATION__V13*/ curfptr[9];; BASILYS_LOCATION("warmelt-outobj.melt:1432:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1432:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1432:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1432:/ clear"); /*clear*/ /*_.OBLAB_PREFIX__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1432:/ clear"); /*clear*/ /*_.OBI_LOC__V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1432:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[9] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJLABELINSTR", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_53_OUTPUCOD_OBJLABELINSTR*/ static basilys_ptr_t rout_54_OUTPUCOD_OBJGOTOINSTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OBJGOTOINSTR_st { unsigned nbvar; #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_OBJGOTOINSTR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.melt:1450:/ getarg"); /*_.OBGOTO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1450:/ 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.melt:1450:/ 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.melt:1450:/ 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.melt:1450:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1451:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1451:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.melt:1451:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1451:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1451:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1451:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obgoto"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1451)?(1451):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1451:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1451:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1451:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1452:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1452:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1452:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1452:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objgotoinstr"; BASILYS_LOCATION("warmelt-outobj.melt:1452:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1452:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1452:/ apply.arg"); argtab[3].bp_long = 1452; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBGOTO__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.melt:1452:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1452:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1452:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1453:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.melt:1453:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1453:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1453:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1453:/ apply.arg"); argtab[2].bp_cstring = "objgoto"; /*_.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); } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*objgoto*/ goto ")); BASILYS_LOCATION("warmelt-outobj.melt:1455:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), 1, "OBGOTO_PREFIX");/*_.OBGOTO_PREFIX__V11*/ curfptr[10] = slot; }; ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.OBGOTO_PREFIX__V11*/ curfptr[10]))); BASILYS_LOCATION("warmelt-outobj.melt:1456:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1456:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), 2, "OBGOTO_RANK");/*_.OBRANK__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.melt:1457:/ cond"); /*cond*/ if (/*_.OBRANK__V12*/ curfptr[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1457:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1457:/ block"); /*block*/{ /*_#GET_INT__L4*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.OBRANK__V12*/ curfptr[11])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[1])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1457:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1456:/ clear"); /*clear*/ /*_.OBRANK__V12*/ curfptr[11] = 0 ;} ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1450:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1450:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1450:/ clear"); /*clear*/ /*_.OBI_LOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1450:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1450:/ clear"); /*clear*/ /*_.OBGOTO_PREFIX__V11*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJGOTOINSTR", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_54_OUTPUCOD_OBJGOTOINSTR*/ static basilys_ptr_t rout_55_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_55_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.melt:1466:/ getarg"); /*_.SBUF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1466:/ 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.melt:1466:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1467:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1467:/ block"); /*block*/{ /*_#IS_STRBUF__L1*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SBUF__V2*/ curfptr[1])) == OBMAG_STRBUF);; BASILYS_LOCATION("warmelt-outobj.melt:1467:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1467:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1467:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1467:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sbuf"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1467)?(1467):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1467:/ clear"); /*clear*/ /*_#IS_STRBUF__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1467:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1467:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1468:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1468:/ 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.melt:1468:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1468:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1468:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1468:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check csy"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1468)?(1468):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1468:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1468:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1468:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1469:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1469:/ 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.melt:1470:/ 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((basilys_ptr_t)(/*_.SBUF__V2*/ curfptr[1]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V2*/ curfptr[1]), ( "_")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.SBUF__V2*/ curfptr[1]), (/*_#RK__L3*/ curfnum[0])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1469:/ clear"); /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1469:/ clear"); /*clear*/ /*_.CSYM_URANK__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1469:/ clear"); /*clear*/ /*_#RK__L3*/ curfnum[0] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1466:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1466:/ 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_55_ADD2SBUF_CLONSYM*/ static basilys_ptr_t rout_56_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_56_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.melt:1477:/ getarg"); /*_.OBLO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1477:/ 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.melt:1477:/ 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.melt:1477:/ 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.melt:1477:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1478:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1478:/ 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.melt:1478:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1478:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1478:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1478:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oblo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1478)?(1478):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1478:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1478:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1478:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1479:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1479:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1479:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1479:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objloop oblo"; BASILYS_LOCATION("warmelt-outobj.melt:1479:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1479:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1479:/ apply.arg"); argtab[3].bp_long = 1479; /*_.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.melt:1479:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1479:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1479:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1480:/ 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.melt:1481:/ 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.melt:1482:/ 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.melt:1483:/ 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.melt:1486:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1486:/ 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.melt:1486:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1486:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1486:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1486:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check lab"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1486)?(1486):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1486:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1486:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1486:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1487:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1487:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1487:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1487:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*loop*/{ labloop_")); BASILYS_LOCATION("warmelt-outobj.melt:1489:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1489:/ 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((basilys_ptr_t)(/*_.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.melt:1491:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1491:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1491:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1493:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1493:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1493:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1493:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L7*/ curfnum[6]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1497:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1497:/ 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.melt:1497:/ 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.melt:1497:/ 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.melt:1497:/ 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.melt:1495:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1495:/ 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.melt:1492:/ block"); /*block*/{ /*_.PROGN___V23*/ curfptr[22] = /*_.LIST_EVERY__V22*/ curfptr[21];;} ; /*_.IF___V18*/ curfptr[17] = /*_.PROGN___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1491:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1491:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1491:/ clear"); /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1491:/ clear"); /*clear*/ /*_.LIST_EVERY__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1491:/ clear"); /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1491:/ cond.else"); /*_.IF___V18*/ curfptr[17] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); /*_#I__L8*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[6]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labloop_")); BASILYS_LOCATION("warmelt-outobj.melt:1506:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1506:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); /*_#I__L9*/ curfnum[8] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " labexit_")); BASILYS_LOCATION("warmelt-outobj.melt:1510:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1510:/ 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((basilys_ptr_t)(/*_.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.melt:1512:/ cond"); /*cond*/ if (/*_#IS_LIST__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1512:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1512:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1514:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1514:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1514:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1514:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*loopepilog*/")); /*_#I__L11*/ curfnum[10] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1519:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1519:/ 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.melt:1519:/ 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.melt:1519:/ 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.melt:1519:/ 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.melt:1517:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1517:/ 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.melt:1513:/ block"); /*block*/{ /*_.PROGN___V31*/ curfptr[30] = /*_.LIST_EVERY__V30*/ curfptr[29];;} ; /*_.IF___V26*/ curfptr[21] = /*_.PROGN___V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1512:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V27*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1512:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1512:/ clear"); /*clear*/ /*_.LAMBDA___V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1512:/ clear"); /*clear*/ /*_.LIST_EVERY__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1512:/ clear"); /*clear*/ /*_.PROGN___V31*/ curfptr[30] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1512:/ cond.else"); /*_.IF___V26*/ curfptr[21] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.BODYL__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.EPIL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.LAB__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.OLOC__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.ADD2SBUF_CLONSYM__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.IF___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.ADD2SBUF_CLONSYM__V24*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.ADD2SBUF_CLONSYM__V25*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_#IS_LIST__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1480:/ clear"); /*clear*/ /*_.IF___V26*/ curfptr[21] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1528:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1528:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1528:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1528:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objloop done oblo"; BASILYS_LOCATION("warmelt-outobj.melt:1528:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10]; BASILYS_LOCATION("warmelt-outobj.melt:1528:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1528:/ apply.arg"); argtab[3].bp_long = 1528; /*_.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.melt:1528:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1528:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1528:/ cppif.else"); /*_.IFCPP___V32*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1477:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V32*/ curfptr[22];; BASILYS_LOCATION("warmelt-outobj.melt:1477:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1477:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1477:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1477:/ 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_56_OUTPUCOD_OBJLOOP*/ static basilys_ptr_t rout_57_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_57_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 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.melt:1497:/ getarg"); /*_.CURBODY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1497:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1498:/ block"); /*block*/{ /*_#DEPTHP1__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[0]))));; BASILYS_LOCATION("warmelt-outobj.melt:1499:/ cond"); /*cond*/ if (/*_.CURBODY__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1499:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1499:/ 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.melt:1499:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1499:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1499:/ cond.else"); /*_#IF___L2*/ curfnum[1] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.melt:1499:/ cond"); /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1499:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1499:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1500:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1500:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1500:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-outobj.melt:1500:/ 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.melt:1499:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1499:/ cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), (/*_#DEPTHP1__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1498:/ clear"); /*clear*/ /*_#DEPTHP1__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1498:/ clear"); /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1498:/ 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_57_LAMBDA_*/ static basilys_ptr_t rout_58_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_58_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.melt:1519:/ getarg"); /*_.CUREPIL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1519:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1520:/ block"); /*block*/{ /*_#DEPTHP1__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[0]))));; BASILYS_LOCATION("warmelt-outobj.melt:1521:/ cond"); /*cond*/ if (/*_.CUREPIL__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1521:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1521:/ 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.melt:1521:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1521:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1521:/ cond.else"); /*_#IF___L2*/ curfnum[1] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.melt:1521:/ cond"); /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1521:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1521:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1522:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1522:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1522:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-outobj.melt:1522:/ 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.melt:1521:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1521:/ cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), (/*_#DEPTHP1__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1520:/ clear"); /*clear*/ /*_#DEPTHP1__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1520:/ clear"); /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1520:/ 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_58_LAMBDA_*/ static basilys_ptr_t rout_59_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_59_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.melt:1534:/ getarg"); /*_.OBXI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1534:/ 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.melt:1534:/ 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.melt:1534:/ 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.melt:1534:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1535:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1535:/ 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.melt:1535:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1535:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1535:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1535:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obxi"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1535)?(1535):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1535:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1535:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1535:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1536:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1536:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1536:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1536:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objexit obxi"; BASILYS_LOCATION("warmelt-outobj.melt:1536:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1536:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1536:/ apply.arg"); argtab[3].bp_long = 1536; /*_.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.melt:1536:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1536:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1536:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1537:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1537:/ 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.melt:1538:/ 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.melt:1540:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1540:/ 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.melt:1540:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1540:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1540:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1540:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check olab"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1540)?(1540):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1540:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1540:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1540:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1541:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1541:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1541:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1541:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*exit*/{")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labexit_")); BASILYS_LOCATION("warmelt-outobj.melt:1545:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1545:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";}")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1537:/ clear"); /*clear*/ /*_.OLAB__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1537:/ clear"); /*clear*/ /*_.LOC__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1537:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1537:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1537:/ clear"); /*clear*/ /*_.ADD2SBUF_CLONSYM__V14*/ curfptr[13] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1534:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1534:/ 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_59_OUTPUCOD_OBJEXIT*/ static basilys_ptr_t rout_60_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_60_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.melt:1552:/ getarg"); /*_.OBCOMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1552:/ 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.melt:1552:/ 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.melt:1552:/ 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.melt:1552:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1553:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1553:/ 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.melt:1553:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1553:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1553:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1553:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obcomp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1553)?(1553):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1553:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1553:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1553:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1554:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1554:/ 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.melt:1555:/ 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.melt:1556:/ 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.melt:1559:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1559:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1559:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1559:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objcompute obcomp"; BASILYS_LOCATION("warmelt-outobj.melt:1559:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.melt:1559:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1559:/ apply.arg"); argtab[3].bp_long = 1559; /*_.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.melt:1559:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1559:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1559:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1560:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1560:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1560:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1560:/ 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.melt:1561:/ cond"); /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1561:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1561:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1564:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1564:/ 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.melt:1564:/ 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.melt:1564:/ 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.melt:1564:/ 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.melt:1562:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1562:/ 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.melt:1561:/ clear"); /*clear*/ /*_.LAMBDA___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1561:/ clear"); /*clear*/ /*_.LIST_EVERY__V17*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1561:/ 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.melt:1568:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1568:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1568:/ 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.melt:1569:/ cond"); /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1569:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1569:/ block"); /*block*/{ /*_#I__L9*/ curfnum[8] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1569:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1573:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1573:/ 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.melt:1573:/ 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.melt:1573:/ 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.melt:1573:/ 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.melt:1571:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1571:/ 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.melt:1568:/ block"); /*block*/{ /*_.PROGN___V22*/ curfptr[21] = /*_.LIST_EVERY__V21*/ curfptr[20];;} ; /*_.IFELSE___V18*/ curfptr[14] = /*_.PROGN___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1568:/ clear"); /*clear*/ /*_#LIST_LENGTH__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1568:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1568:/ clear"); /*clear*/ /*_.LAMBDA___V19*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1568:/ clear"); /*clear*/ /*_.LIST_EVERY__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1568:/ clear"); /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1568:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1568:/ block"); /*block*/{ /*_#IS_MULTIPLE__L10*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.CEXP__V9*/ curfptr[8])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-outobj.melt:1575:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L10*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1575:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1575:/ 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.melt:1576:/ cond"); /*cond*/ if (/*_#I__L12*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1576:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1576:/ block"); /*block*/{ /*_#I__L13*/ curfnum[12] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1576:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1580:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1580:/ 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.melt:1580:/ 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.melt:1580:/ 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.melt:1580:/ 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.melt:1578:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1578:/ 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.melt:1575:/ block"); /*block*/{ /*_.PROGN___V27*/ curfptr[26] = /*_.MULTIPLE_EVERY__V26*/ curfptr[25];;} ; /*_.IFELSE___V23*/ curfptr[16] = /*_.PROGN___V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1575:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1575:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1575:/ clear"); /*clear*/ /*_.LAMBDA___V24*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1575:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1575:/ clear"); /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1575:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1575:/ block"); /*block*/{ /*_#I__L14*/ curfnum[12] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.melt:1583:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1583:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1583:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1583:/ 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.melt:1582:/ 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.melt:1575:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1575:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V28*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1575:/ clear"); /*clear*/ /*_.PROGN___V29*/ curfptr[25] = 0 ;} ; } ; /*_.IFELSE___V18*/ curfptr[14] = /*_.IFELSE___V23*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1568:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1568:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[16] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1554:/ clear"); /*clear*/ /*_.CDEST__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1554:/ clear"); /*clear*/ /*_.CLOC__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1554:/ clear"); /*clear*/ /*_.CEXP__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1554:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1554:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1554:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1554:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1554:/ clear"); /*clear*/ /*_#IS_LIST__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1554:/ clear"); /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1554:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1554:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[14] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1552:/ 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_60_OUTPUCOD_OBJCOMPUTE*/ 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 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.melt:1564:/ getarg"); /*_.DESTCUR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1564:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:1565:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1565:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:1565:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1565:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); BASILYS_LOCATION("warmelt-outobj.melt:1564:/ block"); /*block*/{ /*_.RETVAL___V4*/ curfptr[3] = (/*nil*/NULL);; BASILYS_LOCATION("warmelt-outobj.melt:1564:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RETVAL___V4*/ curfptr[3];; BASILYS_LOCATION("warmelt-outobj.melt:1564:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1564:/ clear"); /*clear*/ /*_.RETVAL___V4*/ curfptr[3] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1564:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1564:/ 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_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_62_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 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.melt:1573:/ getarg"); /*_.EXPCUR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1573:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:1574:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1574:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:1574:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1574:/ 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.melt:1573:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:1573:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1573:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1573:/ 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_62_LAMBDA_*/ static basilys_ptr_t rout_63_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_63_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 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.melt:1580:/ getarg"); /*_.EXPCUR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1580:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:1581:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1581:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:1581:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1581:/ 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.melt:1580:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:1580:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1580:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1580:/ 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_63_LAMBDA_*/ static basilys_ptr_t rout_64_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_64_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.melt:1591:/ getarg"); /*_.OCOND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1591:/ 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.melt:1591:/ 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.melt:1591:/ 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.melt:1591:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1592:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1592:/ 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.melt:1592:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1592:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1592:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1592:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ocond"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1592)?(1592):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1592:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1592:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1592:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1593:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1593:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1593:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1593:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objcond ocond"; BASILYS_LOCATION("warmelt-outobj.melt:1593:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1593:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1593:/ apply.arg"); argtab[3].bp_long = 1593; /*_.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.melt:1593:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1593:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1593:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1594:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1594:/ 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.melt:1595:/ 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.melt:1596:/ 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.melt:1597:/ 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.melt:1599:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1599:/ block"); /*block*/{ /*_#NOTNULL__L4*/ curfnum[1] = ((/*_.CTEST__V10*/ curfptr[9]) != NULL);; BASILYS_LOCATION("warmelt-outobj.melt:1599:/ cond"); /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1599:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1599:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1599:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ctest"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1599)?(1599):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1599:/ clear"); /*clear*/ /*_#NOTNULL__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1599:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1599:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1600:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1600:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1600:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1600:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*cond*/ if (")); /*_#I__L5*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.melt:1602:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1602:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1602:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1602:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") /*then*/ {")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1605:/ cond"); /*cond*/ if (/*_.CTHEN__V11*/ curfptr[10]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1605:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1605:/ 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.melt:1605:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1605:/ clear"); /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1605:/ cond.else"); /*_#IF___L6*/ curfnum[5] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.melt:1605:/ cond"); /*cond*/ if (/*_#IF___L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1605:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1605:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1607:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1607:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1607:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1607:/ 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.melt:1608:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1608:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1608:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1608:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1606:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1605:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1605:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1605:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1613:/ cond"); /*cond*/ if (/*_.CELSE__V12*/ curfptr[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1613:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1613:/ 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.melt:1613:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1613:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[11] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1613:/ cond.else"); /*_#IF___L10*/ curfnum[7] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.melt:1613:/ cond"); /*cond*/ if (/*_#IF___L10*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1613:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1613:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} else {")); BASILYS_LOCATION("warmelt-outobj.melt:1616:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1616:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1616:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1616:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[6]), 0); /*_#I__L14*/ curfnum[11] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.melt:1618:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1618:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1618:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1618:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); /*_#I__L15*/ curfnum[14] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); BASILYS_LOCATION("warmelt-outobj.melt:1614:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1613:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V19*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1613:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1613:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1613:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1613:/ clear"); /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1613:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1613:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*noelse*/")); /*epilog*/} ; } ; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1594:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1594:/ clear"); /*clear*/ /*_.CTEST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1594:/ clear"); /*clear*/ /*_.CTHEN__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1594:/ clear"); /*clear*/ /*_.CELSE__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1594:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1594:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1594:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1594:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1594:/ clear"); /*clear*/ /*_#IF___L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1594:/ clear"); /*clear*/ /*_#IF___L10*/ curfnum[7] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1627:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1627:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1627:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1627:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objcond end ocond"; BASILYS_LOCATION("warmelt-outobj.melt:1627:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[6]; BASILYS_LOCATION("warmelt-outobj.melt:1627:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1627:/ apply.arg"); argtab[3].bp_long = 1627; /*_.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.melt:1627:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1627:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1627:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1591:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V21*/ curfptr[16];; BASILYS_LOCATION("warmelt-outobj.melt:1591:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1591:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1591:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1591:/ 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_64_OUTPUCOD_OBJCOND*/ static basilys_ptr_t rout_65_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_65_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.melt:1633:/ getarg"); /*_.OPIF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1633:/ 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.melt:1633:/ 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.melt:1633:/ 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.melt:1633:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1634:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1634:/ 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.melt:1634:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1634:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1634:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1634:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check opif"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1634)?(1634):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1634:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1634:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1634:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1635:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1635:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1635:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1635:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objcppif opif"; BASILYS_LOCATION("warmelt-outobj.melt:1635:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1635:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1635:/ apply.arg"); argtab[3].bp_long = 1635; /*_.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.melt:1635:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1635:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1635:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1636:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1636:/ 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.melt:1637:/ 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.melt:1638:/ 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.melt:1639:/ 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.melt:1642:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1642:/ block"); /*block*/{ /*_#IS_STRING__L5*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.CCOND__V10*/ curfptr[9])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:1642:/ cond"); /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1642:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1642:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1642:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ccond"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1642)?(1642):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1642:/ clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1642:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1642:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1643:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1643:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1643:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1643:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#if ")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CCOND__V10*/ curfptr[9]))); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1647:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1647:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1647:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1647:/ 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.melt:1648:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1648:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1648:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1648:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#else /*")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CCOND__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1654:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1654:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1654:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1654:/ 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.melt:1655:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1655:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1655:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1655:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#endif /*")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CCOND__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1636:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1636:/ clear"); /*clear*/ /*_.CCOND__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1636:/ clear"); /*clear*/ /*_.CTHEN__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1636:/ clear"); /*clear*/ /*_.CELSE__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1636:/ clear"); /*clear*/ /*_#DEPTHP1__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1636:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1636:/ clear"); /*clear*/ /*_.OUTPUT_RAW_LOCATION__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1636:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1636:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1636:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1636:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1633:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1633:/ 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_65_OUTPUCOD_OBJCPPIF*/ static basilys_ptr_t rout_66_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_66_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.melt:1665:/ getarg"); /*_.OISY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1665:/ 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.melt:1665:/ 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.melt:1665:/ 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.melt:1665:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1666:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1666:/ 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.melt:1666:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1666:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1666:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1666:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oisy"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1666)?(1666):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1666:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1666:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1666:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1667:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1667:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1667:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1667:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objinternsymbol oisy"; BASILYS_LOCATION("warmelt-outobj.melt:1667:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1667:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1667:/ apply.arg"); argtab[3].bp_long = 1667; /*_.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.melt:1667:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1667:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1667:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1668:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1668:/ 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.melt:1669:/ 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.melt:1670:/ 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.melt:1671:/ 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.melt:1673:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1673:/ 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.melt:1673:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1673:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1673:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1673:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oiobj"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1673)?(1673):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1673:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1673:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1673:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1674:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1674:/ 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.melt:1674:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1674:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1674:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1674:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oidat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1674)?(1674):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1674:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1674:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1674:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1675:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1675:/ 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.melt:1676:/ cond"); /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1676:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];; } else {BASILYS_LOCATION("warmelt-outobj.melt:1676:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1676:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1676:/ 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.melt:1676:/ clear"); /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:1676:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1676:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1676:/ apply.arg"); argtab[1].bp_long = 1; BASILYS_LOCATION("warmelt-outobj.melt:1676:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*internsym:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(void) basilysgc_intern_symbol((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:1682:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1682:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1682:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1682:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1675:/ clear"); /*clear*/ /*_.NSY__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1675:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1675:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1675:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1668:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1668:/ clear"); /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1668:/ clear"); /*clear*/ /*_.OIDAT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1668:/ clear"); /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1668:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1668:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1665:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1665:/ 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_66_OUTPUCOD_OBJINTERNSYMBOL*/ static basilys_ptr_t rout_67_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_67_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.melt:1689:/ getarg"); /*_.OIKW__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1689:/ 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.melt:1689:/ 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.melt:1689:/ 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.melt:1689:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1690:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1690:/ 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.melt:1690:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1690:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1690:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1690:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oikw"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1690)?(1690):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1690:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1690:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1690:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1691:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1691:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1691:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1691:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objinternkeyword oikw"; BASILYS_LOCATION("warmelt-outobj.melt:1691:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1691:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1691:/ apply.arg"); argtab[3].bp_long = 1691; /*_.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.melt:1691:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1691:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1691:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1692:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1692:/ 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.melt:1693:/ 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.melt:1694:/ 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.melt:1695:/ 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.melt:1697:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1697:/ 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.melt:1697:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1697:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1697:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1697:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oidat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1697)?(1697):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1697:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1697:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1697:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1698:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1698:/ 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.melt:1699:/ cond"); /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1699:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = /*_.CLOC__V9*/ curfptr[7];; } else {BASILYS_LOCATION("warmelt-outobj.melt:1699:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1699:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1699:/ 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.melt:1699:/ clear"); /*clear*/ /*_.NREP_LOC__V17*/ curfptr[16] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:1699:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1699:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1699:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1699:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*internkeyw:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V15*/ curfptr[13]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(void) basilysgc_intern_keyword((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:1705:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1705:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1705:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1705:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1698:/ clear"); /*clear*/ /*_.NSY__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1698:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1698:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1698:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1692:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1692:/ clear"); /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1692:/ clear"); /*clear*/ /*_.OIDAT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1692:/ clear"); /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1692:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1689:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1689:/ 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_67_OUTPUCOD_OBJINTERNKEYWORD*/ static basilys_ptr_t rout_68_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_68_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.melt:1712:/ getarg"); /*_.OGSY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1712:/ 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.melt:1712:/ 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.melt:1712:/ 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.melt:1712:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1713:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1713:/ 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.melt:1713:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1713:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1713:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1713:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogsy"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1713)?(1713):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1713:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1713:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1713:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1714:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1714:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1714:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1714:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objgetnamedsymbol ogsy"; BASILYS_LOCATION("warmelt-outobj.melt:1714:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1714:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1714:/ apply.arg"); argtab[3].bp_long = 1714; /*_.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.melt:1714:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1714:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1714:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1715:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1715:/ 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.melt:1716:/ 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.melt:1717:/ 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.melt:1718:/ 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.melt:1720:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1720:/ 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.melt:1720:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1720:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1720:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1720:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oiobj"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1720)?(1720):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1720:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1720:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1720:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1721:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1721:/ 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.melt:1721:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1721:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1721:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1721:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogdat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1721)?(1721):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1721:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1721:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1721:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1722:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1722:/ 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.melt:1724:/ cond"); /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1724:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];; } else {BASILYS_LOCATION("warmelt-outobj.melt:1724:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1724:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt: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.melt:1724:/ clear"); /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:1724:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1724:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1724:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1724:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*getnamedsym:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_")); basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = basilysgc_named_symbol(\"")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", BASILYS_GET);")); /*_#I__L6*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[1]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (sy_")); basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " && NULL == ")); /*_#I__L7*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.melt:1738:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1738:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1738:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt: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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")")); /*_#I__L8*/ curfnum[7] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7]), 0); /*_#I__L9*/ curfnum[8] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.melt:1741:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1741:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1741:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1741:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (void*) sy_")); basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "; }")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1722:/ clear"); /*clear*/ /*_.NSY__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1722:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1722:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1722:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1722:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1722:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1722:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1722:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1722:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1715:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1715:/ clear"); /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1715:/ clear"); /*clear*/ /*_.OGDAT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1715:/ clear"); /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1715:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1715:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1712:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1712:/ 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_68_OUTPUCOD_OBJGETNAMEDSYMBOL*/ static basilys_ptr_t rout_69_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_69_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.melt:1750:/ getarg"); /*_.OGKW__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1750:/ 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.melt:1750:/ 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.melt:1750:/ 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.melt:1750:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1751:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1751:/ 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.melt:1751:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1751:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1751:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1751:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogkw"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1751)?(1751):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1751:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1751:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1751:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1752:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1752:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1752:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1752:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objgetnamedkeyword ogkw"; BASILYS_LOCATION("warmelt-outobj.melt:1752:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1752:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1752:/ apply.arg"); argtab[3].bp_long = 1752; /*_.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.melt:1752:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1752:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1752:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1753:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1753:/ 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.melt:1754:/ 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.melt:1755:/ 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.melt:1756:/ 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.melt:1758:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1758:/ 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.melt:1758:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1758:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1758:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1758:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oiobj"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1758)?(1758):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1758:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1758:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1758:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1759:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1759:/ 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.melt:1759:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1759:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1759:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1759:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogdat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1759)?(1759):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1759:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1759:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1759:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1760:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1760:/ 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.melt:1761:/ cond"); /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1761:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];; } else {BASILYS_LOCATION("warmelt-outobj.melt:1761:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1761:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1761:/ 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.melt:1761:/ clear"); /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:1761:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1761:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1761:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1761:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*getnamedkeyw:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NKW__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t kw_")); basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NKW__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = basilysgc_named_keyword(\"")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NKW__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", BASILYS_GET);")); /*_#I__L6*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[1]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (kw_")); basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NKW__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") ")); /*_#I__L7*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.melt:1775:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1775:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1775:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1775:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (void*) kw_")); basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NKW__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "; }")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1760:/ clear"); /*clear*/ /*_.NKW__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1760:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1760:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1760:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1760:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1760:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1753:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1753:/ clear"); /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1753:/ clear"); /*clear*/ /*_.OGDAT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1753:/ clear"); /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1753:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1753:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1750:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1750:/ 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_69_OUTPUCOD_OBJGETNAMEDKEYWORD*/ static basilys_ptr_t rout_70_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_70_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.melt:1785:/ getarg"); /*_.OAPP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1785:/ 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.melt:1785:/ 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.melt:1785:/ 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.melt:1785:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1786:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1786:/ 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.melt:1786:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1786:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1786:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1786:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oapp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1786)?(1786):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1786:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1786:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1786:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1787:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1787:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1787:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1787:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objapply oapp"; BASILYS_LOCATION("warmelt-outobj.melt:1787:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1787:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1787:/ apply.arg"); argtab[3].bp_long = 1787; /*_.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.melt:1787:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1787:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1787:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1789:/ 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.melt:1790:/ 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.melt:1791:/ 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.melt:1792:/ 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.melt:1797:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1797:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1797:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1797:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*apply*/{")); /*_#I__L6*/ curfnum[5] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[5]), 0); /*_#I__L7*/ curfnum[6] = ((/*_#NBARG__L4*/ curfnum[1]) > (1));; BASILYS_LOCATION("warmelt-outobj.melt:1800:/ cond"); /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1800:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1800:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un argtab[")); /*_#I__L8*/ curfnum[7] = ((/*_#NBARG__L4*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L9*/ curfnum[8] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));")); /*_#I__L10*/ curfnum[9] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L10*/ curfnum[9]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1811:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1811:/ 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.melt:1811:/ 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.melt:1811:/ 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.melt:1811:/ 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.melt:1811:/ 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.melt:1811:/ 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.melt:1809:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1809:/ 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.melt:1801:/ block"); /*block*/{ /*_.PROGN___V20*/ curfptr[19] = /*_.MULTIPLE_EVERY__V19*/ curfptr[18];;} ; /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1800:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1800:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1800:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1800:/ clear"); /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1800:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1800:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1800:/ cond.else"); /*_.IF___V16*/ curfptr[15] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.melt:1844:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1844:/ 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.melt:1844:/ 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.melt:1844:/ 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.melt:1844:/ 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.melt:1842:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1842:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilys_apply ((basilysclosure_ptr_t)(")); /*_#I__L11*/ curfnum[7] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.melt:1849:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1849:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1849:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1849:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:1852:/ 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.melt:1853:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1853:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1853:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1853:/ 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.melt:1852:/ clear"); /*clear*/ /*_.FIRSTARG__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1852:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1852:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V27*/ curfptr[26] = 0 ;} ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); BASILYS_LOCATION("warmelt-outobj.melt:1859:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1859:/ 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.melt:1859:/ 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.melt:1857:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1857:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L13*/ curfnum[9] = ((/*_#NBARG__L4*/ curfnum[1]) > (1));; BASILYS_LOCATION("warmelt-outobj.melt:1864:/ cond"); /*cond*/ if (/*_#I__L13*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1864:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1864:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab,")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1864:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1864:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0,")); /*epilog*/} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \"\", (union basilysparam_un*)0")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); /*_#I__L14*/ curfnum[8] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[8]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.ALOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.ADEST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.OCLOS__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.OARGS__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.PARAMDESCLIST__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.LAMBDA___V21*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.LIST_EVERY__V23*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.LAMBDA___V28*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_.LIST_EVERY__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1788:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1785:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1785:/ 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_70_OUTPUCOD_OBJAPPLY*/ 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 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.melt:1811:/ getarg"); /*_.CURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1811:/ 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.melt:1811:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1812:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1812:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1812:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1812:/ apply.arg"); argtab[0].bp_cstring = "outputcod_objapply curarg"; BASILYS_LOCATION("warmelt-outobj.melt:1812:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1812:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1812:/ apply.arg"); argtab[3].bp_long = 1812; /*_.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.melt:1812:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1812:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1812:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1813:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1813:/ 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.melt:1813:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1813:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1813:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1813:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outputcod_objapply check curarg not objinstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1813)?(1813):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1813:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1813:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1813:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1813:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L5*/ curfnum[1] = ((/*_#CURANK__L1*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:1815:/ cond"); /*cond*/ if (/*_#I__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1815:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1815:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1816:/ block"); /*block*/{ /*_.THE_NULL__V7*/ curfptr[5] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:1816:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1816:/ 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.melt:1817:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1817:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1817:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1817:/ apply.arg"); argtab[0].bp_cstring = "outputcod_objapply curctyp"; BASILYS_LOCATION("warmelt-outobj.melt:1817:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.melt:1817:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1817:/ apply.arg"); argtab[3].bp_long = 1817; /*_.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.melt:1817:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1817:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1817:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1818:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1818:/ 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.melt:1818:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1818:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1818:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1818:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1818)?(1818):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1818:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1818:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1818:/ 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.melt:1819:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1819:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1819:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L8*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.melt:1819:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab[")); /*_#I__L9*/ curfnum[8] = ((/*_#CURANK__L1*/ curfnum[0]) - (1));; basilysgc_add_strbuf_dec((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#I__L9*/ curfnum[8])); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); BASILYS_LOCATION("warmelt-outobj.melt:1823:/ 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.melt:1824:/ cond"); /*cond*/ if (/*_#NULL__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1824:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1824:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1824:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1824:/ 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.melt:1826:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1826:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1826:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = /*nil*/(basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1826:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1826:/ block"); /*block*/{ /*_#__L12*/ curfnum[11] = ((/*_.CURCTYP__V8*/ curfptr[7]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-outobj.melt:1828:/ cond"); /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1828:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1828:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~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.melt:1830:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1830:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.melt:1830:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1830:/ 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.melt:1828:/ 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.melt:1828:/ clear"); /*clear*/ /*_#GET_INT__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1828:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1828:/ clear"); /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1828:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1828:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1833:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_ARGFIELD__V20*/ curfptr[17]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*_#GET_INT__L14*/ curfnum[12] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:1835:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1835:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.melt:1835:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1835:/ 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.melt:1832:/ 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.melt:1828:/ clear"); /*clear*/ /*_.CTYPE_ARGFIELD__V20*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1828:/ clear"); /*clear*/ /*_#GET_INT__L14*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1828:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1828:/ clear"); /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;} ; } ; /*_.IFELSE___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1826:/ clear"); /*clear*/ /*_#__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1826:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; } ; /*_.IFELSE___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1824:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1824:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*_#GET_INT__L15*/ curfnum[12] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#GET_INT__L15*/ curfnum[12]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1816:/ clear"); /*clear*/ /*_.THE_NULL__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1816:/ clear"); /*clear*/ /*_.CURCTYP__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1816:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1816:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1816:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1816:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1816:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1816:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1816:/ clear"); /*clear*/ /*_#NULL__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1816:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1816:/ clear"); /*clear*/ /*_#GET_INT__L15*/ curfnum[12] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1811:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1811:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1811:/ 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_71_LAMBDA_*/ static basilys_ptr_t rout_72_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_72_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.melt:1844:/ getarg"); /*_.CURDEST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1844:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:1845:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1845:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:1845:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1845:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1844:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1844:/ 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_72_LAMBDA_*/ 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 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.melt:1859:/ getarg"); /*_.PARD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1859:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.PARD__V2*/ curfptr[1]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~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_73_LAMBDA_*/ static basilys_ptr_t rout_74_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_74_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.melt:1879:/ getarg"); /*_.OMSEND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1879:/ 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.melt:1879:/ 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.melt:1879:/ 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.melt:1879:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1880:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1880:/ 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.melt:1880:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1880:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1880:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1880:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check omsend"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1880)?(1880):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1880:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1880:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1880:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1881:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1881:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1881:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1881:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmsend omsend"; BASILYS_LOCATION("warmelt-outobj.melt:1881:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1881:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1881:/ apply.arg"); argtab[3].bp_long = 1881; /*_.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.melt:1881:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1881:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1881:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1882:/ 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.melt:1883:/ 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.melt:1884:/ 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.melt:1885:/ 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.melt:1886:/ 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.melt:1891:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1891:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1891:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1891:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*msend*/{")); /*_#I__L6*/ curfnum[5] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[5]), 0); /*_#I__L7*/ curfnum[6] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:1894:/ cond"); /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1894:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1894:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un argtab[")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L8*/ curfnum[7] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));")); /*_#I__L9*/ curfnum[8] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1908:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1908:/ 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.melt:1908:/ 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.melt:1908:/ 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.melt:1908:/ 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.melt:1908:/ 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.melt:1908:/ 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.melt:1906:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1906:/ 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.melt:1898:/ block"); /*block*/{ /*_.PROGN___V21*/ curfptr[20] = /*_.MULTIPLE_EVERY__V20*/ curfptr[19];;} ; /*_.IF___V17*/ curfptr[16] = /*_.PROGN___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1894:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1894:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1894:/ clear"); /*clear*/ /*_.LAMBDA___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1894:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1894:/ clear"); /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1894:/ cond.else"); /*_.IF___V17*/ curfptr[16] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.melt:1940:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1940:/ 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.melt:1940:/ 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.melt:1940:/ 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.melt:1940:/ 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.melt:1938:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1938:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilysgc_send((basilys_ptr_t)(")); /*_#I__L10*/ curfnum[7] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.melt:1944:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1944:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1944:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1944:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (basilys_ptr_t)(")); /*_#I__L11*/ curfnum[8] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.melt:1946:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1946:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:1946:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1946:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); BASILYS_LOCATION("warmelt-outobj.melt:1951:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1951:/ 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.melt:1951:/ 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.melt:1949:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1949:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L12*/ curfnum[11] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:1955:/ cond"); /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1955:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1955:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab,")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1955:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1955:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0,")); /*epilog*/} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \"\", (union basilysparam_un*)0")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); /*_#I__L13*/ curfnum[12] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.ODEST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.OSEL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.ORECV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.OARGS__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.PARAMDESCLIST__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.IF___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.LAMBDA___V22*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.LIST_EVERY__V24*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.LAMBDA___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_.LIST_EVERY__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1882:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1879:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1879:/ 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_74_OUTPUCOD_OBJMSEND*/ 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 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.melt:1908:/ getarg"); /*_.CURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1908:/ 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.melt:1908:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1909:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1909:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1909:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1909:/ apply.arg"); argtab[0].bp_cstring = "outputcod_objapply curarg"; BASILYS_LOCATION("warmelt-outobj.melt:1909:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1909:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1909:/ apply.arg"); argtab[3].bp_long = 1909; /*_.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.melt:1909:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1909:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1909:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1910:/ block"); /*block*/{ /*_.THE_NULL__V5*/ curfptr[3] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:1910:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1910:/ 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.melt:1911:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1911:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1911:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1911:/ apply.arg"); argtab[0].bp_cstring = "outputcod_objmsend curctyp"; BASILYS_LOCATION("warmelt-outobj.melt:1911:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1911:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1911:/ apply.arg"); argtab[3].bp_long = 1911; /*_.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.melt:1911:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1911:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1911:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1912:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1912:/ 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.melt:1912:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1912:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1912:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1912:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1912)?(1912):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1912:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1912:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1912:/ 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.melt:1913:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1913:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1913:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L5*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1913:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab[")); basilysgc_add_strbuf_dec((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); BASILYS_LOCATION("warmelt-outobj.melt:1917:/ 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.melt:1918:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1918:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1918:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1918:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1918:/ 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.melt:1921:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1921:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1921:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = /*nil*/(basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1921:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1921:/ block"); /*block*/{ /*_#__L8*/ curfnum[7] = ((/*_.CURCTYP__V6*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-outobj.melt:1924:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1924:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1924:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~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.melt:1926:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1926:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.melt:1926:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1926:/ 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.melt:1924:/ 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.melt:1924:/ clear"); /*clear*/ /*_#GET_INT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1924:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1924:/ clear"); /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:1924:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1924:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1929:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_ARGFIELD__V18*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*_#GET_INT__L10*/ curfnum[8] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:1931:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1931:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.melt:1931:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1931:/ 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.melt:1928:/ 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.melt:1924:/ clear"); /*clear*/ /*_.CTYPE_ARGFIELD__V18*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1924:/ clear"); /*clear*/ /*_#GET_INT__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1924:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1924:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;} ; } ; /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1921:/ clear"); /*clear*/ /*_#__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1921:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; } ; /*_.IFELSE___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1918:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1918:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*_#GET_INT__L11*/ curfnum[8] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#GET_INT__L11*/ curfnum[8]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1910:/ clear"); /*clear*/ /*_.THE_NULL__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1910:/ clear"); /*clear*/ /*_.CURCTYP__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1910:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1910:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1910:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1910:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1910:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1910:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1910:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1910:/ clear"); /*clear*/ /*_#GET_INT__L11*/ curfnum[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1908:/ 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_75_LAMBDA_*/ static basilys_ptr_t rout_76_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_76_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 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.melt:1940:/ getarg"); /*_.CURDEST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1940:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:1941:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1941:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:1941:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:1941:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1940:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1940:/ 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_76_LAMBDA_*/ static basilys_ptr_t rout_77_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_77_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 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.melt:1951:/ getarg"); /*_.PARD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:1951:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.PARD__V2*/ curfptr[1]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~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_77_LAMBDA_*/ static basilys_ptr_t rout_78_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_78_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.melt:1970:/ getarg"); /*_.OAPP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:1970:/ 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.melt:1970:/ 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.melt:1970:/ 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.melt:1970:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1971:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1971:/ 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.melt:1971:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1971:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1971:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1971:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oapp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1971)?(1971):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1971:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1971:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1971:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1972:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1972:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:1972:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1972:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultiapply oapp"; BASILYS_LOCATION("warmelt-outobj.melt:1972:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:1972:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:1972:/ apply.arg"); argtab[3].bp_long = 1972; /*_.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.melt:1972:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1972:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1972:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1974:/ 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.melt:1975:/ 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.melt:1976:/ 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.melt:1977:/ 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.melt:1978:/ 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.melt:1985:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1985:/ 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.melt:1985:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1985:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1985:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1985:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oargs"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1985)?(1985):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1985:/ clear"); /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1985:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1985:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:1986:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:1986:/ 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.melt:1986:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L8*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1986:/ cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:1986:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:1986:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oxres"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(1986)?(1986):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1986:/ clear"); /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1986:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:1986:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:1987:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1987:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:1987:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:1987:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*multiapply ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "args, ")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "x.res*/ ")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{")); /*_#I__L9*/ curfnum[6] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[6]), 0); /*_#I__L10*/ curfnum[9] = ((/*_#NBARG__L4*/ curfnum[1]) > (1));; BASILYS_LOCATION("warmelt-outobj.melt:1995:/ cond"); /*cond*/ if (/*_#I__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:1995:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:1995:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un argtab[")); /*_#I__L11*/ curfnum[10] = ((/*_#NBARG__L4*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L12*/ curfnum[11] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L12*/ curfnum[11]), 0); BASILYS_LOCATION("warmelt-outobj.melt:1996:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1995:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1995:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;} ; } /*noelse*/ ; /*_#I__L13*/ curfnum[10] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2002:/ cond"); /*cond*/ if (/*_#I__L13*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2002:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2002:/ block"); /*block*/{ /*_#I__L14*/ curfnum[11] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[11]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un restab[")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L15*/ curfnum[14] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0); BASILYS_LOCATION("warmelt-outobj.melt:2003:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2002:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2002:/ clear"); /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;} ; } /*noelse*/ ; /*_#I__L16*/ curfnum[11] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2010:/ cond"); /*cond*/ if (/*_#I__L16*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2010:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2010:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&restab, 0, sizeof(restab));")); /*_#I__L17*/ curfnum[14] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L17*/ curfnum[14]), 0); BASILYS_LOCATION("warmelt-outobj.melt:2017:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2017:/ 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.melt:2017:/ 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.melt:2015:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2015:/ 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.melt:2011:/ block"); /*block*/{ /*_.PROGN___V26*/ curfptr[25] = /*_.MULTIPLE_EVERY__V25*/ curfptr[24];;} ; /*_.IF___V22*/ curfptr[21] = /*_.PROGN___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2010:/ clear"); /*clear*/ /*_#I__L17*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2010:/ clear"); /*clear*/ /*_.LAMBDA___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2010:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2010:/ clear"); /*clear*/ /*_.PROGN___V26*/ curfptr[25] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2010:/ cond.else"); /*_.IF___V22*/ curfptr[21] = NULL;; } ; /*_#I__L18*/ curfnum[14] = ((/*_#NBARG__L4*/ curfnum[1]) > (1));; BASILYS_LOCATION("warmelt-outobj.melt:2020:/ cond"); /*cond*/ if (/*_#I__L18*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2020:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2020:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));")); /*_#I__L19*/ curfnum[18] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L19*/ curfnum[18]), 0); BASILYS_LOCATION("warmelt-outobj.melt:2027:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2027:/ 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.melt:2027:/ 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.melt:2027:/ 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.melt:2027:/ 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.melt:2027:/ 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.melt:2027:/ 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.melt:2025:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2025:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L20*/ curfnum[19]), 0); BASILYS_LOCATION("warmelt-outobj.melt:2021:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2020:/ clear"); /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2020:/ clear"); /*clear*/ /*_.LAMBDA___V27*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2020:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V29*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2020:/ clear"); /*clear*/ /*_#GET_INT__L20*/ curfnum[19] = 0 ;} ; } /*noelse*/ ; /*_#I__L21*/ curfnum[18] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2055:/ cond"); /*cond*/ if (/*_#I__L21*/ curfnum[18]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2055:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2055:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2059:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2059:/ 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.melt:2059:/ 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.melt:2059:/ 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.melt:2059:/ 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.melt:2059:/ 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.melt:2057:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2057:/ 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.melt:2056:/ block"); /*block*/{ /*_.PROGN___V34*/ curfptr[33] = /*_.MULTIPLE_EVERY__V33*/ curfptr[32];;} ; /*_.IF___V30*/ curfptr[22] = /*_.PROGN___V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2055:/ clear"); /*clear*/ /*_.LAMBDA___V31*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2055:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2055:/ clear"); /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2055:/ 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.melt:2084:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2084:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2084:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L22*/ curfnum[19]; BASILYS_LOCATION("warmelt-outobj.melt:2084:/ 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.melt:2088:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2088:/ 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.melt:2088:/ 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.melt:2088:/ 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.melt:2088:/ 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.melt:2086:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2086:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilys_apply ((basilysclosure_ptr_t)(")); /*_#I__L23*/ curfnum[22] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.melt:2093:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2093:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2093:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2093:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2096:/ 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.melt:2097:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2097:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2097:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2097:/ 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.melt:2096:/ clear"); /*clear*/ /*_.FIRSTARG__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2096:/ clear"); /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2096:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V42*/ curfptr[41] = 0 ;} ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); BASILYS_LOCATION("warmelt-outobj.melt:2103:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2103:/ 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.melt:2103:/ 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.melt:2101:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2101:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L25*/ curfnum[23] = ((/*_#NBARG__L4*/ curfnum[1]) > (1));; BASILYS_LOCATION("warmelt-outobj.melt:2108:/ cond"); /*cond*/ if (/*_#I__L25*/ curfnum[23]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2108:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2108:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab, (")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2108:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2108:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0, (")); /*epilog*/} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:2114:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2114:/ 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.melt:2114:/ 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.melt:2112:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2112:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L26*/ curfnum[25] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2119:/ cond"); /*cond*/ if (/*_#I__L26*/ curfnum[25]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2119:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2119:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "restab")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2119:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2119:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0")); /*epilog*/} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); /*_#I__L27*/ curfnum[26] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L27*/ curfnum[26]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.ALOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.ADEST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.OCLOS__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.OARGS__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.OXRES__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#NBXRES__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.PARAMDESCLIST__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.RESDESCLIST__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.IF___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#I__L18*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#I__L21*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.IF___V30*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#GET_INT__L22*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V35*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.LAMBDA___V36*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.LIST_EVERY__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.LET___V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.LAMBDA___V43*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.LIST_EVERY__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#I__L25*/ curfnum[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.LAMBDA___V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_.LIST_EVERY__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#I__L26*/ curfnum[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1973:/ clear"); /*clear*/ /*_#I__L27*/ curfnum[26] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:1970:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:1970:/ 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_78_OUTPUCOD_OBJMULTIAPPLY*/ 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 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.melt:2017:/ getarg"); /*_.CURES__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2017:/ 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.melt:2017:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2018:/ block"); /*block*/{ /*_.THE_NULL__V3*/ curfptr[2] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:2018:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2018:/ 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.melt:2019:/ 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.melt:2018:/ clear"); /*clear*/ /*_.THE_NULL__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2018:/ clear"); /*clear*/ /*_.CURCTYP__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2018:/ 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_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 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.melt:2027:/ getarg"); /*_.CURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2027:/ 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.melt:2027:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2028:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2028:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2028:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2028:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultiapply curarg"; BASILYS_LOCATION("warmelt-outobj.melt:2028:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2028:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2028:/ apply.arg"); argtab[3].bp_long = 2028; /*_.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.melt:2028:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2028:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2028:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L3*/ curfnum[1] = ((/*_#CURANK__L1*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2029:/ cond"); /*cond*/ if (/*_#I__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2029:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2029:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2030:/ block"); /*block*/{ /*_.THE_NULL__V5*/ curfptr[3] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:2030:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2030:/ 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.melt:2031:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2031:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2031:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2031:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultiapply curctyp"; BASILYS_LOCATION("warmelt-outobj.melt:2031:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.melt:2031:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2031:/ apply.arg"); argtab[3].bp_long = 2031; /*_.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.melt:2031:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2031:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2031:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2032:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2032:/ 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.melt:2032:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2032:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2032:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2032:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2032)?(2032):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2032:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2032:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2032:/ 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.melt:2033:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2033:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2033:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L6*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.melt:2033:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab[")); /*_#I__L7*/ curfnum[6] = ((/*_#CURANK__L1*/ curfnum[0]) - (1));; basilysgc_add_strbuf_dec((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#I__L7*/ curfnum[6])); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); BASILYS_LOCATION("warmelt-outobj.melt:2037:/ 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.melt:2039:/ cond"); /*cond*/ if (/*_#NULL__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2039:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2039:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2039:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2039:/ block"); /*block*/{ /*_#__L9*/ curfnum[8] = ((/*_.CURCTYP__V6*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.melt:2041:/ cond"); /*cond*/ if (/*_#__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2041:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2041:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~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.melt:2043:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2043:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.melt:2043:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2043:/ 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.melt:2041:/ 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.melt:2041:/ clear"); /*clear*/ /*_#GET_INT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2041:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2041:/ clear"); /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2041:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2041:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2046:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_ARGFIELD__V17*/ curfptr[14]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*_#GET_INT__L11*/ curfnum[9] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:2048:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2048:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.melt:2048:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2048:/ 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.melt:2045:/ 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.melt:2041:/ clear"); /*clear*/ /*_.CTYPE_ARGFIELD__V17*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2041:/ clear"); /*clear*/ /*_#GET_INT__L11*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2041:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2041:/ clear"); /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} ; } ; /*_.IFELSE___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2039:/ clear"); /*clear*/ /*_#__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2039:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2030:/ clear"); /*clear*/ /*_.THE_NULL__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2030:/ clear"); /*clear*/ /*_.CURCTYP__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2030:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2030:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2030:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2030:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2030:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2030:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2030:/ clear"); /*clear*/ /*_#NULL__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2030:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2027:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2027:/ 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_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 16 void* varptr[16]; #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<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.melt:2059:/ getarg"); /*_.CURES__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2059:/ 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.melt:2059:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2060:/ block"); /*block*/{ /*_.THE_NULL__V3*/ curfptr[2] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:2060:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2060:/ 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.melt:2061:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2061:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2061:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2061:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultiapply curestyp"; BASILYS_LOCATION("warmelt-outobj.melt:2061:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2061:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2061:/ apply.arg"); argtab[3].bp_long = 2061; /*_.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.melt:2061:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2061:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2061:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2062:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2062:/ 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.melt:2062:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2062:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2062:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2062:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curestyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2062)?(2062):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2062:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2062:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2062:/ 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.melt:2063:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2063:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2063:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2063:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "restab[")); basilysgc_add_strbuf_dec((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); /*_#NULL__L5*/ curfnum[4] = ((/*_.CURES__V2*/ curfptr[1]) == NULL);; BASILYS_LOCATION("warmelt-outobj.melt:2068:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2068:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2068:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2068:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2068:/ block"); /*block*/{ /*_#__L6*/ curfnum[5] = ((/*_.CURESTYP__V4*/ curfptr[3]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.melt:2070:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2070:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2070:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~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.melt:2072:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2072:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-outobj.melt:2072:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2072:/ 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.melt:2070:/ 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.melt:2070:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2070:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2070:/ clear"); /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2070:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2070:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2075:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_RESFIELD__V14*/ curfptr[11]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = & ")); /*_#GET_INT__L8*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:2077:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2077:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-outobj.melt:2077:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2077:/ 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.melt:2074:/ 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.melt:2070:/ clear"); /*clear*/ /*_.CTYPE_RESFIELD__V14*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2070:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2070:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2070:/ clear"); /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;} ; } ; /*_.IFELSE___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2068:/ clear"); /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2068:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*_#GET_INT__L9*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#GET_INT__L9*/ curfnum[6]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2060:/ clear"); /*clear*/ /*_.THE_NULL__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2060:/ clear"); /*clear*/ /*_.CURESTYP__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2060:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2060:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2060:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2060:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2060:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2060:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2060:/ clear"); /*clear*/ /*_#GET_INT__L9*/ curfnum[6] = 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 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.melt:2088:/ getarg"); /*_.CURDEST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2088:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:2089:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2089:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:2089:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2089:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2088:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2088:/ 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_82_LAMBDA_*/ static basilys_ptr_t rout_83_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_83_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 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.melt:2103:/ getarg"); /*_.PARD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2103:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.PARD__V2*/ curfptr[1]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~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_83_LAMBDA_*/ static basilys_ptr_t rout_84_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_84_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 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.melt:2114:/ getarg"); /*_.RESD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2114:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.RESD__V2*/ curfptr[1]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~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_84_LAMBDA_*/ static basilys_ptr_t rout_85_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_85_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.melt:2134:/ getarg"); /*_.OMSND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2134:/ 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.melt:2134:/ 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.melt:2134:/ 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.melt:2134:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2135:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2135:/ 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.melt:2135:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2135:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2135:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2135:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check omsnd"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2135)?(2135):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2135:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2135:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2135:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2136:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2136:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2136:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2136:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultimsend omsnd"; BASILYS_LOCATION("warmelt-outobj.melt:2136:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2136:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2136:/ apply.arg"); argtab[3].bp_long = 2136; /*_.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.melt:2136:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2136:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2136:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2137:/ 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.melt:2138:/ 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.melt:2139:/ 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.melt:2140:/ 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.melt:2141:/ 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.melt:2142:/ 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.melt:2149:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2149:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2149:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2149:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*multimsend*/{")); /*_#I__L7*/ curfnum[6] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L7*/ curfnum[6]), 0); /*_#I__L8*/ curfnum[7] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2152:/ cond"); /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2152:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2152:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un argtab[")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L9*/ curfnum[8] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); BASILYS_LOCATION("warmelt-outobj.melt:2153:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2152:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;} ; } /*noelse*/ ; /*_#I__L10*/ curfnum[8] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2159:/ cond"); /*cond*/ if (/*_#I__L10*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2159:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2159:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un restab[")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L11*/ curfnum[10] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]), 0); BASILYS_LOCATION("warmelt-outobj.melt:2168:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2168:/ 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.melt:2168:/ 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.melt:2166:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2166:/ 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.melt:2160:/ block"); /*block*/{ /*_.PROGN___V23*/ curfptr[22] = /*_.MULTIPLE_EVERY__V22*/ curfptr[21];;} ; /*_.IF___V19*/ curfptr[18] = /*_.PROGN___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2159:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2159:/ clear"); /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2159:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2159:/ clear"); /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2159:/ cond.else"); /*_.IF___V19*/ curfptr[18] = NULL;; } ; /*_#I__L12*/ curfnum[10] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2172:/ cond"); /*cond*/ if (/*_#I__L12*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2172:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2172:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));")); /*_#I__L13*/ curfnum[12] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]), 0); BASILYS_LOCATION("warmelt-outobj.melt:2173:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2172:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;} ; } /*noelse*/ ; /*_#I__L14*/ curfnum[12] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2176:/ cond"); /*cond*/ if (/*_#I__L14*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2176:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2176:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&restab, 0, sizeof(restab));")); /*_#I__L15*/ curfnum[14] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0); BASILYS_LOCATION("warmelt-outobj.melt:2177:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2176:/ clear"); /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;} ; } /*noelse*/ ; /*_#I__L16*/ curfnum[14] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2181:/ cond"); /*cond*/ if (/*_#I__L16*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2181:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2181:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2186:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2186:/ 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.melt:2186:/ 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.melt:2186:/ 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.melt:2186:/ 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.melt:2186:/ 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.melt:2186:/ 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.melt:2184:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2184:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L17*/ curfnum[16]), 0); BASILYS_LOCATION("warmelt-outobj.melt:2182:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2181:/ clear"); /*clear*/ /*_.LAMBDA___V24*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2181:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2181:/ clear"); /*clear*/ /*_#GET_INT__L17*/ curfnum[16] = 0 ;} ; } /*noelse*/ ; /*_#I__L18*/ curfnum[16] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2213:/ cond"); /*cond*/ if (/*_#I__L18*/ curfnum[16]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2213:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2213:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2217:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2217:/ 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.melt:2217:/ 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.melt:2217:/ 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.melt:2217:/ 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.melt:2217:/ 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.melt:2215:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2215:/ 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.melt:2214:/ block"); /*block*/{ /*_.PROGN___V31*/ curfptr[30] = /*_.MULTIPLE_EVERY__V30*/ curfptr[29];;} ; /*_.IF___V27*/ curfptr[19] = /*_.PROGN___V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2213:/ clear"); /*clear*/ /*_.LAMBDA___V28*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2213:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2213:/ clear"); /*clear*/ /*_.PROGN___V31*/ curfptr[30] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2213:/ 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.melt:2242:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2242:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2242:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L19*/ curfnum[18]; BASILYS_LOCATION("warmelt-outobj.melt:2242:/ 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.melt:2246:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2246:/ 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.melt:2246:/ 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.melt:2246:/ 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.melt:2246:/ 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.melt:2244:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2244:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilysgc_send ((basilys_ptr_t)(")); /*_#I__L20*/ curfnum[19] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.melt:2251:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2251:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2251:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2251:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ((basilys_ptr_t)(")); /*_#I__L21*/ curfnum[20] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.melt:2254:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2254:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2254:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2254:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")), (")); BASILYS_LOCATION("warmelt-outobj.melt:2259:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2259:/ 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.melt:2259:/ 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.melt:2257:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2257:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L22*/ curfnum[21] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2264:/ cond"); /*cond*/ if (/*_#I__L22*/ curfnum[21]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2264:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2264:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab, (")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2264:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2264:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0, (")); /*epilog*/} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:2270:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2270:/ 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.melt:2270:/ 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.melt:2268:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2268:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L23*/ curfnum[22] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.melt:2275:/ cond"); /*cond*/ if (/*_#I__L23*/ curfnum[22]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2275:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2275:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "restab")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2275:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2275:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0")); /*epilog*/} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); /*_#I__L24*/ curfnum[23] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L24*/ curfnum[23]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.ODEST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.OSEL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.ORECV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.OARGS__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.OXRES__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#NBXRES__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.PARAMDESCLIST__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.RESDESCLIST__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L18*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#GET_INT__L19*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V32*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.LAMBDA___V33*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.LIST_EVERY__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.LAMBDA___V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.LIST_EVERY__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L22*/ curfnum[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.LAMBDA___V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_.LIST_EVERY__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2137:/ clear"); /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2134:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2134:/ 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_85_OUTPUCOD_OBJMULTIMSEND*/ 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 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.melt:2168:/ getarg"); /*_.CURES__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2168:/ 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.melt:2168:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2169:/ block"); /*block*/{ /*_.THE_NULL__V3*/ curfptr[2] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:2169:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2169:/ 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.melt:2170:/ 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.melt:2169:/ clear"); /*clear*/ /*_.THE_NULL__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2169:/ clear"); /*clear*/ /*_.CURESTYP__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2169:/ 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_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 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.melt:2186:/ getarg"); /*_.CURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2186:/ 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.melt:2186:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2187:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2187:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2187:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2187:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultimsend curarg"; BASILYS_LOCATION("warmelt-outobj.melt:2187:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2187:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2187:/ apply.arg"); argtab[3].bp_long = 2187; /*_.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.melt:2187:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2187:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2187:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2188:/ block"); /*block*/{ /*_.THE_NULL__V5*/ curfptr[3] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:2188:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2188:/ 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.melt:2189:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2189:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2189:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2189:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultimsend curctyp"; BASILYS_LOCATION("warmelt-outobj.melt:2189:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2189:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2189:/ apply.arg"); argtab[3].bp_long = 2189; /*_.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.melt:2189:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2189:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2189:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2190:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2190:/ 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.melt:2190:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2190:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2190:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2190:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2190)?(2190):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2190:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2190:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2190:/ 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.melt:2191:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2191:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2191:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L5*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2191:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab[")); basilysgc_add_strbuf_dec((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); BASILYS_LOCATION("warmelt-outobj.melt:2195:/ 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.melt:2197:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2197:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2197:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2197:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2197:/ block"); /*block*/{ /*_#__L7*/ curfnum[6] = ((/*_.CURCTYP__V6*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.melt:2199:/ cond"); /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2199:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2199:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~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.melt:2201:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2201:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.melt:2201:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2201:/ 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.melt:2199:/ 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.melt:2199:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2199:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2199:/ clear"); /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2199:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2199:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2204:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_ARGFIELD__V17*/ curfptr[14]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*_#GET_INT__L9*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:2206:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2206:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.melt:2206:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2206:/ 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.melt:2203:/ 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.melt:2199:/ clear"); /*clear*/ /*_.CTYPE_ARGFIELD__V17*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2199:/ clear"); /*clear*/ /*_#GET_INT__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2199:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2199:/ clear"); /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} ; } ; /*_.IFELSE___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2197:/ clear"); /*clear*/ /*_#__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2197:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2188:/ clear"); /*clear*/ /*_.THE_NULL__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2188:/ clear"); /*clear*/ /*_.CURCTYP__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2188:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2188:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2188:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2188:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2188:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2188:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2188:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2186:/ 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_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 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.melt:2217:/ getarg"); /*_.CURES__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2217:/ 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.melt:2217:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2218:/ block"); /*block*/{ /*_.THE_NULL__V3*/ curfptr[2] = (NULL);; BASILYS_LOCATION("warmelt-outobj.melt:2218:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2218:/ 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.melt:2219:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2219:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2219:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2219:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultimsend curestyp"; BASILYS_LOCATION("warmelt-outobj.melt:2219:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2219:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2219:/ apply.arg"); argtab[3].bp_long = 2219; /*_.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.melt:2219:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2219:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2219:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2220:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2220:/ 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.melt:2220:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2220:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2220:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2220:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curestyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2220)?(2220):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2220:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2220:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2220:/ 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.melt:2221:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2221:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2221:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2221:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "restab[")); basilysgc_add_strbuf_dec((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); /*_#NULL__L5*/ curfnum[4] = ((/*_.CURES__V2*/ curfptr[1]) == NULL);; BASILYS_LOCATION("warmelt-outobj.melt:2226:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2226:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2226:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2226:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2226:/ block"); /*block*/{ /*_#__L6*/ curfnum[5] = ((/*_.CURESTYP__V4*/ curfptr[3]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.melt:2229:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2229:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2229:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~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.melt:2231:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2231:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-outobj.melt:2231:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2231:/ 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.melt:2229:/ 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.melt:2229:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2229:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2229:/ clear"); /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2229:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2229:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2234:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_RESFIELD__V14*/ curfptr[11]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*_#GET_INT__L8*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:2236:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2236:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-outobj.melt:2236:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2236:/ 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.melt:2233:/ 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.melt:2229:/ clear"); /*clear*/ /*_.CTYPE_RESFIELD__V14*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2229:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2229:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2229:/ clear"); /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;} ; } ; /*_.IFELSE___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2226:/ clear"); /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2226:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2218:/ clear"); /*clear*/ /*_.THE_NULL__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2218:/ clear"); /*clear*/ /*_.CURESTYP__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2218:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2218:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2218:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2218:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2218:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2218:/ 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_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 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.melt:2246:/ getarg"); /*_.CURDEST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2246:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:2247:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2247:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:2247:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2247:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2246:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2246:/ 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_89_LAMBDA_*/ static basilys_ptr_t rout_90_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_90_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.melt:2259:/ getarg"); /*_.PARD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2259:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.PARD__V2*/ curfptr[1]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~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_90_LAMBDA_*/ static basilys_ptr_t rout_91_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_91_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.melt:2270:/ getarg"); /*_.RESD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2270:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.RESD__V2*/ curfptr[1]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~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_91_LAMBDA_*/ static basilys_ptr_t rout_92_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_92_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.melt:2288:/ getarg"); /*_.OCLEAR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2288:/ 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.melt:2288:/ 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.melt:2288:/ 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.melt:2288:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2289:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2289:/ 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.melt:2289:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2289:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2289:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2289:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oclear"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2289)?(2289):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2289:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2289:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2289:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2290:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2290:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2290:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2290:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objclear oclear"; BASILYS_LOCATION("warmelt-outobj.melt:2290:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2290:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2290:/ apply.arg"); argtab[3].bp_long = 2290; /*_.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.melt:2290:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2290:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2290:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2291:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2291:/ 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.melt:2292:/ 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.melt:2294:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2294:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2294:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2294:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*clear*/ ")); /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.melt:2296:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2296:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2296:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2296:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = 0 ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2291:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2291:/ clear"); /*clear*/ /*_.CVL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2291:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2291:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2291:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2288:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2288:/ 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_92_OUTPUCOD_OBJCLEAR*/ static basilys_ptr_t rout_93_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_93_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.melt:2303:/ getarg"); /*_.ORALOB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2303:/ 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.melt:2303:/ 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.melt:2303:/ 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.melt:2303:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2304:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2304:/ 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.melt:2304:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2304:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2304:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2304:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oralob"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2304)?(2304):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2304:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2304:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2304:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2305:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2305:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2305:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2305:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objrawallocobj oralob"; BASILYS_LOCATION("warmelt-outobj.melt:2305:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2305:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2305:/ apply.arg"); argtab[3].bp_long = 2305; /*_.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.melt:2305:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2305:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2305:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2306:/ 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.melt:2307:/ 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.melt:2308:/ 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.melt:2309:/ 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.melt:2310:/ 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.melt:2313:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2313:/ 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.melt:2313:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2313:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2313:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2313:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outpucod_objrawallocobj check iclass"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2313)?(2313):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2313:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2313:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2313:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2314:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2314:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2314:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2314:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*rawallocobj*/ { basilys_ptr_t newobj = 0;")); /*_#I__L6*/ curfnum[4] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[4]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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.melt:2318:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2318:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2318:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2318:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); /*_#GET_INT__L8*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));; BASILYS_LOCATION("warmelt-outobj.melt:2320:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2320:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2320:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2320:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), \"")); basilysgc_add_strbuf_cstr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ICLANAME__V11*/ curfptr[10]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");")); BASILYS_LOCATION("warmelt-outobj.melt:2326:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2326:/ 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.melt:2326:/ 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.melt:2326:/ 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.melt:2326:/ 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.melt:2324:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2324:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "newobj; };")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.ICLASS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.ICLANAME__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.ILEN__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.DESTLIST__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_.LIST_EVERY__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2306:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2303:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2303:/ 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_93_OUTPUCOD_OBJRAWALLOCOBJ*/ 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.melt:2326:/ getarg"); /*_.DST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2326:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:2327:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2327:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:2327:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2327:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " =")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2326:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2326:/ 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_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_95_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.melt:2337:/ getarg"); /*_.OBNCLO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2337:/ 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.melt:2337:/ 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.melt:2337:/ 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.melt:2337:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2338:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2338:/ 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.melt:2338:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2338:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2338:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2338:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oralob"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2338)?(2338):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2338:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2338:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2338:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2339:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2339:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2339:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2339:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objnewclosure obnclo"; BASILYS_LOCATION("warmelt-outobj.melt:2339:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2339:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2339:/ apply.arg"); argtab[3].bp_long = 2339; /*_.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.melt:2339:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2339:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2339:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2340:/ 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.melt:2341:/ 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.melt:2342:/ 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.melt:2343:/ 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.melt:2344:/ 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.melt:2347:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2347:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2347:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2347:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " /*newclosure*/ ")); BASILYS_LOCATION("warmelt-outobj.melt:2351:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2351:/ 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.melt:2351:/ 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.melt:2351:/ 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.melt:2351:/ 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.melt:2349:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2349:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L5*/ curfnum[4]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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.melt:2356:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2356:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2356:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2356:/ 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((basilys_ptr_t)(/*_.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.melt:2358:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2358:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2358:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2358:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); /*_#GET_INT__L8*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));; BASILYS_LOCATION("warmelt-outobj.melt:2360:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2360:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2360:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2360:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.ODISCR__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.OLEN__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.DESTLIST__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.LIST_EVERY__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2340:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2337:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2337:/ 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_95_OUTPUCOD_OBJNEWCLOSURE*/ static basilys_ptr_t rout_96_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_96_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #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.melt:2351:/ getarg"); /*_.DST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2351:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:2352:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2352:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:2352:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2352:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " =")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2351:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2351:/ 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_96_LAMBDA_*/ static basilys_ptr_t rout_97_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_97_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.melt:2367:/ getarg"); /*_.OTOUCH__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2367:/ 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.melt:2367:/ 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.melt:2367:/ 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.melt:2367:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2368:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2368:/ 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.melt:2368:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2368:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2368:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2368:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oclear"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2368)?(2368):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2368:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2368:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2368:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2369:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2369:/ 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.melt:2370:/ 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.melt:2371:/ 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.melt:2373:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2373:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2373:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2373:/ 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.melt:2374:/ cond"); /*cond*/ if (/*_.COMM__V9*/ curfptr[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2374:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2374:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*touch:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.COMM__V9*/ curfptr[8]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.melt:2375:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilysgc_touch(")); BASILYS_LOCATION("warmelt-outobj.melt:2382:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2382:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2382:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2382:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2369:/ clear"); /*clear*/ /*_.ILOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2369:/ clear"); /*clear*/ /*_.TOUCHED__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2369:/ clear"); /*clear*/ /*_.COMM__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2369:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2369:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2367:/ 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_97_OUTPUCOD_OBJTOUCH*/ static basilys_ptr_t rout_98_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_98_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.melt:2392:/ getarg"); /*_.OPTUP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2392:/ 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.melt:2392:/ 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.melt:2392:/ 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.melt:2392:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2393:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2393:/ 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.melt:2393:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2393:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2393:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2393:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check optyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2393)?(2393):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2393:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2393:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2393:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2394:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2394:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2394:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2394:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objputuple optup"; BASILYS_LOCATION("warmelt-outobj.melt:2394:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2394:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2394:/ apply.arg"); argtab[3].bp_long = 2394; /*_.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.melt:2394:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2394:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2394:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2395:/ 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.melt:2396:/ 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.melt:2397:/ 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.melt:2398:/ 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.melt:2399:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2399:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2399:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2399:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putupl*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putupl checktup\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2403:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2403:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2403:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2403:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))== OBMAG_MULTIPLE);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putupl checkoff\", (")); BASILYS_LOCATION("warmelt-outobj.melt:2407:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2407:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2407:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2407:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">=0 && ")); BASILYS_LOCATION("warmelt-outobj.melt:2409:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2409:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2409:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2409:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< basilys_multiple_length((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2411:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2411:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2411:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2411:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))));")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysmultiple_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2415:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2415:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2415:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2415:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))->tabval[")); BASILYS_LOCATION("warmelt-outobj.melt:2417:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2417:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2417:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2417:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2419:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2419:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2419:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2419:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.OTUP__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.OVAL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2395:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2392:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2392:/ 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_98_OUTPUCOD_OBJPUTUPLE*/ static basilys_ptr_t rout_99_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_99_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.melt:2427:/ getarg"); /*_.OGSL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2427:/ 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.melt:2427:/ 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.melt:2427:/ 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.melt:2427:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2428:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2428:/ 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.melt:2428:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2428:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2428:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2428:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogsl"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2428)?(2428):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2428:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2428:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2428:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2429:/ 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.melt:2430:/ 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.melt:2431:/ 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.melt:2432:/ 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.melt:2435:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2435:/ 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.melt:2435:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2435:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2435:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2435:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ofield"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2435)?(2435):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2435:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2435:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2435:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2436:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2436:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2436:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2436:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objgetslot ogsl"; BASILYS_LOCATION("warmelt-outobj.melt:2436:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.melt:2436:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2436:/ apply.arg"); argtab[3].bp_long = 2436; /*_.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.melt:2436:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2436:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2436:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2437:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2437:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2437:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2437:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{ basilys_ptr_t slot=0;")); /*_#I__L6*/ curfnum[3] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[3]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_object_get_field(slot,(basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2441:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2441:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2441:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2441:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ")); /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.OFIELD__V10*/ curfptr[9])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ", \"")); BASILYS_LOCATION("warmelt-outobj.melt:2445:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[17]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");")); BASILYS_LOCATION("warmelt-outobj.melt:2449:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2449:/ 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.melt:2449:/ 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.melt:2449:/ 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.melt:2449:/ 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.melt:2447:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2447:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "slot; };")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.DESTLIST__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.OOBJ__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.OFIELD__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.LAMBDA___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2429:/ clear"); /*clear*/ /*_.LIST_EVERY__V21*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2427:/ 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_99_OUTPUCOD_OBJGETSLOT*/ static basilys_ptr_t rout_100_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_100_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 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.melt:2449:/ getarg"); /*_.DST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2449:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:2450:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2450:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:2450:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2450:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2449:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2449:/ 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_100_LAMBDA_*/ static basilys_ptr_t rout_101_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_101_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.melt:2458:/ getarg"); /*_.OPSLO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2458:/ 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.melt:2458:/ 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.melt:2458:/ 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.melt:2458:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2459:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2459:/ 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.melt:2459:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2459:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2459:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2459:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check opslo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2459)?(2459):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2459:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2459:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2459:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2460:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2460:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2460:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2460:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objputslot opslo"; BASILYS_LOCATION("warmelt-outobj.melt:2460:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2460:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2460:/ apply.arg"); argtab[3].bp_long = 2460; /*_.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.melt:2460:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2460:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2460:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2461:/ 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.melt:2462:/ 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.melt:2463:/ 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.melt:2464:/ 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.melt:2465:/ 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.melt:2467:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2467:/ 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.melt:2467:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2467:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2467:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2467:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outpucod_objputslot check oval not nrep"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2467)?(2467):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2467:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2467:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2467:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2467:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2468:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2468:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2468:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2468:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putslot*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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.melt:2472:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2472:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2472:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " ")); BASILYS_LOCATION("warmelt-outobj.melt:2475:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V17*/ curfptr[16]))); BASILYS_LOCATION("warmelt-outobj.melt:2473:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2472:/ clear"); /*clear*/ /*_.NAMED_NAME__V17*/ curfptr[16] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2477:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2477:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2477:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2477:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_OBJECT);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putslot checkoff\", (")); BASILYS_LOCATION("warmelt-outobj.melt:2481:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2481:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2481:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2481:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">=0 && ")); BASILYS_LOCATION("warmelt-outobj.melt:2483:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2483:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2483:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2483:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< basilys_object_length((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2485:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2485:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2485:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2485:/ 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((basilys_ptr_t)(/*_.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.melt:2487:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2487:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2487:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_putfield_object((")); BASILYS_LOCATION("warmelt-outobj.melt:2490:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2490:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2490:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2490:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); BASILYS_LOCATION("warmelt-outobj.melt:2492:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2492:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2492:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2492:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); /*_#I__L8*/ curfnum[7] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.melt:2494:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2494:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2494:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2494:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), \"")); BASILYS_LOCATION("warmelt-outobj.melt:2496:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[24]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");")); BASILYS_LOCATION("warmelt-outobj.melt:2488:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2487:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2487:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2487:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2487:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2487:/ clear"); /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2487:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2487:/ block"); /*block*/{ basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysobject_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2503:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2503:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2503:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2503:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))->obj_vartab[")); BASILYS_LOCATION("warmelt-outobj.melt:2505:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2505:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2505:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2505:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); /*_#I__L9*/ curfnum[7] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[7]), 0); /*_#I__L10*/ curfnum[9] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.melt:2508:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2508:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2508:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2508:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); BASILYS_LOCATION("warmelt-outobj.melt:2499:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2487:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2487:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V27*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2487:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2487:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2487:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V28*/ curfptr[23] = 0 ;} ; } ; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_.ODATA__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_.OFIELD__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_.OVAL__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2461:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2458:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2458:/ 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_101_OUTPUCOD_OBJPUTSLOT*/ static basilys_ptr_t rout_102_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_102_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.melt:2518:/ getarg"); /*_.OPCLOR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2518:/ 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.melt:2518:/ 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.melt:2518:/ 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.melt:2518:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2519:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2519:/ 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.melt:2519:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2519:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2519:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2519:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check opclor"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2519)?(2519):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2519:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2519:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2519:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2520:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2520:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2520:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2520:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objputclosurout opclor"; BASILYS_LOCATION("warmelt-outobj.melt:2520:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2520:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2520:/ apply.arg"); argtab[3].bp_long = 2520; /*_.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.melt:2520:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2520:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2520:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2521:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2521:/ 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.melt:2522:/ 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.melt:2523:/ 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.melt:2524:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2524:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2524:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2524:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosurout*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosrout checkclo\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2528:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2528:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2528:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2528:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosrout checkrout\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2532:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2532:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2532:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2532:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysclosure_ptr_t)")); BASILYS_LOCATION("warmelt-outobj.melt:2536:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2536:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2536:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2536:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->rout = (basilysroutine_ptr_t) (")); BASILYS_LOCATION("warmelt-outobj.melt:2538:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2538:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2538:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2538:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2521:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2521:/ clear"); /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2521:/ clear"); /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2521:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2521:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2521:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2521:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2521:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2518:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2518:/ 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_102_OUTPUCOD_OBJPUTCLOSUROUT*/ static basilys_ptr_t rout_103_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_103_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.melt:2546:/ getarg"); /*_.OPCLOV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2546:/ 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.melt:2546:/ 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.melt:2546:/ 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.melt:2546:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2547:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2547:/ 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.melt:2547:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2547:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2547:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2547:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check opclor"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2547)?(2547):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2547:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2547:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2547:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2548:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2548:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2548:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2548:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objputclosedv"; BASILYS_LOCATION("warmelt-outobj.melt:2548:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2548:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2548:/ apply.arg"); argtab[3].bp_long = 2548; /*_.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.melt:2548:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2548:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2548:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2549:/ 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.melt:2550:/ 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.melt:2551:/ 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.melt:2552:/ 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.melt:2553:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2553:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2553:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2553:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosv*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosv checkclo\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2557:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2557:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2557:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2557:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosv checkoff\", ")); BASILYS_LOCATION("warmelt-outobj.melt:2561:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2561:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2561:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2561:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">= 0 && ")); BASILYS_LOCATION("warmelt-outobj.melt:2563:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2563:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2563:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2563:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< basilys_closure_size((basilys_ptr_t) (")); BASILYS_LOCATION("warmelt-outobj.melt:2565:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2565:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2565:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2565:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")));")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysclosure_ptr_t)")); BASILYS_LOCATION("warmelt-outobj.melt:2569:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2569:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2569:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2569:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval[")); BASILYS_LOCATION("warmelt-outobj.melt:2571:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2571:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2571:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2571:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2573:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2573:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2573:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2573:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2549:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2546:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2546:/ 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_103_OUTPUCOD_OBJPUTCLOSEDV*/ static basilys_ptr_t rout_104_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_104_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.melt:2581:/ getarg"); /*_.OPCLOV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2581:/ 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.melt:2581:/ 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.melt:2581:/ 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.melt:2581:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2582:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2582:/ 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.melt:2582:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2582:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2582:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2582:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check opclor"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2582)?(2582):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2582:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2582:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2582:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2583:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2583:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2583:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2583:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objputclosednotnullv"; BASILYS_LOCATION("warmelt-outobj.melt:2583:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2583:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2583:/ apply.arg"); argtab[3].bp_long = 2583; /*_.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.melt:2583:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2583:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2583:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2584:/ 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.melt:2585:/ 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.melt:2586:/ 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.melt:2587:/ 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.melt:2588:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2588:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2588:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2588:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosvnotnull*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosvnotnull checkclo\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2592:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2592:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2592:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2592:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosvnotnull checknotnullval\", NULL != ")); BASILYS_LOCATION("warmelt-outobj.melt:2596:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2596:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2596:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2596:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosvnotnull checkoff\", ")); BASILYS_LOCATION("warmelt-outobj.melt:2600:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2600:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2600:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2600:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">= 0 && ")); BASILYS_LOCATION("warmelt-outobj.melt:2602:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2602:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2602:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2602:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< basilys_closure_size((basilys_ptr_t) (")); BASILYS_LOCATION("warmelt-outobj.melt:2604:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2604:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2604:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2604:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")));")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysclosure_ptr_t)")); BASILYS_LOCATION("warmelt-outobj.melt:2608:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2608:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2608:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2608:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval[")); BASILYS_LOCATION("warmelt-outobj.melt:2610:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2610:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2610:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2610:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2612:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2612:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2612:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2612:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2581:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2581:/ 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_104_OUTPUCOD_OBJPUTCLOSEDNOTNULLV*/ static basilys_ptr_t rout_105_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_105_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.melt:2620:/ getarg"); /*_.OPRCONST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2620:/ 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.melt:2620:/ 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.melt:2620:/ 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.melt:2620:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2621:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2621:/ 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.melt:2621:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2621:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2621:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2621:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oprconst"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2621)?(2621):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2621:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2621:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2621:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2622:/ 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.melt:2623:/ 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.melt:2624:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2624:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2624:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2624:/ 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.melt:2624:/ clear"); /*clear*/ /*_.OIE_CNAME__V10*/ curfptr[9] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2624:/ cond.else"); /*_.OROUTNAM__V9*/ curfptr[8] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.melt:2625:/ 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.melt:2626:/ 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.melt:2627:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2627:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2627:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2627:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putroutconst*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putroutconst checkrout\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2631:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2631:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2631:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2631:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (basilys_HAS_INITIAL_ENVIRONMENT) 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.melt:2636:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2636:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2636:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.OROUTNAM__V9*/ curfptr[8]))); /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#")); BASILYS_LOCATION("warmelt-outobj.melt:2638:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2638:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2638:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2638:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", NULL != (")); BASILYS_LOCATION("warmelt-outobj.melt:2640:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2640:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2640:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2640:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysroutine_ptr_t)")); BASILYS_LOCATION("warmelt-outobj.melt:2645:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2645:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2645:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2645:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval[")); BASILYS_LOCATION("warmelt-outobj.melt:2647:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2647:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2647:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2647:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2649:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2649:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2649:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2649:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OROUT__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OROUTNAM__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OOFF__V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2622:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2620:/ 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_105_OUTPUCOD_OBJPUTROUTCONST*/ static basilys_ptr_t rout_106_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_106_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.melt:2657:/ getarg"); /*_.OPRCONST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2657:/ 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.melt:2657:/ 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.melt:2657:/ 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.melt:2657:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2658:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2658:/ 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.melt:2658:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2658:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2658:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2658:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oprconst"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2658)?(2658):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2658:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2658:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2658:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2659:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2659:/ 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.melt:2660:/ 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.melt:2661:/ 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.melt:2662:/ 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.melt:2663:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2663:/ block"); /*block*/{ /*_#NOTNULL__L3*/ curfnum[1] = ((/*_.OCVAL__V10*/ curfptr[9]) != NULL);; BASILYS_LOCATION("warmelt-outobj.melt:2663:/ cond"); /*cond*/ if (/*_#NOTNULL__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2663:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2663:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2663:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check notnull ocval"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2663)?(2663):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2663:/ clear"); /*clear*/ /*_#NOTNULL__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2663:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2663:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2664:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2664:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2664:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2664:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putroutconstnotnull*/")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putroutconstnotnull checkrout\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2668:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2668:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2668:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2668:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putroutconstnotnull notnullconst\", NULL != ")); BASILYS_LOCATION("warmelt-outobj.melt:2672:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2672:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2672:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2672:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysroutine_ptr_t)")); BASILYS_LOCATION("warmelt-outobj.melt:2676:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2676:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2676:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2676:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval[")); BASILYS_LOCATION("warmelt-outobj.melt:2678:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2678:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2678:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2678:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.melt:2680:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2680:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2680:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2680:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2659:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2659:/ clear"); /*clear*/ /*_.OROUT__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2659:/ clear"); /*clear*/ /*_.OOFF__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2659:/ clear"); /*clear*/ /*_.OCVAL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2659:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2659:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2659:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2659:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2659:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2659:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2659:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2657:/ 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_106_OUTPUCOD_OBJPUTROUTCONSTNOTNULL*/ static basilys_ptr_t rout_107_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_107_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.melt:2690:/ getarg"); /*_.OPUTX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2690:/ 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.melt:2690:/ 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.melt:2690:/ 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.melt:2690:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2691:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2691:/ 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.melt:2691:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2691:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2691:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2691:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oputx"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2691)?(2691):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2691:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2691:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2691:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2692:/ 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.melt:2693:/ 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.melt:2694:/ 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.melt:2695:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2695:/ 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.melt:2697:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2697:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2697:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2697:/ 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.melt:2698:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2698:/ 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.melt:2698:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2698:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2698:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2698:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check octyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2698)?(2698):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2698:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2698:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2698:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2699:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2699:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L4*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.ORANK__V8*/ curfptr[7])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-outobj.melt:2699:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2699:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2699:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2699:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check orank"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2699)?(2699):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2699:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2699:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2699:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (!xrestab_ || !xresdescr_) goto labend_rout;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L5*/ curfnum[1])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] != ")); BASILYS_LOCATION("warmelt-outobj.melt:2705:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_PARCHAR__V17*/ curfptr[15]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") goto labend_rout;")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L6*/ curfnum[5])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].")); BASILYS_LOCATION("warmelt-outobj.melt:2711:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_RESFIELD__V18*/ curfptr[17]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") *(xrestab_[")); /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.ORANK__V8*/ curfptr[7])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].")); BASILYS_LOCATION("warmelt-outobj.melt:2715:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_RESFIELD__V19*/ curfptr[18]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") = (")); /*_#__L8*/ curfnum[7] = ((/*_.OCTYP__V11*/ curfptr[10]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.melt:2717:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2717:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2717:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_ptr_t) (")); /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2718:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2718:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.melt:2718:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2718:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.ORANK__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.OVLOC__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.THE_NULL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.OCTYP__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.CTYPE_PARCHAR__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.CTYPE_RESFIELD__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.CTYPE_RESFIELD__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_#__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2692:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2690:/ 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_107_OUTPUCOD_OBJPUTXTRARESULT*/ static basilys_ptr_t rout_108_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_108_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.melt:2725:/ getarg"); /*_.OEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2725:/ 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.melt:2725:/ 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.melt:2725:/ 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.melt:2725:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2726:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2726:/ 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.melt:2726:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2726:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2726:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2726:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oexp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2726)?(2726):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2726:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2726:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2726:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2727:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2727:/ 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.melt:2730:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2730:/ block"); /*block*/{ /*_#IS_MULTIPLE__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.CONT__V8*/ curfptr[7])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-outobj.melt:2730:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2730:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2730:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2730:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cont"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2730)?(2730):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2730:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2730:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2730:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2733:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2733:/ 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.melt:2733:/ 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.melt:2733:/ 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.melt:2733:/ 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.melt:2731:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2731:/ 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.melt:2727:/ clear"); /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2727:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2727:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2727:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2727:/ clear"); /*clear*/ /*_.LAMBDA___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2727:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V14*/ curfptr[13] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:2725:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.melt:2725:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2725:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2725:/ 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_108_OUTPUCOD_OBJEXPV*/ 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.melt:2733:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2733:/ 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.melt:2733:/ block"); /*block*/{ /*_#GET_INT__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:2734:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2734:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:2734:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2734:/ 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.melt:2733:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:2733:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2733:/ clear"); /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2733:/ 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_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_110_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.melt:2739:/ getarg"); /*_.OEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2739:/ 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.melt:2739:/ 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.melt:2739:/ 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.melt:2739:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2740:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2740:/ 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.melt:2740:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2740:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2740:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2740:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oexp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2740)?(2740):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2740:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2740:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2740:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2741:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2741:/ 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.melt:2742:/ 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.melt:2745:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2745:/ block"); /*block*/{ /*_#IS_MULTIPLE__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.CONT__V8*/ curfptr[7])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-outobj.melt:2745:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2745:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2745:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2745:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cont"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2745)?(2745):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2745:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2745:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2745:/ 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.melt:2746:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2746:/ cond.then"); /*_#OR___L6*/ curfnum[5] = /*_#IS_MIXINT__L5*/ curfnum[3];; } else {BASILYS_LOCATION("warmelt-outobj.melt:2746:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2746:/ 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.melt:2746:/ clear"); /*clear*/ /*_#IS_MIXLOC__L7*/ curfnum[6] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:2746:/ cond"); /*cond*/ if (/*_#OR___L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2746:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2746:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2747:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2747:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2747:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2747:/ 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.melt:2746:/ clear"); /*clear*/ /*_.OUTPUT_RAW_LOCATION__V14*/ curfptr[13] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2746:/ cond.else"); /*_.IF___V13*/ curfptr[11] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.melt:2751:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2751:/ 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.melt:2751:/ 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.melt:2751:/ 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.melt:2751:/ 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.melt:2749:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2749:/ 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.melt:2741:/ clear"); /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2741:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2741:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2741:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2741:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2741:/ clear"); /*clear*/ /*_#IS_MIXINT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2741:/ clear"); /*clear*/ /*_#OR___L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2741:/ clear"); /*clear*/ /*_.IF___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2741:/ clear"); /*clear*/ /*_.LAMBDA___V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2741:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V17*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:2739:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.melt:2739:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2739:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2739:/ 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_110_OUTPUCOD_OBJLOCATEDEXPV*/ static basilys_ptr_t rout_111_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_111_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.melt:2751:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2751:/ 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.melt:2751:/ block"); /*block*/{ /*_#GET_INT__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:2752:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2752:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:2752:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2752:/ 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.melt:2751:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:2751:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2751:/ clear"); /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2751:/ 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_111_LAMBDA_*/ static basilys_ptr_t rout_112_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_112_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.melt:2757:/ getarg"); /*_.VSTR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2757:/ 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.melt:2757:/ 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.melt:2757:/ 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.melt:2757:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2758:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2758:/ 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.melt:2758:/ cond"); /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2758:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2758:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2758:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check vstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2758)?(2758):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2758:/ clear"); /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2758:/ clear"); /*clear*/ /*_#__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2758:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2758:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.VSTR__V2*/ curfptr[1]))); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2757:/ 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_112_OUTPUCOD_VERBATIMSTRING*/ static basilys_ptr_t rout_113_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_113_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.melt:2768:/ getarg"); /*_.VSTR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2768:/ 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.melt:2768:/ 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.melt:2768:/ 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.melt:2768:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2769:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2769:/ 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.melt:2769:/ cond"); /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2769:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2769:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2769:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check vstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2769)?(2769):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2769:/ clear"); /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2769:/ clear"); /*clear*/ /*_#__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2769:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2769:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \"")); basilysgc_add_strbuf_cstr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.VSTR__V2*/ curfptr[1]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2768:/ 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_113_OUTPUCOD_STRING*/ static basilys_ptr_t rout_114_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_114_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.melt:2780:/ getarg"); /*_.VINT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2780:/ 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.melt:2780:/ 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.melt:2780:/ 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.melt:2780:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2781:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2781:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L2*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.VINT__V2*/ curfptr[1])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-outobj.melt:2781:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2781:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2781:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2781:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check vint"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2781)?(2781):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2781:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2781:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2781:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L3*/ curfnum[1])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2780:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2780:/ 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_114_OUTPUCOD_INTEGER*/ static basilys_ptr_t rout_115_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_115_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.melt:2787:/ getarg"); /*_.FRET__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2787:/ 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.melt:2787:/ 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.melt:2787:/ 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.melt:2787:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2788:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2788:/ 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.melt:2788:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2788:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2788:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2788:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fret"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2788)?(2788):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2788:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2788:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2788:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2789:/ 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.melt:2789:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2789:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2789:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2789:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*finalret*/ goto labend_rout ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2787:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2787:/ clear"); /*clear*/ /*_.OBI_LOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2787:/ 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_115_OUTPUCOD_FINALRETURN*/ static basilys_ptr_t rout_116_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_116_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.melt:2798:/ getarg"); /*_.DIC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2798:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2799:/ 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.melt:2806:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2806:/ 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.melt:2806:/ 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.melt:2805:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2805:/ 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.melt:2809:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2809:/ 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.melt:2810:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2810:/ 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.melt:2810:/ 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.melt:2810:/ 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.melt:2810:/ 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.melt:2809:/ clear"); /*clear*/ /*_.RAWTUP__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2809:/ clear"); /*clear*/ /*_.COMP__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2809:/ clear"); /*clear*/ /*_.MULTIPLE_SORT__V15*/ curfptr[14] = 0 ;} ; /*_.LET___V3*/ curfptr[2] = /*_.LET___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2799:/ clear"); /*clear*/ /*_#DICNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2799:/ clear"); /*clear*/ /*_.ENTLIST__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2799:/ clear"); /*clear*/ /*_.BOXZERO__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2799:/ clear"); /*clear*/ /*_.BOXNEG__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2799:/ clear"); /*clear*/ /*_.BOXPOS__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2799:/ clear"); /*clear*/ /*_.LAMBDA___V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2799:/ clear"); /*clear*/ /*_.MAPSTRING_EVERY__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2799:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:2798:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:2798:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2798:/ 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_116_SORTED_NAMED_DICT_TUPLE*/ static basilys_ptr_t rout_117_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_117_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 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.melt:2806:/ getarg"); /*_.NAM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2806:/ 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.melt:2806:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2807:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2807:/ 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.melt:2807:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2807:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2807:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2807:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ent named"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2807)?(2807):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2807:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2807:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2807:/ 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.melt:2806:/ 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_117_LAMBDA_*/ 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 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.melt:2810:/ getarg"); /*_.E1__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2810:/ 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.melt:2810:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2811:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2811:/ 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.melt:2812:/ 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.melt:2813:/ cond"); /*cond*/ if (/*_#STRING___L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2813:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*~BOXNEG*/ curfclos->tabval[0]);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2813:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2813:/ block"); /*block*/{ /*_#STRING___L2*/ curfnum[1] = basilys_string_same((/*_.N1__V5*/ curfptr[4]), (/*_.N2__V6*/ curfptr[5]));; BASILYS_LOCATION("warmelt-outobj.melt:2814:/ cond"); /*cond*/ if (/*_#STRING___L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2814:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*~BOXZERO*/ curfclos->tabval[1]);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2814:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2814:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2815:/ block"); /*block*/{ /*_.PROGN___V9*/ curfptr[8] = (/*~BOXPOS*/ curfclos->tabval[2]);;} ; /*_.IFELSE___V8*/ curfptr[7] = /*_.PROGN___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2814:/ clear"); /*clear*/ /*_.PROGN___V9*/ curfptr[8] = 0 ;} ; } ; /*_.IFELSE___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2813:/ clear"); /*clear*/ /*_#STRING___L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2813:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; } ; /*_.LET___V4*/ curfptr[3] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2811:/ clear"); /*clear*/ /*_.N1__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2811:/ clear"); /*clear*/ /*_.N2__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2811:/ clear"); /*clear*/ /*_#STRING___L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2811:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:2810:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];; BASILYS_LOCATION("warmelt-outobj.melt:2810:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2810:/ 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_118_LAMBDA_*/ static basilys_ptr_t rout_119_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_119_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.melt:2822:/ getarg"); /*_.MODCTX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2822:/ 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.melt:2822:/ 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.melt:2822:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2823:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2823:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2823:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2823:/ apply.arg"); argtab[0].bp_cstring = "output_exported_offsets modctx"; BASILYS_LOCATION("warmelt-outobj.melt:2823:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2823:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2823:/ apply.arg"); argtab[3].bp_long = 2823; /*_.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.melt:2823:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2823:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2823:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2824:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2824:/ 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.melt:2824:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2824:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2824:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2824:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check modctx"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2824)?(2824):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2824:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2824:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2824:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2825:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2826:/ 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.melt:2825:/ 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.melt:2828:/ 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.melt:2827:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/* exported field offsets */")); BASILYS_LOCATION("warmelt-outobj.melt:2834:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2834:/ 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.melt:2834:/ 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.melt:2832:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2832:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/* exported class lengths */")); BASILYS_LOCATION("warmelt-outobj.melt:2848:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2848:/ 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.melt:2848:/ 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.melt:2846:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2846:/ 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((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2825:/ clear"); /*clear*/ /*_.MOCX_EXPFIELDICT__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2825:/ clear"); /*clear*/ /*_.SORTEDFIELDS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2825:/ clear"); /*clear*/ /*_.MOCX_EXPCLASSDICT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2825:/ clear"); /*clear*/ /*_.SORTEDCLASSES__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2825:/ clear"); /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2825:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2825:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2825:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V18*/ curfptr[17] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2822:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2822:/ 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_119_OUTPUT_EXPORTED_OFFSETS*/ static basilys_ptr_t rout_120_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_120_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.melt:2834:/ getarg"); /*_.FLD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2834:/ 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.melt:2834:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2835:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2835:/ 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.melt:2835:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2835:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2835:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2835:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fld"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2835)?(2835):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2835:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2835:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2835:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "const int fieldoff__")); BASILYS_LOCATION("warmelt-outobj.melt:2838:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " = ")); /*_#GET_INT__L3*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.FLD__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (/*_#GET_INT__L3*/ curfnum[1])); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2834:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2834:/ clear"); /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2834:/ 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_120_LAMBDA_*/ 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 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.melt:2848:/ getarg"); /*_.CLA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2848:/ 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.melt:2848:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2849:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2849:/ 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.melt:2849:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2849:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2849:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2849:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cla"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2849)?(2849):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2849:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2849:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2849:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "const int classlen__")); BASILYS_LOCATION("warmelt-outobj.melt:2852:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " = ")); BASILYS_LOCATION("warmelt-outobj.melt:2855:/ 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((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[1])); basilysgc_add_strbuf((basilys_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2848:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2848:/ clear"); /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2848:/ clear"); /*clear*/ /*_.CLASS_FIELDS__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2848:/ 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_121_LAMBDA_*/ static basilys_ptr_t rout_122_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_122_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 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<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.melt:2864:/ getarg"); /*_.LSEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2864:/ 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.melt:2864:/ 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.melt:2864:/ block"); /*block*/{ debugeputs(( "starting compile_list_sexpr")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2866:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2866:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2866:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2866:/ apply.arg"); argtab[0].bp_cstring = "\n\n\n*%*%* compile_list_sexpr lsexp"; BASILYS_LOCATION("warmelt-outobj.melt:2866:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2866:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2866:/ apply.arg"); argtab[3].bp_long = 2866; /*_.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.melt:2866:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2866:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2866:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2867:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2867:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2867:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2867:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr inienv"; BASILYS_LOCATION("warmelt-outobj.melt:2867:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2867:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2867:/ apply.arg"); argtab[3].bp_long = 2867; /*_.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.melt:2867:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2867:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2867:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2868:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2868:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2868:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2868:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr modnamstr"; BASILYS_LOCATION("warmelt-outobj.melt:2868:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2868:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2868:/ apply.arg"); argtab[3].bp_long = 2868; /*_.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.melt:2868:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2868:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2868:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2869:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2869:/ block"); /*block*/{ /*_#IS_LIST__L4*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.LSEXP__V2*/ curfptr[1])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.melt:2869:/ cond"); /*cond*/ if (/*_#IS_LIST__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2869:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2869:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2869:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check lsexp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2869)?(2869):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2869:/ clear"); /*clear*/ /*_#IS_LIST__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2869:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2869:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2870:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2870:/ block"); /*block*/{ /*_#IS_STRING__L5*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:2870:/ cond"); /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2870:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2870:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2870:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check modnamstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2870)?(2870):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2870:/ clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2870:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2870:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2871:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2871:/ 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.melt:2871:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2871:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2871:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2871:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check inienv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2871)?(2871):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2871:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2871:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2871:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2872:/ 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.melt:2873:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2873:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_MODULCONTEXT*/ curfrout->tabval[2])), (4), "CLASS_MODULCONTEXT");/*_.INST__V20*/ curfptr[19] = newobj; }; ; BASILYS_LOCATION("warmelt-outobj.melt:2873:/ 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.melt:2873:/ 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.melt:2873:/ 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"); ; BASILYS_LOCATION("warmelt-outobj.melt:2873:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (3), (/*_.INIENV__V3*/ curfptr[2]), "MOCX_INITIALENV"); ; /*_.MODCTX__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;} ; BASILYS_LOCATION("warmelt-outobj.melt:2879:/ 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.melt:2880:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2880:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2880:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2880:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr initial ncx"; BASILYS_LOCATION("warmelt-outobj.melt:2880:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2880:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2880:/ apply.arg"); argtab[3].bp_long = 2880; /*_.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.melt:2880:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2880:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2880:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2881:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2881:/ 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.melt:2881:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2881:/ cond.then"); /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2881:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2881:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ncx"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2881)?(2881):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2881:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2881:/ clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2881:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2882:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2882:/ 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.melt:2884:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2884:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2884:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2884:/ 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.melt:2884:/ clear"); /*clear*/ /*_.SRC_LOC__V30*/ curfptr[29] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2884:/ cond.else"); /*_.FIRSTLOC__V29*/ curfptr[28] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.melt:2885:/ 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.melt:2889:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2889:/ 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.melt:2889:/ 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.melt:2889:/ 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];;} ; /*_#__L10*/ curfnum[9] = ((/*_.INIENV__V3*/ curfptr[2]) == ((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[11])));; BASILYS_LOCATION("warmelt-outobj.melt:2894:/ cond"); /*cond*/ if (/*_#__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2894:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2894:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V32*/ curfptr[31]), ( "#define basilys_HAS_INITIAL_ENVIRONMENT 0")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2894:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2894:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.DECLBUF__V32*/ curfptr[31]), ( "#define basilys_HAS_INITIAL_ENVIRONMENT 1")); /*epilog*/} ; } ; basilysgc_strbuf_add_indent((basilys_ptr_t)(/*_.DECLBUF__V32*/ curfptr[31]), (0), 0); basilysgc_prepend_list((basilys_ptr_t)(/*_.XLIST__V26*/ curfptr[24]), (basilys_ptr_t)(/*_.UCMEB1__V35*/ curfptr[34])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2900:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2900:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2900:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2900:/ apply.arg"); argtab[0].bp_cstring = "after macroexpansion compile_list_sexpr seq"; BASILYS_LOCATION("warmelt-outobj.melt:2900:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10]; BASILYS_LOCATION("warmelt-outobj.melt:2900:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2900:/ apply.arg"); argtab[3].bp_long = 2900; /*_.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.melt:2900:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2900:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2900:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2901:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2901:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2901:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2901:/ apply.arg"); argtab[0].bp_cstring = "after macroexpansion compile_list_sexpr inienv"; BASILYS_LOCATION("warmelt-outobj.melt:2901:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10]; BASILYS_LOCATION("warmelt-outobj.melt:2901:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2901:/ apply.arg"); argtab[3].bp_long = 2901; /*_.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.melt:2901:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2901:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2901:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2902:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2902:/ block"); /*block*/{ /*_#IS_A__L13*/ curfnum[10] = basilys_is_instance_of((basilys_ptr_t)(/*_.INIPROC__V31*/ curfptr[29]), (basilys_ptr_t)((/*!CLASS_NREP_INITPROC*/ curfrout->tabval[12])));; BASILYS_LOCATION("warmelt-outobj.melt:2902:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2902:/ cond.then"); /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2902:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2902:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check iniproc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2902)?(2902):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2902:/ clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2902:/ clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2902:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2903:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2903:/ block"); /*block*/{ /*_#IS_LIST__L14*/ curfnum[10] = (basilys_magic_discr((basilys_ptr_t)(/*_.XLIST__V26*/ curfptr[24])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.melt:2903:/ cond"); /*cond*/ if (/*_#IS_LIST__L14*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2903:/ cond.then"); /*_.IFELSE___V44*/ curfptr[43] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2903:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2903:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check xlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2903)?(2903):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V43*/ curfptr[41] = /*_.IFELSE___V44*/ curfptr[43];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2903:/ clear"); /*clear*/ /*_#IS_LIST__L14*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2903:/ clear"); /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2903:/ cppif.else"); /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2906:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2906:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V46*/ curfptr[45] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (4)); ; BASILYS_LOCATION("warmelt-outobj.melt:2906:/ 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.melt:2906:/ 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.melt:2906:/ 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.melt:2906:/ 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.melt:2904:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2904:/ 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[13])), (basilys_ptr_t)(/*_.XLIST__V26*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2936:/ 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[22]))));; /*_#LIST_LENGTH__L15*/ curfnum[10] = (basilys_list_length((basilys_ptr_t)(/*_.XLIST__V26*/ curfptr[24])));; /*_#I__L16*/ curfnum[15] = ((20) * (/*_#LIST_LENGTH__L15*/ curfnum[10]));; /*_#I__L17*/ curfnum[16] = ((10) + (/*_#I__L16*/ curfnum[15]));; /*_.COMPICACHE__V50*/ curfptr[49] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[23])), (/*_#I__L17*/ curfnum[16])));; /*_.COUNTBOX__V51*/ curfptr[50] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[24])), (0)));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2941:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2941:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[17] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2941:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2941:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr prolist"; BASILYS_LOCATION("warmelt-outobj.melt:2941:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[17]; BASILYS_LOCATION("warmelt-outobj.melt:2941:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2941:/ apply.arg"); argtab[3].bp_long = 2941; /*_.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.melt:2941:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2941:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2941:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2942:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2942:/ block"); /*block*/{ /*_#IS_LIST__L19*/ curfnum[17] = (basilys_magic_discr((basilys_ptr_t)(/*_.PROLIST__V48*/ curfptr[47])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.melt:2942:/ cond"); /*cond*/ if (/*_#IS_LIST__L19*/ curfnum[17]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2942:/ cond.then"); /*_.IFELSE___V55*/ curfptr[54] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2942:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2942:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check prolist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2942)?(2942):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V54*/ curfptr[52] = /*_.IFELSE___V55*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2942:/ clear"); /*clear*/ /*_#IS_LIST__L19*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2942:/ clear"); /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2942:/ cppif.else"); /*_.IFCPP___V54*/ curfptr[52] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2945:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2945:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V57*/ curfptr[56] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_28*/ curfrout->tabval[28])), (4)); ; BASILYS_LOCATION("warmelt-outobj.melt:2945:/ 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.melt:2945:/ 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.melt:2945:/ 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.melt:2945:/ 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.melt:2943:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2943:/ 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[13])), (basilys_ptr_t)(/*_.PROLIST__V48*/ curfptr[47]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2955:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2955:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L20*/ curfnum[17] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2955:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2955:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr objlist"; BASILYS_LOCATION("warmelt-outobj.melt:2955:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[17]; BASILYS_LOCATION("warmelt-outobj.melt:2955:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2955:/ apply.arg"); argtab[3].bp_long = 2955; /*_.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.melt:2955:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2955:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2955:/ cppif.else"); /*_.IFCPP___V59*/ curfptr[58] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2956:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2956:/ block"); /*block*/{ /*_#IS_LIST__L21*/ curfnum[17] = (basilys_magic_discr((basilys_ptr_t)(/*_.OBJLIST__V49*/ curfptr[48])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.melt:2956:/ cond"); /*cond*/ if (/*_#IS_LIST__L21*/ curfnum[17]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2956:/ cond.then"); /*_.IFELSE___V62*/ curfptr[61] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2956:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2956:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check objlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2956)?(2956):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V62*/ curfptr[61] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V61*/ curfptr[59] = /*_.IFELSE___V62*/ curfptr[61];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2956:/ clear"); /*clear*/ /*_#IS_LIST__L21*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2956:/ clear"); /*clear*/ /*_.IFELSE___V62*/ curfptr[61] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2956:/ cppif.else"); /*_.IFCPP___V61*/ curfptr[59] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2957:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2957:/ 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.melt:2958:/ 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.melt:2959:/ 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.melt:2960:/ 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.melt:2962:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2962:/ block"); /*block*/{ /*_#IS_A__L22*/ curfnum[17] = basilys_is_instance_of((basilys_ptr_t)(/*_.INIPRO__V63*/ curfptr[61]), (basilys_ptr_t)((/*!CLASS_NREP_INITPROC*/ curfrout->tabval[12])));; BASILYS_LOCATION("warmelt-outobj.melt:2962:/ cond"); /*cond*/ if (/*_#IS_A__L22*/ curfnum[17]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2962:/ cond.then"); /*_.IFELSE___V68*/ curfptr[67] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2962:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2962:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check inipro"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2962)?(2962):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V67*/ curfptr[66] = /*_.IFELSE___V68*/ curfptr[67];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2962:/ clear"); /*clear*/ /*_#IS_A__L22*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2962:/ clear"); /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2962:/ cppif.else"); /*_.IFCPP___V67*/ curfptr[66] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2963:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2963:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L23*/ curfnum[17] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2963:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2963:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr procurmodenvlist"; BASILYS_LOCATION("warmelt-outobj.melt:2963:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[17]; BASILYS_LOCATION("warmelt-outobj.melt:2963:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2963:/ apply.arg"); argtab[3].bp_long = 2963; /*_.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.melt:2963:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2963:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2963:/ cppif.else"); /*_.IFCPP___V69*/ curfptr[67] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2964:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2964:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.MODCTX__V19*/ curfptr[18]; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.INIDATA__V64*/ curfptr[63]; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.COMPICACHE__V50*/ curfptr[49]; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.PROCURMODENVLIST__V66*/ curfptr[65]; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ 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[29])), (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.melt:2965:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2965:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L24*/ curfnum[17] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2965:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2965:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr iniobj"; BASILYS_LOCATION("warmelt-outobj.melt:2965:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[17]; BASILYS_LOCATION("warmelt-outobj.melt:2965:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2965:/ apply.arg"); argtab[3].bp_long = 2965; /*_.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.melt:2965:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2965:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2965:/ cppif.else"); /*_.IFCPP___V72*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#LIST_LENGTH__L25*/ curfnum[17] = (basilys_list_length((basilys_ptr_t)(/*_.OBJLIST__V49*/ curfptr[48])));; basilys_putnum(stderr,( "** warmelt generated "), (/*_#LIST_LENGTH__L25*/ curfnum[17]), ( " 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.melt:2978:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2978:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V75*/ curfptr[74] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_32*/ curfrout->tabval[32])), (2)); ; BASILYS_LOCATION("warmelt-outobj.melt:2978:/ 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.melt:2978:/ 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.melt:2976:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2976:/ 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[13])), (basilys_ptr_t)(/*_.OBJLIST__V49*/ curfptr[48]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2981:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2981:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L26*/ curfnum[25] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2981:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2981:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr final modnamstr"; BASILYS_LOCATION("warmelt-outobj.melt:2981:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[25]; BASILYS_LOCATION("warmelt-outobj.melt:2981:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2981:/ apply.arg"); argtab[3].bp_long = 2981; /*_.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.melt:2981:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2981:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2981:/ cppif.else"); /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2982:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2982:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L27*/ curfnum[25] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2982:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2982:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr outputting iniobj"; BASILYS_LOCATION("warmelt-outobj.melt:2982:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[25]; BASILYS_LOCATION("warmelt-outobj.melt:2982:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2982:/ apply.arg"); argtab[3].bp_long = 2982; /*_.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.melt:2982:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2982:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V80*/ curfptr[79] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2982:/ cppif.else"); /*_.IFCPP___V79*/ curfptr[77] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2983:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2983:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V32*/ curfptr[31]; BASILYS_LOCATION("warmelt-outobj.melt:2983:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V33*/ curfptr[32]; BASILYS_LOCATION("warmelt-outobj.melt:2983:/ 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[33])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.melt:2984:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2984:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V32*/ curfptr[31]; BASILYS_LOCATION("warmelt-outobj.melt:2984:/ 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[34])), (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.melt:2964:/ clear"); /*clear*/ /*_.INIOBJ__V71*/ curfptr[69] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ clear"); /*clear*/ /*_.IFCPP___V72*/ curfptr[71] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ clear"); /*clear*/ /*_#LIST_LENGTH__L25*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ clear"); /*clear*/ /*_.LAMBDA___V74*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ clear"); /*clear*/ /*_.LIST_EVERY__V76*/ curfptr[75] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ clear"); /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ clear"); /*clear*/ /*_.IFCPP___V79*/ curfptr[77] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V81*/ curfptr[79] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2964:/ clear"); /*clear*/ /*_.OUTPUT_EXPORTED_OFFSETS__V82*/ curfptr[81] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2957:/ clear"); /*clear*/ /*_.INIPRO__V63*/ curfptr[61] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2957:/ clear"); /*clear*/ /*_.INIDATA__V64*/ curfptr[63] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2957:/ clear"); /*clear*/ /*_.IMPORTVALUES__V65*/ curfptr[64] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2957:/ clear"); /*clear*/ /*_.PROCURMODENVLIST__V66*/ curfptr[65] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2957:/ clear"); /*clear*/ /*_.IFCPP___V67*/ curfptr[66] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2957:/ clear"); /*clear*/ /*_.IFCPP___V69*/ curfptr[67] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_.PROLIST__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_.OBJLIST__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_#LIST_LENGTH__L15*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_.COMPICACHE__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_.COUNTBOX__V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_.IFCPP___V54*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_.LAMBDA___V56*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_.LIST_EVERY__V58*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_.IFCPP___V59*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2936:/ clear"); /*clear*/ /*_.IFCPP___V61*/ curfptr[59] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.XLIST__V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.LIST_FIRST__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.FIRSTX__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.FIRSTLOC__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.INIPROC__V31*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.DECLBUF__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.IMPLBUF__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.UCMEB1__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_#__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.LAMBDA___V45*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2882:/ clear"); /*clear*/ /*_.LIST_EVERY__V47*/ curfptr[46] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2872:/ clear"); /*clear*/ /*_.MAKE_MAPSTRING__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2872:/ clear"); /*clear*/ /*_.MAKE_MAPSTRING__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2872:/ clear"); /*clear*/ /*_.MODCTX__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2872:/ clear"); /*clear*/ /*_.NCX__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2872:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2872:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;} ; debugeputs(( "ended compile_list_sexpr")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2864:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2864:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2864:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2864:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2864:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2864:/ 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_122_COMPILE_LIST_SEXPR*/ 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 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.melt:2906:/ getarg"); /*_.SEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2906:/ 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.melt:2906:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2907:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2907:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2907:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2907:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr sexp"; BASILYS_LOCATION("warmelt-outobj.melt:2907:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:2907:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2907:/ apply.arg"); argtab[3].bp_long = 2907; /*_.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.melt:2907:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2907:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2907:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2908:/ 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.melt:2909:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2909:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2909:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2909:/ 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.melt:2909:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V6*/ curfptr[5] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2909:/ 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.melt:2913:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2913:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2913:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2914:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2914:/ 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.melt:2915:/ 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((basilys_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), (0), 0); basilysgc_add_strbuf((basilys_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), ( "/**!!** ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf_ccomment((basilys_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.SCOMM__V8*/ curfptr[7]))); basilysgc_add_strbuf((basilys_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), ( "**!!**/")); basilysgc_strbuf_add_indent((basilys_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2914:/ clear"); /*clear*/ /*_.SLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2914:/ clear"); /*clear*/ /*_.SCOMM__V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2913:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2913:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2924:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2924:/ 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.melt:2924:/ multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~INIENV*/ curfclos->tabval[1]);BASILYS_LOCATION("warmelt-outobj.melt:2924:/ multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);BASILYS_LOCATION("warmelt-outobj.melt:2924:/ multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.PSLOC__V5*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:2924:/ multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V10*/ curfptr[7];BASILYS_LOCATION("warmelt-outobj.melt:2924:/ 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.melt:2924:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2927:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2927:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2927:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2927:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr nexp"; BASILYS_LOCATION("warmelt-outobj.melt:2927:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; BASILYS_LOCATION("warmelt-outobj.melt:2927:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2927:/ apply.arg"); argtab[3].bp_long = 2927; /*_.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.melt:2927:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2927:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2927:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2928:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2928:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2928:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2928:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr nbind"; BASILYS_LOCATION("warmelt-outobj.melt:2928:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4]; BASILYS_LOCATION("warmelt-outobj.melt:2928:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2928:/ apply.arg"); argtab[3].bp_long = 2928; /*_.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.melt:2928:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2928:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2928:/ 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.melt:2929:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2929:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2929:/ 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.melt:2929:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2929:/ clear"); /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:2929:/ cond.else"); /*_#IF___L8*/ curfnum[7] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.melt:2929:/ cond"); /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2929:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2929:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2931:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2931:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2931:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V10*/ curfptr[7]; BASILYS_LOCATION("warmelt-outobj.melt:2931:/ 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.melt:2932:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2932:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2932:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2932:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr wnexp"; BASILYS_LOCATION("warmelt-outobj.melt:2932:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8]; BASILYS_LOCATION("warmelt-outobj.melt:2932:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2932:/ apply.arg"); argtab[3].bp_long = 2932; /*_.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.melt:2932:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2932:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2932:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2933:/ 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.melt:2931:/ clear"); /*clear*/ /*_.WNEXP__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2931:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2931:/ clear"); /*clear*/ /*_.NINIT_TOPL__V18*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2924:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2924:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2924:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2924:/ clear"); /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2924:/ clear"); /*clear*/ /*_.NBIND__V10*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2908:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2908:/ clear"); /*clear*/ /*_.PSLOC__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2908:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2906:/ 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_123_LAMBDA_*/ static basilys_ptr_t rout_124_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_124_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 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.melt:2945:/ getarg"); /*_.PRO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2945:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2946:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2946:/ 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.melt:2946:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2946:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:2946:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:2946:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pro"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(2946)?(2946):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2946:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2946:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2946:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2947:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2947:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2947:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2947:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr pro"; BASILYS_LOCATION("warmelt-outobj.melt:2947:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2947:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2947:/ apply.arg"); argtab[3].bp_long = 2947; /*_.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.melt:2947:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2947:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2947:/ 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.melt:2949:/ block"); /*block*/{ /*_#GET_INT__L5*/ curfnum[4] = (basilys_get_int((basilys_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));; BASILYS_LOCATION("warmelt-outobj.melt:2949:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2949:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~MODCTX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2949:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~COMPICACHE*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-outobj.melt:2949:/ 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.melt:2950:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2950:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2950:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2950:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr objpro"; BASILYS_LOCATION("warmelt-outobj.melt:2950:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-outobj.melt:2950:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2950:/ apply.arg"); argtab[3].bp_long = 2950; /*_.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.melt:2950:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2950:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2950:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2951:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2951:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2951:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2951:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr done pro"; BASILYS_LOCATION("warmelt-outobj.melt:2951:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-outobj.melt:2951:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2951:/ apply.arg"); argtab[3].bp_long = 2951; /*_.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.melt:2951:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2951:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2951:/ 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.melt:2949:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2949:/ clear"); /*clear*/ /*_.OBJPRO__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2949:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2949:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2945:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2945:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2945:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2945:/ 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_124_LAMBDA_*/ static basilys_ptr_t rout_125_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_125_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 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.melt:2978:/ getarg"); /*_.OBEL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:2978:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2979:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2979:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2979:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2979:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr obel"; BASILYS_LOCATION("warmelt-outobj.melt:2979:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2979:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2979:/ apply.arg"); argtab[3].bp_long = 2979; /*_.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.melt:2979:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2979:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2979:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:2980:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2980:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.melt:2980:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:2980:/ 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.melt:2978:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-outobj.melt:2978:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2978:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2978:/ 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_125_LAMBDA_*/ static basilys_ptr_t rout_126_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_126_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.melt:2993:/ getarg"); /*_.NAM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:2993:/ 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.melt:2993:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:2994:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:2994:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:2994:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2994:/ apply.arg"); argtab[0].bp_cstring = "install_initial_command fun"; BASILYS_LOCATION("warmelt-outobj.melt:2994:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:2994:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:2994:/ apply.arg"); argtab[3].bp_long = 2994; /*_.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.melt:2994:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2994:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:2994:/ 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.melt:2995:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2995:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2995:/ block"); /*block*/{ /*_#IS_STRING__L3*/ curfnum[2] = (basilys_magic_discr((basilys_ptr_t)(/*_.NAM__V2*/ curfptr[1])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:2996:/ cond"); /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:2996:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:2996:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2997:/ 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.melt:2996:/ clear"); /*clear*/ /*_.SYSDATA_CMD_FUNDICT__V6*/ curfptr[4] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2995:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:2993:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:2993:/ 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_126_INSTALL_INITIAL_COMMAND*/ static basilys_ptr_t rout_127_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_127_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.melt:3000:/ getarg"); /*_.FUN__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:3000:/ 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.melt:3000:/ block"); /*block*/{ /*_#IS_CLOSURE__L1*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.FUN__V2*/ curfptr[1])) == OBMAG_CLOSURE);; BASILYS_LOCATION("warmelt-outobj.melt:3001:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3001:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:3001:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:3001:/ cond"); /*cond*/ if (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3001:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:3001:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:3003:/ 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.melt:3004:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3004:/ 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.melt:3003:/ clear"); /*clear*/ /*_.NAM__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3003:/ clear"); /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V7*/ curfptr[6] = 0 ;} ; /*_.IF___V4*/ curfptr[3] = /*_.LET___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3001:/ clear"); /*clear*/ /*_.LET___V5*/ curfptr[4] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:3001:/ cond.else"); /*_.IF___V4*/ curfptr[3] = NULL;; } ; /*_.IF___V3*/ curfptr[2] = /*_.IF___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3001:/ clear"); /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:3001:/ cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.melt:3000:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:3000:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3000:/ clear"); /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3000:/ 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_127_INITIAL_COMMAND_INSTALL*/ static basilys_ptr_t rout_128_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_128_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.melt:3008:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:3008:/ 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.melt:3008:/ 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.melt:3008:/ 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.melt:3008:/ block"); /*block*/{ debugeputs(( "starting readseq")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3010:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3010:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3010:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3010:/ apply.arg"); argtab[0].bp_cstring = "start readseq_command"; BASILYS_LOCATION("warmelt-outobj.melt:3010:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3010:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3010:/ apply.arg"); argtab[3].bp_long = 3010; /*_.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.melt:3010:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3010:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3010:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3011:/ 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.melt:3013:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3013:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3013:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3013:/ apply.arg"); argtab[0].bp_cstring = "done readseq_command"; BASILYS_LOCATION("warmelt-outobj.melt:3013:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3013:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3013:/ apply.arg"); argtab[3].bp_long = 3013; /*_.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.melt:3013:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3013:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3013:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3014:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.melt:3014:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V8*/ curfptr[6] = /*_.RETURN___V12*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3011:/ clear"); /*clear*/ /*_.RLIST__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3011:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3011:/ clear"); /*clear*/ /*_.RETURN___V12*/ curfptr[10] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:3008:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-outobj.melt:3008:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3008:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3008:/ 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_128_READSEQ_COMMAND*/ static basilys_ptr_t rout_129_COMPILE_ONE_OR_MORE_FILES(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_COMPILE_ONE_OR_MORE_FILES_st { unsigned nbvar; #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 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<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("COMPILE_ONE_OR_MORE_FILES", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.melt:3026:/ getarg"); /*_.FILES__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:3026:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.MODSRCNAME__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MODSRCNAME__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.melt:3026:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.CURENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.CURENV__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:3026:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3027:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3027:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURENV__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.melt:3027:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3027:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:3027:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3027:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curenv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(3027)?(3027):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3027:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3027:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3027:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3028:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3028:/ block"); /*block*/{ /*_#IS_STRING__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.MODSRCNAME__V3*/ curfptr[2])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:3028:/ cond"); /*cond*/ if (/*_#IS_STRING__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3028:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:3028:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3028:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check modsrcname"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(3028)?(3028):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3028:/ clear"); /*clear*/ /*_#IS_STRING__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3028:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3028:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3029:/ block"); /*block*/{ /*_.RLIST__V10*/ curfptr[9] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[1]))));; /*_#IS_STRING__L3*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.FILES__V2*/ curfptr[1])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:3032:/ cond"); /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3032:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:3032:/ block"); /*block*/{ /*_.READ_FILE__V12*/ curfptr[11] = (basilysgc_read_file (basilys_string_str((basilys_ptr_t)(/*_.FILES__V2*/ curfptr[1])), (char*)0));; BASILYS_LOCATION("warmelt-outobj.melt:3033:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3033:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.READ_FILE__V12*/ curfptr[11]; /*_.LIST_APPEND2LIST__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V11*/ curfptr[10] = /*_.LIST_APPEND2LIST__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3032:/ clear"); /*clear*/ /*_.READ_FILE__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3032:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V13*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:3032:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3032:/ block"); /*block*/{ /*_#IS_LIST__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.FILES__V2*/ curfptr[1])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.melt:3034:/ cond"); /*cond*/ if (/*_#IS_LIST__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3034:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:3034:/ block"); /*block*/{ /*citerblock FOREACH_IN_LIST*/ { /* start cit1__EACHLIST*/ for (/*_.CURPAIR__V15*/ curfptr[12] = basilys_list_first(/*_.FILES__V2*/ curfptr[1]); basilys_magic_discr(/*_.CURPAIR__V15*/ curfptr[12]) == OBMAG_PAIR; /*_.CURPAIR__V15*/ curfptr[12] = basilys_pair_tail(/*_.CURPAIR__V15*/ curfptr[12])) { /*_.CURFILE__V16*/ curfptr[15] = basilys_pair_head(/*_.CURPAIR__V15*/ curfptr[12]); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3038:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3038:/ block"); /*block*/{ /*_#IS_STRING__L5*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURFILE__V16*/ curfptr[15])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:3038:/ cond"); /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3038:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:3038:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3038:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curfile"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(3038)?(3038):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3038:/ clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3038:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3038:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; inform(UNKNOWN_LOCATION, ("BASILYS INFORM [#%ld]: %s - %s"), basilys_dbgcounter, ( "reading from file"), basilys_string_str((basilys_ptr_t)(/*_.CURFILE__V16*/ curfptr[15]))); BASILYS_LOCATION("warmelt-outobj.melt:3040:/ block"); /*block*/{ /*_.CUREAD__V20*/ curfptr[19] = (basilysgc_read_file (basilys_string_str((basilys_ptr_t)(/*_.CURFILE__V16*/ curfptr[15])), (char*)0));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3042:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3042:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3042:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3042:/ apply.arg"); argtab[0].bp_cstring = "compilefile_command curead"; BASILYS_LOCATION("warmelt-outobj.melt:3042:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4]; BASILYS_LOCATION("warmelt-outobj.melt:3042:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3042:/ apply.arg"); argtab[3].bp_long = 3042; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CUREAD__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3042:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3042:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3042:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3043:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3043:/ block"); /*block*/{ /*_#IS_LIST_OR_NULL__L7*/ curfnum[4] = ((/*_.CUREAD__V20*/ curfptr[19]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.CUREAD__V20*/ curfptr[19])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-outobj.melt:3043:/ cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L7*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3043:/ cond.then"); /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:3043:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3043:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curead"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(3043)?(3043):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3043:/ clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L7*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3043:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3043:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3044:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3044:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CUREAD__V20*/ curfptr[19]; /*_.LIST_APPEND2LIST__V25*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V19*/ curfptr[17] = /*_.LIST_APPEND2LIST__V25*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3040:/ clear"); /*clear*/ /*_.CUREAD__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3040:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3040:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3040:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V25*/ curfptr[23] = 0 ;} ; /*_.IFELSE___V14*/ curfptr[11] = /*_.LET___V19*/ curfptr[17];; } /* end cit1__EACHLIST*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3035:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3035:/ clear"); /*clear*/ /*_.CURFILE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3035:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3035:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:3034:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3034:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3046:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3046:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:3046:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3046:/ cond.then"); /*_.IFELSE___V27*/ curfptr[20] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:3046:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3046:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "bad files - should be a list of filenames or a filename"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(3046)?(3046):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V27*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V26*/ curfptr[19] = /*_.IFELSE___V27*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3046:/ clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3046:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3045:/ block"); /*block*/{ /*_.PROGN___V28*/ curfptr[21] = /*_.IFCPP___V26*/ curfptr[19];;} ; /*_.IFELSE___V14*/ curfptr[11] = /*_.PROGN___V28*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3034:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3034:/ clear"); /*clear*/ /*_.PROGN___V28*/ curfptr[21] = 0 ;} ; } ; /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3032:/ clear"); /*clear*/ /*_#IS_LIST__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3032:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;} ; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3048:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3048:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3048:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3048:/ apply.arg"); argtab[0].bp_cstring = "after read compile_one_or_more_files rlist"; BASILYS_LOCATION("warmelt-outobj.melt:3048:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[4]; BASILYS_LOCATION("warmelt-outobj.melt:3048:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3048:/ apply.arg"); argtab[3].bp_long = 3048; /*_.DEBUG_MSG_FUN__V30*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V29*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3048:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3048:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3048:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3049:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3049:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURENV__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.melt:3049:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MODSRCNAME__V3*/ curfptr[2]; /*_.COMPILE_LIST_SEXPR__V31*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!COMPILE_LIST_SEXPR*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V9*/ curfptr[7] = /*_.COMPILE_LIST_SEXPR__V31*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3029:/ clear"); /*clear*/ /*_.RLIST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3029:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3029:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3029:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3029:/ clear"); /*clear*/ /*_.COMPILE_LIST_SEXPR__V31*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:3026:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; BASILYS_LOCATION("warmelt-outobj.melt:3026:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3026:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3026:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3026:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILE_ONE_OR_MORE_FILES", callcount); basilys_topframe = (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_COMPILE_ONE_OR_MORE_FILES*/ static basilys_ptr_t rout_130_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_130_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 27 void* varptr[27]; #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<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("COMPILEFILE_COMMAND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.melt:3054:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:3054:/ 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.melt:3054:/ 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.melt:3054:/ 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.melt:3054:/ block"); /*block*/{ debugeputs(( "starting compilefile_command")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3056:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3056:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3056:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3056:/ apply.arg"); argtab[0].bp_cstring = "start compilefile_command arg"; BASILYS_LOCATION("warmelt-outobj.melt:3056:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3056:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3056:/ apply.arg"); argtab[3].bp_long = 3056; /*_.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.melt:3056:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3056:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3056:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3057:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3057:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3057:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3057:/ apply.arg"); argtab[0].bp_cstring = "start compilefile_command secarg"; BASILYS_LOCATION("warmelt-outobj.melt:3057:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3057:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3057:/ apply.arg"); argtab[3].bp_long = 3057; /*_.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.melt:3057:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3057:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3057:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3058:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3058:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3058:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3058:/ apply.arg"); argtab[0].bp_cstring = "start compilefile_command moduldata"; BASILYS_LOCATION("warmelt-outobj.melt:3058:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3058:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3058:/ apply.arg"); argtab[3].bp_long = 3058; /*_.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.melt:3058:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3058:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3058:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3059:/ block"); /*block*/{ /*_.PARMODENV__V13*/ curfptr[12] = (/*!konst_1*/ curfrout->tabval[1]);; BASILYS_LOCATION("warmelt-outobj.melt:3061:/ cond"); /*cond*/ if (/*_.MODULDATA__V5*/ curfptr[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3061:/ cond.then"); /*_.CURENV__V14*/ curfptr[13] = /*_.MODULDATA__V5*/ curfptr[4];; } else {BASILYS_LOCATION("warmelt-outobj.melt:3061:/ cond.else"); /*_.CURENV__V14*/ curfptr[13] = (/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2]);; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3063:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3063:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3063:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3063:/ apply.arg"); argtab[0].bp_cstring = "before read compilefile_command parmodenv"; BASILYS_LOCATION("warmelt-outobj.melt:3063:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3063:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3063:/ apply.arg"); argtab[3].bp_long = 3063; /*_.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.melt:3063:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3063:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3063:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3064:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3064:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3064:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3064:/ apply.arg"); argtab[0].bp_cstring = "before read compilefile_command initial_environment"; BASILYS_LOCATION("warmelt-outobj.melt:3064:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3064:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3064:/ apply.arg"); argtab[3].bp_long = 3064; /*_.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.melt:3064:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3064:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3064:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3065:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3065:/ 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.melt:3065:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3065:/ cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:3065:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3065:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curenv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(3065)?(3065):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3065:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3065:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3065:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3066:/ block"); /*block*/{ /*_#IS_STRING__L7*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:3067:/ cond"); /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3067:/ cond.then"); /*_.BASNAM__V22*/ curfptr[21] = /*_.SECARG__V4*/ curfptr[3];; } else {BASILYS_LOCATION("warmelt-outobj.melt:3067:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3067:/ block"); /*block*/{ /*_#IS_STRING__L8*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:3068:/ cond"); /*cond*/ if (/*_#IS_STRING__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3068:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:3068:/ block"); /*block*/{ /*_.MAKE_STRING_NAKEDBASENAME__V24*/ curfptr[23] = (basilysgc_new_string_nakedbasename((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[4])), basilys_string_str((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2]))));; /*_.IFELSE___V23*/ curfptr[22] = /*_.MAKE_STRING_NAKEDBASENAME__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3068:/ clear"); /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V24*/ curfptr[23] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:3068:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3068:/ block"); /*block*/{ error("BASILYS ERROR MSG [#%ld]::: %s ", basilys_dbgcounter, ( "explicit -fmelt-secondarg should be specified with -fmelt-arglist")); BASILYS_LOCATION("warmelt-outobj.melt:3071:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.melt:3071:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-outobj.melt:3069:/ block"); /*block*/{ /*_.PROGN___V26*/ curfptr[25] = /*_.RETURN___V25*/ curfptr[23];;} ; /*_.IFELSE___V23*/ curfptr[22] = /*_.PROGN___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3068:/ clear"); /*clear*/ /*_.RETURN___V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3068:/ clear"); /*clear*/ /*_.PROGN___V26*/ curfptr[25] = 0 ;} ; } ; /*_.BASNAM__V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3067:/ clear"); /*clear*/ /*_#IS_STRING__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3067:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:3074:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3074:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BASNAM__V22*/ curfptr[21]; BASILYS_LOCATION("warmelt-outobj.melt:3074:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURENV__V14*/ curfptr[13]; /*_.COMPILE_ONE_OR_MORE_FILES__V27*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!COMPILE_ONE_OR_MORE_FILES*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V21*/ curfptr[19] = /*_.COMPILE_ONE_OR_MORE_FILES__V27*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3066:/ clear"); /*clear*/ /*_#IS_STRING__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3066:/ clear"); /*clear*/ /*_.BASNAM__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3066:/ clear"); /*clear*/ /*_.COMPILE_ONE_OR_MORE_FILES__V27*/ curfptr[23] = 0 ;} ; /*_.LET___V12*/ curfptr[10] = /*_.LET___V21*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3059:/ clear"); /*clear*/ /*_.PARMODENV__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3059:/ clear"); /*clear*/ /*_.CURENV__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3059:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3059:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3059:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3059:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:3054:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-outobj.melt:3054:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3054:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3054:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3054:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3054:/ 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_130_COMPILEFILE_COMMAND*/ static basilys_ptr_t rout_131_RUNFILE_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_RUNFILE_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 37 void* varptr[37]; #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<37; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 37; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("RUNFILE_COMMAND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.melt:3082:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:3082:/ 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.melt:3082:/ 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.melt:3082:/ 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.melt:3082:/ block"); /*block*/{ debugeputs(( "starting runfile_command")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3084:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3084:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3084:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3084:/ apply.arg"); argtab[0].bp_cstring = "start runfile_command arg"; BASILYS_LOCATION("warmelt-outobj.melt:3084:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3084:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3084:/ apply.arg"); argtab[3].bp_long = 3084; /*_.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.melt:3084:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3084:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3084:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3085:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3085:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3085:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3085:/ apply.arg"); argtab[0].bp_cstring = "start runfile_command secarg"; BASILYS_LOCATION("warmelt-outobj.melt:3085:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3085:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3085:/ apply.arg"); argtab[3].bp_long = 3085; /*_.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.melt:3085:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3085:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3085:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3086:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3086:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3086:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3086:/ apply.arg"); argtab[0].bp_cstring = "start runfile_command moduldata"; BASILYS_LOCATION("warmelt-outobj.melt:3086:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3086:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3086:/ apply.arg"); argtab[3].bp_long = 3086; /*_.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.melt:3086:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3086:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3086:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3087:/ block"); /*block*/{ /*_.PARMODENV__V12*/ curfptr[10] = (/*!konst_1*/ curfrout->tabval[1]);; BASILYS_LOCATION("warmelt-outobj.melt:3089:/ cond"); /*cond*/ if (/*_.MODULDATA__V5*/ curfptr[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3089:/ cond.then"); /*_.CURENV__V13*/ curfptr[12] = /*_.MODULDATA__V5*/ curfptr[4];; } else {BASILYS_LOCATION("warmelt-outobj.melt:3089:/ cond.else"); /*_.CURENV__V13*/ curfptr[12] = (/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2]);; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3091:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3091:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3091:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3091:/ apply.arg"); argtab[0].bp_cstring = "before read runfile_command parmodenv"; BASILYS_LOCATION("warmelt-outobj.melt:3091:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3091:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3091:/ apply.arg"); argtab[3].bp_long = 3091; /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PARMODENV__V12*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3091:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3091:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3091:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3092:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3092:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3092:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3092:/ apply.arg"); argtab[0].bp_cstring = "before read runfile_command initial_environment"; BASILYS_LOCATION("warmelt-outobj.melt:3092:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3092:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3092:/ apply.arg"); argtab[3].bp_long = 3092; /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 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___V16*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3092:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3092:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3092:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3093:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3093:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURENV__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.melt:3093:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3093:/ cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:3093:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3093:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curenv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(3093)?(3093):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3093:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3093:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3093:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3094:/ block"); /*block*/{ /*_.MODULNAM__V20*/ curfptr[18] = (/*nil*/NULL);; /*_#IS_STRING__L7*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:3097:/ cond"); /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3097:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:3097:/ block"); /*block*/{ /*_.MAKE_STRING_NAKEDBASENAME__V22*/ curfptr[21] = (basilysgc_new_string_nakedbasename((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[4])), basilys_string_str((basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3]))));; BASILYS_LOCATION("warmelt-outobj.melt:3098:/ compute"); /*_.MODULNAM__V20*/ curfptr[18] = /*_.SETQ___V23*/ curfptr[22] = /*_.MAKE_STRING_NAKEDBASENAME__V22*/ curfptr[21];; BASILYS_LOCATION("warmelt-outobj.melt:3097:/ block"); /*block*/{ /*_.PROGN___V24*/ curfptr[23] = /*_.SECARG__V4*/ curfptr[3];;} ; /*_.MODSRCNAME__V21*/ curfptr[20] = /*_.PROGN___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3097:/ clear"); /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3097:/ clear"); /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3097:/ clear"); /*clear*/ /*_.PROGN___V24*/ curfptr[23] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:3097:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3097:/ block"); /*block*/{ /*_#IS_STRING__L8*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:3100:/ cond"); /*cond*/ if (/*_#IS_STRING__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3100:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:3100:/ block"); /*block*/{ /*_.MAKE_STRING_NAKEDBASENAME__V26*/ curfptr[22] = (basilysgc_new_string_nakedbasename((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[4])), basilys_string_str((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2]))));; BASILYS_LOCATION("warmelt-outobj.melt:3101:/ compute"); /*_.MODULNAM__V20*/ curfptr[18] = /*_.SETQ___V27*/ curfptr[23] = /*_.MAKE_STRING_NAKEDBASENAME__V26*/ curfptr[22];; /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V28*/ curfptr[27] = (basilysgc_new_string_tempname_suffixed((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[4])), basilys_string_str((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])), ( ".c")));; BASILYS_LOCATION("warmelt-outobj.melt:3100:/ block"); /*block*/{ /*_.PROGN___V29*/ curfptr[28] = /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V28*/ curfptr[27];;} ; /*_.IFELSE___V25*/ curfptr[21] = /*_.PROGN___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3100:/ clear"); /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V26*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3100:/ clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3100:/ clear"); /*clear*/ /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3100:/ clear"); /*clear*/ /*_.PROGN___V29*/ curfptr[28] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:3100:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3100:/ block"); /*block*/{ error("BASILYS ERROR MSG [#%ld]::: %s ", basilys_dbgcounter, ( "explicit -fmelt-secondarg should be specified with -fmelt-arglist")); BASILYS_LOCATION("warmelt-outobj.melt:3105:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.melt:3105:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-outobj.melt:3103:/ block"); /*block*/{ /*_.PROGN___V31*/ curfptr[23] = /*_.RETURN___V30*/ curfptr[22];;} ; /*_.IFELSE___V25*/ curfptr[21] = /*_.PROGN___V31*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3100:/ clear"); /*clear*/ /*_.RETURN___V30*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3100:/ clear"); /*clear*/ /*_.PROGN___V31*/ curfptr[23] = 0 ;} ; } ; /*_.MODSRCNAME__V21*/ curfptr[20] = /*_.IFELSE___V25*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3097:/ clear"); /*clear*/ /*_#IS_STRING__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3097:/ clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[21] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:3108:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3108:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.MODSRCNAME__V21*/ curfptr[20]; BASILYS_LOCATION("warmelt-outobj.melt:3108:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURENV__V13*/ curfptr[12]; /*_.COMPILE_ONE_OR_MORE_FILES__V32*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!COMPILE_ONE_OR_MORE_FILES*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3109:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3109:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3109:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3109:/ apply.arg"); argtab[0].bp_cstring = "after compilation runfile_command modsrcname"; BASILYS_LOCATION("warmelt-outobj.melt:3109:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7]; BASILYS_LOCATION("warmelt-outobj.melt:3109:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3109:/ apply.arg"); argtab[3].bp_long = 3109; /*_.DEBUG_MSG_FUN__V34*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MODSRCNAME__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3109:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3109:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3109:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3110:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3110:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3110:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3110:/ apply.arg"); argtab[0].bp_cstring = "after compilation runfile_command modulnam"; BASILYS_LOCATION("warmelt-outobj.melt:3110:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[7]; BASILYS_LOCATION("warmelt-outobj.melt:3110:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3110:/ apply.arg"); argtab[3].bp_long = 3110; /*_.DEBUG_MSG_FUN__V36*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MODULNAM__V20*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V35*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3110:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3110:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3110:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LOAD_MELT_MODULE__V37*/ curfptr[22] = (basilysgc_load_melt_module((basilys_ptr_t)(/*_.CURENV__V13*/ curfptr[12]), basilys_string_str((basilys_ptr_t)(/*_.MODULNAM__V20*/ curfptr[18]))));; /*ignore*/(void)(/*_.LOAD_MELT_MODULE__V37*/ curfptr[22]); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3094:/ clear"); /*clear*/ /*_.MODULNAM__V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3094:/ clear"); /*clear*/ /*_#IS_STRING__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3094:/ clear"); /*clear*/ /*_.MODSRCNAME__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3094:/ clear"); /*clear*/ /*_.COMPILE_ONE_OR_MORE_FILES__V32*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3094:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3094:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3094:/ clear"); /*clear*/ /*_.LOAD_MELT_MODULE__V37*/ curfptr[22] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3087:/ clear"); /*clear*/ /*_.PARMODENV__V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3087:/ clear"); /*clear*/ /*_.CURENV__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3087:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3087:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3087:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3082:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3082:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3082:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("RUNFILE_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_RUNFILE_COMMAND*/ static basilys_ptr_t rout_132_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_132_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.melt:3118:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:3118:/ 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.melt:3118:/ 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.melt:3118:/ 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.melt:3118:/ block"); /*block*/{ debugeputs(( "starting compileinit_command")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3120:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3120:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3120:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3120:/ apply.arg"); argtab[0].bp_cstring = "start compileinit_command arg"; BASILYS_LOCATION("warmelt-outobj.melt:3120:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3120:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3120:/ apply.arg"); argtab[3].bp_long = 3120; /*_.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.melt:3120:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3120:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3120:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3121:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3121:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3121:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3121:/ apply.arg"); argtab[0].bp_cstring = "start compileinit_command secarg"; BASILYS_LOCATION("warmelt-outobj.melt:3121:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3121:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3121:/ apply.arg"); argtab[3].bp_long = 3121; /*_.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.melt:3121:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3121:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3121:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3122:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3122:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3122:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3122:/ apply.arg"); argtab[0].bp_cstring = "start compileinit_command moduldata"; BASILYS_LOCATION("warmelt-outobj.melt:3122:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3122:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3122:/ apply.arg"); argtab[3].bp_long = 3122; /*_.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.melt:3122:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3122:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3122:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3123:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3123:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3123:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3123:/ apply.arg"); argtab[0].bp_cstring = "before read compileinit_command initial_environment"; BASILYS_LOCATION("warmelt-outobj.melt:3123:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3123:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3123:/ apply.arg"); argtab[3].bp_long = 3123; /*_.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.melt:3123:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3123:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3123:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3124:/ 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.melt:3126:/ cond"); /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3126:/ cond.then"); /*_.BASNAM__V16*/ curfptr[15] = /*_.SECARG__V4*/ curfptr[3];; } else {BASILYS_LOCATION("warmelt-outobj.melt:3126:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3126:/ block"); /*block*/{ /*_#IS_STRING__L6*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.melt:3127:/ cond"); /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3127:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:3127:/ 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.melt:3127:/ clear"); /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V18*/ curfptr[17] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:3127:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3127:/ block"); /*block*/{ error("BASILYS ERROR MSG [#%ld]::: %s ", basilys_dbgcounter, ( "explicit -fmelt-secondarg should be specified with -fmelt-arglist")); BASILYS_LOCATION("warmelt-outobj.melt:3130:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.melt:3130:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-outobj.melt:3128:/ block"); /*block*/{ /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;} ; /*_.IFELSE___V17*/ curfptr[16] = /*_.PROGN___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3127:/ clear"); /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3127:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;} ; } ; /*_.BASNAM__V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3126:/ clear"); /*clear*/ /*_#IS_STRING__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3126:/ 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.melt:3134:/ cond"); /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3134:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:3134:/ 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.melt:3135:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3135:/ 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.melt:3134:/ clear"); /*clear*/ /*_.READ_FILE__V22*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3134:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V23*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:3134:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3134:/ block"); /*block*/{ /*_#IS_LIST__L8*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.melt:3136:/ cond"); /*cond*/ if (/*_#IS_LIST__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3136:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:3136:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:3138:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:3138:/ 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.melt:3138:/ 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.melt:3137:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3137:/ 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.melt:3136:/ clear"); /*clear*/ /*_.LAMBDA___V25*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3136:/ clear"); /*clear*/ /*_.LIST_EVERY__V27*/ curfptr[26] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:3136:/ cond.else"); /*_.IFELSE___V24*/ curfptr[19] = NULL;; } ; /*_.IFELSE___V21*/ curfptr[17] = /*_.IFELSE___V24*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3134:/ clear"); /*clear*/ /*_#IS_LIST__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3134:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[19] = 0 ;} ; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3147:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3147:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3147:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3147:/ apply.arg"); argtab[0].bp_cstring = "after read compileinit_command rlist"; BASILYS_LOCATION("warmelt-outobj.melt:3147:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7]; BASILYS_LOCATION("warmelt-outobj.melt:3147:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3147:/ apply.arg"); argtab[3].bp_long = 3147; /*_.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.melt:3147:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3147:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3147:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3156:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3156:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[1]); BASILYS_LOCATION("warmelt-outobj.melt:3156:/ 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.melt:3157:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.melt:3157:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V31*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3124:/ clear"); /*clear*/ /*_.RLIST__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3124:/ clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3124:/ clear"); /*clear*/ /*_.BASNAM__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3124:/ clear"); /*clear*/ /*_#IS_STRING__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3124:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3124:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3124:/ clear"); /*clear*/ /*_.COMPILE_LIST_SEXPR__V30*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3124:/ clear"); /*clear*/ /*_.RETURN___V31*/ curfptr[26] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:3118:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-outobj.melt:3118:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3118:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3118:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3118:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3118:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3118:/ 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_132_COMPILEINIT_COMMAND*/ static basilys_ptr_t rout_133_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_133_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.melt:3138:/ getarg"); /*_.CURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.melt:3138:/ 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.melt:3140:/ 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.melt:3142:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3142:/ block"); /*block*/{ /*_#IS_LIST__L1*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)((/*~RLIST*/ curfclos->tabval[0]))) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.melt:3142:/ cond"); /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3142:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:3142:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3142:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check rlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(3142)?(3142):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3142:/ clear"); /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3142:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3142:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3143:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3143:/ 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.melt:3143:/ cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3143:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:3143:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3143:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curead"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(3143)?(3143):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3143:/ clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3143:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3143:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3144:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3144:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3144:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3144:/ apply.arg"); argtab[0].bp_cstring = "compileinit_command curead"; BASILYS_LOCATION("warmelt-outobj.melt:3144:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3144:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3144:/ apply.arg"); argtab[3].bp_long = 3144; /*_.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.melt:3144:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3144:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3144:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3145:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3145:/ 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.melt:3140:/ clear"); /*clear*/ /*_.CUREAD__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3140:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3140:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3140:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3140:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V11*/ curfptr[9] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:3138:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.melt:3138:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3138:/ 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_133_LAMBDA_*/ static basilys_ptr_t rout_134_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_134_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.melt:3164:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:3164:/ 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.melt:3164:/ 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.melt:3164:/ 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.melt:3164:/ block"); /*block*/{ debugeputs(( "starting showmdata_command")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3166:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3166:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3166:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3166:/ apply.arg"); argtab[0].bp_cstring = "showmdata moduldata"; BASILYS_LOCATION("warmelt-outobj.melt:3166:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3166:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3166:/ apply.arg"); argtab[3].bp_long = 3166; /*_.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.melt:3166:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3166:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3166:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; debugeputs(( "ending showmdata_command")); BASILYS_LOCATION("warmelt-outobj.melt:3168:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.melt:3168:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-outobj.melt:3164:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RETURN___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-outobj.melt:3164:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3164:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3164:/ 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_134_SHOWMDATA_COMMAND*/ static basilys_ptr_t rout_135_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_135_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.melt:3175:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:3175:/ 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.melt:3175:/ 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.melt:3175:/ 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.melt:3175:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:3176:/ 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.melt:3177:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3177:/ 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.melt:3178:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3178:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.melt:3178:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:3179:/ 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.melt:3178:/ clear"); /*clear*/ /*_.VBIND_VALUE__V10*/ curfptr[9] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.melt:3178:/ cond.else"); /*_.VAL__V9*/ curfptr[8] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3181:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3181:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3181:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3181:/ apply.arg"); argtab[0].bp_cstring = "showvar symbol"; BASILYS_LOCATION("warmelt-outobj.melt:3181:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:3181:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3181:/ apply.arg"); argtab[3].bp_long = 3181; /*_.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.melt:3181:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3181:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3181:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3182:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3182:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3182:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3182:/ apply.arg"); argtab[0].bp_cstring = "showvar binding"; BASILYS_LOCATION("warmelt-outobj.melt:3182:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:3182:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3182:/ apply.arg"); argtab[3].bp_long = 3182; /*_.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.melt:3182:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3182:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3182:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3183:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3183:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:3183:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3183:/ apply.arg"); argtab[0].bp_cstring = "showvar val"; BASILYS_LOCATION("warmelt-outobj.melt:3183:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.melt:3183:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3183:/ apply.arg"); argtab[3].bp_long = 3183; /*_.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.melt:3183:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3183:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3183:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3184:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.melt:3184:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V6*/ curfptr[5] = /*_.RETURN___V17*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3176:/ clear"); /*clear*/ /*_.SYM__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3176:/ clear"); /*clear*/ /*_.BIND__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3176:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3176:/ clear"); /*clear*/ /*_.VAL__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3176:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3176:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3176:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3176:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[15] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.melt:3175:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.melt:3175:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3175:/ 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_135_SHOWVAR_COMMAND*/ static basilys_ptr_t rout_136_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_136_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.melt:3192:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.melt:3192:/ 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.melt:3192:/ 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.melt:3192:/ 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.melt:3192:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3193:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3193:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:3193:/ 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.melt:3193:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3193:/ apply.arg"); argtab[0].bp_cstring = "command function dict"; BASILYS_LOCATION("warmelt-outobj.melt:3193:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:3193:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:3193:/ apply.arg"); argtab[3].bp_long = 3193; /*_.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.melt:3193:/ clear"); /*clear*/ /*_.SYSDATA_CMD_FUNDICT__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3193:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3193:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3193:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:3194:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:3194:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:3194:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.melt:3194:/ cond.then"); /*_.IFELSE___V10*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.melt:3194:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.melt:3194:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "unimplemented help command"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,(3194)?(3194):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[6] = /*_.IFELSE___V10*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3194:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:3194:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.melt:3192:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V9*/ curfptr[6];; BASILYS_LOCATION("warmelt-outobj.melt:3192:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:3192:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:3192:/ 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_136_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 667 void* varptr[667]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*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(3) drout_188__OUTPUCOD_OBJLABELINSTR; struct BASILYS_CLOSURE_STRUCT(0) dclo_189__OUTPUCOD_OBJLABELINSTR; struct BASILYS_OBJECT_STRUCT(3) dsym_190__CLASS_OBJLABELINSTR; struct BASILYS_STRING_STRUCT(19) dstr_191__CLASS_OBJLABELIN; struct BASILYS_ROUTINE_STRUCT(3) drout_192__OUTPUCOD_OBJGOTOINSTR; struct BASILYS_CLOSURE_STRUCT(0) dclo_193__OUTPUCOD_OBJGOTOINSTR; struct BASILYS_OBJECT_STRUCT(3) dsym_194__CLASS_OBJGOTOINSTR; struct BASILYS_STRING_STRUCT(18) dstr_195__CLASS_OBJGOTOINS; struct BASILYS_ROUTINE_STRUCT(1) drout_196__ADD2SBUF_CLONSYM; struct BASILYS_CLOSURE_STRUCT(0) dclo_197__ADD2SBUF_CLONSYM; struct BASILYS_OBJECT_STRUCT(3) dsym_198__CLASS_CLONEDSYMBOL; struct BASILYS_STRING_STRUCT(18) dstr_199__CLASS_CLONEDSYMB; struct BASILYS_ROUTINE_STRUCT(13) drout_200__OUTPUCOD_OBJLOOP; struct BASILYS_CLOSURE_STRUCT(0) dclo_201__OUTPUCOD_OBJLOOP; struct BASILYS_OBJECT_STRUCT(3) dsym_202__CLASS_OBJLOOP; struct BASILYS_STRING_STRUCT(13) dstr_203__CLASS_OBJLOOP; struct BASILYS_ROUTINE_STRUCT(2) drout_204__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_205__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(5) drout_206__OUTPUCOD_OBJEXIT; struct BASILYS_CLOSURE_STRUCT(0) dclo_207__OUTPUCOD_OBJEXIT; struct BASILYS_OBJECT_STRUCT(3) dsym_208__CLASS_OBJEXIT; struct BASILYS_STRING_STRUCT(13) dstr_209__CLASS_OBJEXIT; struct BASILYS_ROUTINE_STRUCT(13) drout_210__OUTPUCOD_OBJCOMPUTE; struct BASILYS_CLOSURE_STRUCT(0) dclo_211__OUTPUCOD_OBJCOMPUTE; struct BASILYS_OBJECT_STRUCT(3) dsym_212__CLASS_OBJCOMPUTE; struct BASILYS_STRING_STRUCT(16) dstr_213__CLASS_OBJCOMPUTE; struct BASILYS_ROUTINE_STRUCT(1) drout_214__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_215__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_216__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(5) drout_217__OUTPUCOD_OBJCOND; struct BASILYS_CLOSURE_STRUCT(0) dclo_218__OUTPUCOD_OBJCOND; struct BASILYS_OBJECT_STRUCT(3) dsym_219__CLASS_OBJCOND; struct BASILYS_STRING_STRUCT(13) dstr_220__CLASS_OBJCOND; struct BASILYS_ROUTINE_STRUCT(5) drout_221__OUTPUCOD_OBJCPPIF; struct BASILYS_CLOSURE_STRUCT(0) dclo_222__OUTPUCOD_OBJCPPIF; struct BASILYS_OBJECT_STRUCT(3) dsym_223__CLASS_OBJCPPIF; struct BASILYS_STRING_STRUCT(14) dstr_224__CLASS_OBJCPPIF; struct BASILYS_ROUTINE_STRUCT(6) drout_225__OUTPUCOD_OBJINTERNSYMBOL; struct BASILYS_CLOSURE_STRUCT(0) dclo_226__OUTPUCOD_OBJINTERNSYMBOL; struct BASILYS_OBJECT_STRUCT(3) dsym_227__CLASS_OBJINTERNSYMBOL; struct BASILYS_STRING_STRUCT(21) dstr_228__CLASS_OBJINTERNS; struct BASILYS_OBJECT_STRUCT(3) dsym_229__CLASS_NREP_DATASYMBOL; struct BASILYS_STRING_STRUCT(21) dstr_230__CLASS_NREP_DATAS; struct BASILYS_ROUTINE_STRUCT(5) drout_231__OUTPUCOD_OBJINTERNKEYWORD; struct BASILYS_CLOSURE_STRUCT(0) dclo_232__OUTPUCOD_OBJINTERNKEYWORD; struct BASILYS_OBJECT_STRUCT(3) dsym_233__CLASS_OBJINTERNKEYWORD; struct BASILYS_STRING_STRUCT(22) dstr_234__CLASS_OBJINTERNK; struct BASILYS_OBJECT_STRUCT(3) dsym_235__CLASS_NREP_DATAKEYWORD; struct BASILYS_STRING_STRUCT(22) dstr_236__CLASS_NREP_DATAK; struct BASILYS_ROUTINE_STRUCT(6) drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL; struct BASILYS_CLOSURE_STRUCT(0) dclo_238__OUTPUCOD_OBJGETNAMEDSYMBOL; struct BASILYS_OBJECT_STRUCT(3) dsym_239__CLASS_OBJGETNAMEDSYMBOL; struct BASILYS_STRING_STRUCT(23) dstr_240__CLASS_OBJGETNAME; struct BASILYS_ROUTINE_STRUCT(6) drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD; struct BASILYS_CLOSURE_STRUCT(0) dclo_242__OUTPUCOD_OBJGETNAMEDKEYWORD; struct BASILYS_OBJECT_STRUCT(3) dsym_243__CLASS_OBJGETNAMEDKEYWORD; struct BASILYS_STRING_STRUCT(24) dstr_244__CLASS_OBJGETNAME; struct BASILYS_ROUTINE_STRUCT(20) drout_245__OUTPUCOD_OBJAPPLY; struct BASILYS_CLOSURE_STRUCT(0) dclo_246__OUTPUCOD_OBJAPPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_247__CLASS_OBJAPPLY; struct BASILYS_STRING_STRUCT(14) dstr_248__CLASS_OBJAPPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_249__DISCR_LIST; struct BASILYS_STRING_STRUCT(10) dstr_250__DISCR_LIST; struct BASILYS_ROUTINE_STRUCT(8) drout_251__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_252__CLASS_OBJINSTR; struct BASILYS_STRING_STRUCT(14) dstr_253__CLASS_OBJINSTR; struct BASILYS_OBJECT_STRUCT(3) dsym_254__GET_CTYPE; struct BASILYS_STRING_STRUCT(9) dstr_255__GET_CTYPE; struct BASILYS_ROUTINE_STRUCT(1) drout_256__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_257__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(19) drout_258__OUTPUCOD_OBJMSEND; struct BASILYS_CLOSURE_STRUCT(0) dclo_259__OUTPUCOD_OBJMSEND; struct BASILYS_OBJECT_STRUCT(3) dsym_260__CLASS_OBJMSEND; struct BASILYS_STRING_STRUCT(14) dstr_261__CLASS_OBJMSEND; struct BASILYS_ROUTINE_STRUCT(7) drout_262__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_263__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_264__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(28) drout_265__OUTPUCOD_OBJMULTIAPPLY; struct BASILYS_CLOSURE_STRUCT(0) dclo_266__OUTPUCOD_OBJMULTIAPPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_267__CLASS_OBJMULTIAPPLY; struct BASILYS_STRING_STRUCT(19) dstr_268__CLASS_OBJMULTIAP; struct BASILYS_ROUTINE_STRUCT(1) drout_269__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_270__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_271__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_272__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_273__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_274__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(28) drout_275__OUTPUCOD_OBJMULTIMSEND; struct BASILYS_CLOSURE_STRUCT(0) dclo_276__OUTPUCOD_OBJMULTIMSEND; struct BASILYS_OBJECT_STRUCT(3) dsym_277__CLASS_OBJMULTIMSEND; struct BASILYS_STRING_STRUCT(19) dstr_278__CLASS_OBJMULTIMS; struct BASILYS_ROUTINE_STRUCT(1) drout_279__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_280__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_281__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_282__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_283__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_284__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(4) drout_285__OUTPUCOD_OBJCLEAR; struct BASILYS_CLOSURE_STRUCT(0) dclo_286__OUTPUCOD_OBJCLEAR; struct BASILYS_OBJECT_STRUCT(3) dsym_287__CLASS_OBJCLEAR; struct BASILYS_STRING_STRUCT(14) dstr_288__CLASS_OBJCLEAR; struct BASILYS_ROUTINE_STRUCT(9) drout_289__OUTPUCOD_OBJRAWALLOCOBJ; struct BASILYS_CLOSURE_STRUCT(0) dclo_290__OUTPUCOD_OBJRAWALLOCOBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_291__CLASS_OBJRAWALLOCOBJ; struct BASILYS_STRING_STRUCT(20) dstr_292__CLASS_OBJRAWALLO; struct BASILYS_ROUTINE_STRUCT(1) drout_293__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(8) drout_294__OUTPUCOD_OBJNEWCLOSURE; struct BASILYS_CLOSURE_STRUCT(0) dclo_295__OUTPUCOD_OBJNEWCLOSURE; struct BASILYS_OBJECT_STRUCT(3) dsym_296__CLASS_OBJNEWCLOSURE; struct BASILYS_STRING_STRUCT(19) dstr_297__CLASS_OBJNEWCLOS; struct BASILYS_ROUTINE_STRUCT(1) drout_298__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(3) drout_299__OUTPUCOD_OBJTOUCH; struct BASILYS_CLOSURE_STRUCT(0) dclo_300__OUTPUCOD_OBJTOUCH; struct BASILYS_OBJECT_STRUCT(3) dsym_301__CLASS_OBJTOUCH; struct BASILYS_STRING_STRUCT(14) dstr_302__CLASS_OBJTOUCH; struct BASILYS_ROUTINE_STRUCT(4) drout_303__OUTPUCOD_OBJPUTUPLE; struct BASILYS_CLOSURE_STRUCT(0) dclo_304__OUTPUCOD_OBJPUTUPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_305__CLASS_OBJPUTUPLE; struct BASILYS_STRING_STRUCT(16) dstr_306__CLASS_OBJPUTUPLE; struct BASILYS_ROUTINE_STRUCT(9) drout_307__OUTPUCOD_OBJGETSLOT; struct BASILYS_CLOSURE_STRUCT(0) dclo_308__OUTPUCOD_OBJGETSLOT; struct BASILYS_OBJECT_STRUCT(3) dsym_309__CLASS_OBJGETSLOT; struct BASILYS_STRING_STRUCT(16) dstr_310__CLASS_OBJGETSLOT; struct BASILYS_OBJECT_STRUCT(3) dsym_311__CLASS_FIELD; struct BASILYS_STRING_STRUCT(11) dstr_312__CLASS_FIELD; struct BASILYS_ROUTINE_STRUCT(1) drout_313__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(7) drout_314__OUTPUCOD_OBJPUTSLOT; struct BASILYS_CLOSURE_STRUCT(0) dclo_315__OUTPUCOD_OBJPUTSLOT; struct BASILYS_OBJECT_STRUCT(3) dsym_316__CLASS_OBJPUTSLOT; struct BASILYS_STRING_STRUCT(16) dstr_317__CLASS_OBJPUTSLOT; struct BASILYS_OBJECT_STRUCT(3) dsym_318__CLASS_NREP; struct BASILYS_STRING_STRUCT(10) dstr_319__CLASS_NREP; struct BASILYS_ROUTINE_STRUCT(4) drout_320__OUTPUCOD_OBJPUTCLOSUROUT; struct BASILYS_CLOSURE_STRUCT(0) dclo_321__OUTPUCOD_OBJPUTCLOSUROUT; struct BASILYS_OBJECT_STRUCT(3) dsym_322__CLASS_OBJPUTCLOSUROUT; struct BASILYS_STRING_STRUCT(21) dstr_323__CLASS_OBJPUTCLOS; struct BASILYS_ROUTINE_STRUCT(4) drout_324__OUTPUCOD_OBJPUTCLOSEDV; struct BASILYS_CLOSURE_STRUCT(0) dclo_325__OUTPUCOD_OBJPUTCLOSEDV; struct BASILYS_OBJECT_STRUCT(3) dsym_326__CLASS_OBJPUTCLOSEDV; struct BASILYS_STRING_STRUCT(19) dstr_327__CLASS_OBJPUTCLOS; struct BASILYS_ROUTINE_STRUCT(4) drout_328__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; struct BASILYS_CLOSURE_STRUCT(0) dclo_329__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; struct BASILYS_OBJECT_STRUCT(3) dsym_330__CLASS_OBJPUTCLOSEDNOTNULLV; struct BASILYS_STRING_STRUCT(26) dstr_331__CLASS_OBJPUTCLOS; struct BASILYS_ROUTINE_STRUCT(4) drout_332__OUTPUCOD_OBJPUTROUTCONST; struct BASILYS_CLOSURE_STRUCT(0) dclo_333__OUTPUCOD_OBJPUTROUTCONST; struct BASILYS_OBJECT_STRUCT(3) dsym_334__CLASS_OBJPUTROUTCONST; struct BASILYS_STRING_STRUCT(21) dstr_335__CLASS_OBJPUTROUT; struct BASILYS_ROUTINE_STRUCT(3) drout_336__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; struct BASILYS_CLOSURE_STRUCT(0) dclo_337__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; struct BASILYS_OBJECT_STRUCT(3) dsym_338__CLASS_OBJPUTROUTCONSTNOTNULL; struct BASILYS_STRING_STRUCT(28) dstr_339__CLASS_OBJPUTROUT; struct BASILYS_ROUTINE_STRUCT(6) drout_340__OUTPUCOD_OBJPUTXTRARESULT; struct BASILYS_CLOSURE_STRUCT(0) dclo_341__OUTPUCOD_OBJPUTXTRARESULT; struct BASILYS_OBJECT_STRUCT(3) dsym_342__CLASS_OBJPUTXTRARESULT; struct BASILYS_STRING_STRUCT(22) dstr_343__CLASS_OBJPUTXTRA; struct BASILYS_ROUTINE_STRUCT(5) drout_344__OUTPUCOD_OBJEXPV; struct BASILYS_CLOSURE_STRUCT(0) dclo_345__OUTPUCOD_OBJEXPV; struct BASILYS_OBJECT_STRUCT(3) dsym_346__CLASS_OBJEXPV; struct BASILYS_STRING_STRUCT(13) dstr_347__CLASS_OBJEXPV; struct BASILYS_ROUTINE_STRUCT(1) drout_348__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_349__OUTPUCOD_OBJLOCATEDEXPV; struct BASILYS_CLOSURE_STRUCT(0) dclo_350__OUTPUCOD_OBJLOCATEDEXPV; struct BASILYS_OBJECT_STRUCT(3) dsym_351__CLASS_OBJLOCATEDEXPV; struct BASILYS_STRING_STRUCT(20) dstr_352__CLASS_OBJLOCATED; struct BASILYS_ROUTINE_STRUCT(1) drout_353__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_354__OUTPUCOD_VERBATIMSTRING; struct BASILYS_CLOSURE_STRUCT(0) dclo_355__OUTPUCOD_VERBATIMSTRING; struct BASILYS_OBJECT_STRUCT(3) dsym_356__DISCR_VERBATIMSTRING; struct BASILYS_STRING_STRUCT(20) dstr_357__DISCR_VERBATIMST; struct BASILYS_ROUTINE_STRUCT(1) drout_358__OUTPUCOD_STRING; struct BASILYS_CLOSURE_STRUCT(0) dclo_359__OUTPUCOD_STRING; struct BASILYS_ROUTINE_STRUCT(0) drout_360__OUTPUCOD_INTEGER; struct BASILYS_CLOSURE_STRUCT(0) dclo_361__OUTPUCOD_INTEGER; struct BASILYS_ROUTINE_STRUCT(2) drout_362__OUTPUCOD_FINALRETURN; struct BASILYS_CLOSURE_STRUCT(0) dclo_363__OUTPUCOD_FINALRETURN; struct BASILYS_OBJECT_STRUCT(3) dsym_364__CLASS_OBJFINALRETURN; struct BASILYS_STRING_STRUCT(20) dstr_365__CLASS_OBJFINALRE; struct BASILYS_ROUTINE_STRUCT(8) drout_366__SORTED_NAMED_DICT_TUPLE; struct BASILYS_CLOSURE_STRUCT(0) dclo_367__SORTED_NAMED_DICT_TUPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_368__MAPSTRING_EVERY; struct BASILYS_STRING_STRUCT(15) dstr_369__MAPSTRING_EVERY; struct BASILYS_ROUTINE_STRUCT(1) drout_370__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_371__LIST_TO_MULTIPLE; struct BASILYS_STRING_STRUCT(16) dstr_372__LIST_TO_MULTIPLE; struct BASILYS_ROUTINE_STRUCT(0) drout_373__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_374__DISCR_MULTIPLE; struct BASILYS_STRING_STRUCT(14) dstr_375__DISCR_MULTIPLE; struct BASILYS_ROUTINE_STRUCT(8) drout_376__OUTPUT_EXPORTED_OFFSETS; struct BASILYS_CLOSURE_STRUCT(0) dclo_377__OUTPUT_EXPORTED_OFFSETS; struct BASILYS_OBJECT_STRUCT(3) dsym_378__CLASS_MODULCONTEXT; struct BASILYS_STRING_STRUCT(18) dstr_379__CLASS_MODULCONTE; struct BASILYS_ROUTINE_STRUCT(1) drout_380__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_381__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_382__CLASS_CLASS; struct BASILYS_STRING_STRUCT(11) dstr_383__CLASS_CLASS; struct BASILYS_ROUTINE_STRUCT(35) drout_384__COMPILE_LIST_SEXPR; struct BASILYS_CLOSURE_STRUCT(0) dclo_385__COMPILE_LIST_SEXPR; struct BASILYS_OBJECT_STRUCT(3) dsym_386__CLASS_ENVIRONMENT; struct BASILYS_STRING_STRUCT(17) dstr_387__CLASS_ENVIRONMEN; struct BASILYS_OBJECT_STRUCT(3) dsym_388__DISCR_MAPSTRINGS; struct BASILYS_STRING_STRUCT(16) dstr_389__DISCR_MAPSTRINGS; struct BASILYS_OBJECT_STRUCT(3) dsym_390__CREATE_NORMCONTEXT; struct BASILYS_STRING_STRUCT(18) dstr_391__CREATE_NORMCONTE; struct BASILYS_OBJECT_STRUCT(3) dsym_392__CLASS_NORMCONTEXT; struct BASILYS_STRING_STRUCT(17) dstr_393__CLASS_NORMCONTEX; struct BASILYS_OBJECT_STRUCT(3) dsym_394__MACROEXPAND_TOPLEVEL_LIST; struct BASILYS_STRING_STRUCT(25) dstr_395__MACROEXPAND_TOPL; struct BASILYS_OBJECT_STRUCT(3) dsym_396__CLASS_SRC; struct BASILYS_STRING_STRUCT(9) dstr_397__CLASS_SRC; struct BASILYS_OBJECT_STRUCT(3) dsym_398__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(53) dstr_399__CLASS_SRC_UPDATE; struct BASILYS_OBJECT_STRUCT(3) dsym_400__INITIAL_ENVIRONMENT; struct BASILYS_STRING_STRUCT(19) dstr_401__INITIAL_ENVIRONM; struct BASILYS_OBJECT_STRUCT(3) dsym_402__CLASS_NREP_INITPROC; struct BASILYS_STRING_STRUCT(19) dstr_403__CLASS_NREP_INITP; struct BASILYS_ROUTINE_STRUCT(7) drout_404__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_405__CLASS_LOCATED; struct BASILYS_STRING_STRUCT(13) dstr_406__CLASS_LOCATED; struct BASILYS_OBJECT_STRUCT(3) dsym_407__CLASS_SRC_COMMENT; struct BASILYS_STRING_STRUCT(17) dstr_408__CLASS_SRC_COMMEN; struct BASILYS_OBJECT_STRUCT(3) dsym_409__NORMAL_EXP; struct BASILYS_STRING_STRUCT(10) dstr_410__NORMAL_EXP; struct BASILYS_OBJECT_STRUCT(3) dsym_411__CLASS_NREP_ANYPROC; struct BASILYS_STRING_STRUCT(18) dstr_412__CLASS_NREP_ANYPR; struct BASILYS_OBJECT_STRUCT(3) dsym_413__WRAP_NORMAL_LET1; struct BASILYS_STRING_STRUCT(16) dstr_414__WRAP_NORMAL_LET1; struct BASILYS_OBJECT_STRUCT(3) dsym_415__DISCR_MAPOBJECTS; struct BASILYS_STRING_STRUCT(16) dstr_416__DISCR_MAPOBJECTS; struct BASILYS_ROUTINE_STRUCT(3) drout_417__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_418__COMPILE2OBJ_PROCEDURE; struct BASILYS_STRING_STRUCT(21) dstr_419__COMPILE2OBJ_PROC; struct BASILYS_OBJECT_STRUCT(3) dsym_420__COMPILE2OBJ_INITPROC; struct BASILYS_STRING_STRUCT(20) dstr_421__COMPILE2OBJ_INIT; struct BASILYS_ROUTINE_STRUCT(2) drout_422__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_423__INSTALL_INITIAL_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_424__INSTALL_INITIAL_COMMAND; struct BASILYS_OBJECT_STRUCT(3) dsym_425__INITIAL_SYSTEM_DATA; struct BASILYS_STRING_STRUCT(19) dstr_426__INITIAL_SYSTEM_D; struct BASILYS_ROUTINE_STRUCT(2) drout_427__INITIAL_COMMAND_INSTALL; struct BASILYS_CLOSURE_STRUCT(0) dclo_428__INITIAL_COMMAND_INSTALL; struct BASILYS_ROUTINE_STRUCT(1) drout_429__READSEQ_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_430__READSEQ_COMMAND; struct BASILYS_ROUTINE_STRUCT(5) drout_431__COMPILE_ONE_OR_MORE_FILES; struct BASILYS_CLOSURE_STRUCT(0) dclo_432__COMPILE_ONE_OR_MORE_FILES; struct BASILYS_OBJECT_STRUCT(3) dsym_433__LIST_APPEND2LIST; struct BASILYS_STRING_STRUCT(16) dstr_434__LIST_APPEND2LIST; struct BASILYS_ROUTINE_STRUCT(6) drout_435__COMPILEFILE_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_436__COMPILEFILE_COMMAND; struct BASILYS_ROUTINE_STRUCT(6) drout_437__RUNFILE_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_438__RUNFILE_COMMAND; struct BASILYS_ROUTINE_STRUCT(10) drout_439__COMPILEINIT_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_440__COMPILEINIT_COMMAND; struct BASILYS_ROUTINE_STRUCT(2) drout_441__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_442__SHOWMDATA_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_443__SHOWMDATA_COMMAND; struct BASILYS_ROUTINE_STRUCT(3) drout_444__SHOWVAR_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_445__SHOWVAR_COMMAND; struct BASILYS_OBJECT_STRUCT(3) dsym_446__FIND_ENV; struct BASILYS_STRING_STRUCT(8) dstr_447__FIND_ENV; struct BASILYS_OBJECT_STRUCT(3) dsym_448__CLASS_VALUE_BINDING; struct BASILYS_STRING_STRUCT(19) dstr_449__CLASS_VALUE_BIND; struct BASILYS_ROUTINE_STRUCT(2) drout_450__HELP_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_451__HELP_COMMAND; struct BASILYS_OBJECT_STRUCT(3) dsym_452__INITIAL_COMMAND_INSTALL; struct BASILYS_STRING_STRUCT(23) dstr_453__INITIAL_COMMAND_; struct BASILYS_OBJECT_STRUCT(3) dsym_454__INSTALL_INITIAL_COMMAND; struct BASILYS_STRING_STRUCT(23) dstr_455__INSTALL_INITIAL_; struct BASILYS_OBJECT_STRUCT(3) dsym_456__COMPILE_LIST_SEXPR; struct BASILYS_STRING_STRUCT(18) dstr_457__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___V121*/ curfptr[120]) /*_.VALDATA___V121*/ curfptr[120] = (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___V122*/ curfptr[121] = (void*)&cdat->dstr_2__DEBUG_MSG_FUN; cdat->dstr_2__DEBUG_MSG_FUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_2__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN", sizeof(cdat->dstr_2__DEBUG_MSG_FUN.val)-1); /*iniobj dsym_3__CLASS_SYMBOL*/ if (!/*_.VALDATA___V123*/ curfptr[122]) /*_.VALDATA___V123*/ curfptr[122] = (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___V124*/ curfptr[123] = (void*)&cdat->dstr_4__CLASS_SYMBOL; cdat->dstr_4__CLASS_SYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_4__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof(cdat->dstr_4__CLASS_SYMBOL.val)-1); /*inirout drout_5__OUTDECLINIT_ROOT*/ /*_.VALROUT___V125*/ curfptr[124] = (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.melt:36", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_5__OUTDECLINIT_ROOT.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_5__OUTDECLINIT_ROOT, rout_1_OUTDECLINIT_ROOT); /*iniclos dclo_6__OUTDECLINIT_ROOT*/ /*_.VALCLO___V126*/ curfptr[125] = (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___V127*/ curfptr[126]) /*_.VALDATA___V127*/ curfptr[126] = (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___V128*/ curfptr[127] = (void*)&cdat->dstr_8__INSTALL_METHOD; cdat->dstr_8__INSTALL_METHOD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_8__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof(cdat->dstr_8__INSTALL_METHOD.val)-1); /*iniobj dsym_9__CLASS_ROOT*/ if (!/*_.VALDATA___V129*/ curfptr[128]) /*_.VALDATA___V129*/ curfptr[128] = (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___V130*/ curfptr[129] = (void*)&cdat->dstr_10__CLASS_ROOT; cdat->dstr_10__CLASS_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_10__CLASS_ROOT.val, "CLASS_ROOT", sizeof(cdat->dstr_10__CLASS_ROOT.val)-1); /*iniobj dsym_11__OUTPUT_C_DECLINIT*/ if (!/*_.VALDATA___V131*/ curfptr[130]) /*_.VALDATA___V131*/ curfptr[130] = (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___V132*/ curfptr[131] = (void*)&cdat->dstr_12__OUTPUT_C_DECLINI; cdat->dstr_12__OUTPUT_C_DECLINI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_12__OUTPUT_C_DECLINI.val, "OUTPUT_C_DECLINIT", sizeof(cdat->dstr_12__OUTPUT_C_DECLINI.val)-1); /*inirout drout_13__OUTPUCOD_OBJINIELEM*/ /*_.VALROUT___V133*/ curfptr[132] = (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.melt:43", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_13__OUTPUCOD_OBJINIELEM.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_13__OUTPUCOD_OBJINIELEM, rout_2_OUTPUCOD_OBJINIELEM); /*iniclos dclo_14__OUTPUCOD_OBJINIELEM*/ /*_.VALCLO___V134*/ curfptr[133] = (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___V135*/ curfptr[134]) /*_.VALDATA___V135*/ curfptr[134] = (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___V136*/ curfptr[135] = (void*)&cdat->dstr_16__CLASS_OBJINITELE; cdat->dstr_16__CLASS_OBJINITELE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_16__CLASS_OBJINITELE.val, "CLASS_OBJINITELEM", sizeof(cdat->dstr_16__CLASS_OBJINITELE.val)-1); /*iniobj dsym_17__OUTPUT_C_CODE*/ if (!/*_.VALDATA___V137*/ curfptr[136]) /*_.VALDATA___V137*/ curfptr[136] = (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___V138*/ curfptr[137] = (void*)&cdat->dstr_18__OUTPUT_C_CODE; cdat->dstr_18__OUTPUT_C_CODE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_18__OUTPUT_C_CODE.val, "OUTPUT_C_CODE", sizeof(cdat->dstr_18__OUTPUT_C_CODE.val)-1); /*inirout drout_19__OUTCINITFILL_ROOT*/ /*_.VALROUT___V139*/ curfptr[138] = (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.melt:54", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_19__OUTCINITFILL_ROOT.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_19__OUTCINITFILL_ROOT, rout_3_OUTCINITFILL_ROOT); /*iniclos dclo_20__OUTCINITFILL_ROOT*/ /*_.VALCLO___V140*/ curfptr[139] = (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___V141*/ curfptr[140]) /*_.VALDATA___V141*/ curfptr[140] = (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___V142*/ curfptr[141] = (void*)&cdat->dstr_22__OUTPUT_C_INITFIL; cdat->dstr_22__OUTPUT_C_INITFIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_22__OUTPUT_C_INITFIL.val, "OUTPUT_C_INITFILL", sizeof(cdat->dstr_22__OUTPUT_C_INITFIL.val)-1); /*inirout drout_23__OUTCINITPREDEF_ROOT*/ /*_.VALROUT___V143*/ curfptr[142] = (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.melt:62", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_23__OUTCINITPREDEF_ROOT.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_23__OUTCINITPREDEF_ROOT, rout_4_OUTCINITPREDEF_ROOT); /*iniclos dclo_24__OUTCINITPREDEF_ROOT*/ /*_.VALCLO___V144*/ curfptr[143] = (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___V145*/ curfptr[144]) /*_.VALDATA___V145*/ curfptr[144] = (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___V146*/ curfptr[145] = (void*)&cdat->dstr_26__OUTPUT_C_INITPRE; cdat->dstr_26__OUTPUT_C_INITPRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_26__OUTPUT_C_INITPRE.val, "OUTPUT_C_INITPREDEF", sizeof(cdat->dstr_26__OUTPUT_C_INITPRE.val)-1); /*inirout drout_27__OUTPUT_PREDEF*/ /*_.VALROUT___V147*/ curfptr[146] = (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.melt:69", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_27__OUTPUT_PREDEF.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_27__OUTPUT_PREDEF, rout_5_OUTPUT_PREDEF); /*iniclos dclo_28__OUTPUT_PREDEF*/ /*_.VALCLO___V148*/ curfptr[147] = (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___V149*/ curfptr[148]) /*_.VALDATA___V149*/ curfptr[148] = (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___V150*/ curfptr[149] = (void*)&cdat->dstr_30__OBPREDEF; cdat->dstr_30__OBPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_30__OBPREDEF.val, "OBPREDEF", sizeof(cdat->dstr_30__OBPREDEF.val)-1); /*inirout drout_31__OUTPUCOD_PREDEF*/ /*_.VALROUT___V151*/ curfptr[150] = (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.melt:88", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_31__OUTPUCOD_PREDEF.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_31__OUTPUCOD_PREDEF, rout_6_OUTPUCOD_PREDEF); /*iniclos dclo_32__OUTPUCOD_PREDEF*/ /*_.VALCLO___V152*/ curfptr[151] = (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___V153*/ curfptr[152]) /*_.VALDATA___V153*/ curfptr[152] = (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___V154*/ curfptr[153] = (void*)&cdat->dstr_34__CLASS_OBJPREDEF; cdat->dstr_34__CLASS_OBJPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_34__CLASS_OBJPREDEF.val, "CLASS_OBJPREDEF", sizeof(cdat->dstr_34__CLASS_OBJPREDEF.val)-1); /*inirout drout_35__OUTPUCOD_NIL*/ /*_.VALROUT___V155*/ curfptr[154] = (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.melt:95", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_35__OUTPUCOD_NIL.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_35__OUTPUCOD_NIL, rout_7_OUTPUCOD_NIL); /*iniclos dclo_36__OUTPUCOD_NIL*/ /*_.VALCLO___V156*/ curfptr[155] = (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___V157*/ curfptr[156]) /*_.VALDATA___V157*/ curfptr[156] = (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___V158*/ curfptr[157] = (void*)&cdat->dstr_38__CLASS_OBJNIL; cdat->dstr_38__CLASS_OBJNIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_38__CLASS_OBJNIL.val, "CLASS_OBJNIL", sizeof(cdat->dstr_38__CLASS_OBJNIL.val)-1); /*inirout drout_39__OUTDECLINIT_OBJINITOBJECT*/ /*_.VALROUT___V159*/ curfptr[158] = (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.melt:101", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_39__OUTDECLINIT_OBJINITOBJECT.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_39__OUTDECLINIT_OBJINITOBJECT, rout_8_OUTDECLINIT_OBJINITOBJECT); /*iniclos dclo_40__OUTDECLINIT_OBJINITOBJECT*/ /*_.VALCLO___V160*/ curfptr[159] = (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___V161*/ curfptr[160]) /*_.VALDATA___V161*/ curfptr[160] = (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___V162*/ curfptr[161] = (void*)&cdat->dstr_42__CLASS_OBJINITOBJ; cdat->dstr_42__CLASS_OBJINITOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_42__CLASS_OBJINITOBJ.val, "CLASS_OBJINITOBJECT", sizeof(cdat->dstr_42__CLASS_OBJINITOBJ.val)-1); /*inirout drout_43__OUTCINITFILL_OBJINITOBJECT*/ /*_.VALROUT___V163*/ curfptr[162] = (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.melt:111", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_43__OUTCINITFILL_OBJINITOBJECT.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_43__OUTCINITFILL_OBJINITOBJECT, rout_9_OUTCINITFILL_OBJINITOBJECT); /*iniclos dclo_44__OUTCINITFILL_OBJINITOBJECT*/ /*_.VALCLO___V168*/ curfptr[167] = (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___V169*/ curfptr[168]) /*_.VALDATA___V169*/ curfptr[168] = (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___V170*/ curfptr[169] = (void*)&cdat->dstr_46__CLASS_NREP_DATAI; cdat->dstr_46__CLASS_NREP_DATAI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_46__CLASS_NREP_DATAI.val, "CLASS_NREP_DATAINSTANCE", sizeof(cdat->dstr_46__CLASS_NREP_DATAI.val)-1); /*inirout drout_47__OUTCINITPREDEF_OBJINITOBJECT*/ /*_.VALROUT___V171*/ curfptr[170] = (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.melt:231", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT, rout_10_OUTCINITPREDEF_OBJINITOBJECT); /*iniclos dclo_48__OUTCINITPREDEF_OBJINITOBJECT*/ /*_.VALCLO___V172*/ curfptr[171] = (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___V173*/ curfptr[172]) /*_.VALDATA___V173*/ curfptr[172] = (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___V174*/ curfptr[173] = (void*)&cdat->dstr_50__CLASS_NREP_NIL; cdat->dstr_50__CLASS_NREP_NIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_50__CLASS_NREP_NIL.val, "CLASS_NREP_NIL", sizeof(cdat->dstr_50__CLASS_NREP_NIL.val)-1); /*inirout drout_51__OUTDECLINIT_OBJINITMULTIPLE*/ /*_.VALROUT___V175*/ curfptr[174] = (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.melt:311", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE, rout_11_OUTDECLINIT_OBJINITMULTIPLE); /*iniclos dclo_52__OUTDECLINIT_OBJINITMULTIPLE*/ /*_.VALCLO___V176*/ curfptr[175] = (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___V177*/ curfptr[176]) /*_.VALDATA___V177*/ curfptr[176] = (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___V178*/ curfptr[177] = (void*)&cdat->dstr_54__CLASS_OBJINITMUL; cdat->dstr_54__CLASS_OBJINITMUL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_54__CLASS_OBJINITMUL.val, "CLASS_OBJINITMULTIPLE", sizeof(cdat->dstr_54__CLASS_OBJINITMUL.val)-1); /*inirout drout_55__OUTCINITFILL_OBJINITMULTIPLE*/ /*_.VALROUT___V179*/ curfptr[178] = (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.melt:321", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE, rout_12_OUTCINITFILL_OBJINITMULTIPLE); /*iniclos dclo_56__OUTCINITFILL_OBJINITMULTIPLE*/ /*_.VALCLO___V180*/ curfptr[179] = (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___V181*/ curfptr[180] = (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.melt:353", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE, rout_13_OUTDECLINIT_OBJINITCLOSURE); /*iniclos dclo_58__OUTDECLINIT_OBJINITCLOSURE*/ /*_.VALCLO___V182*/ curfptr[181] = (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___V183*/ curfptr[182]) /*_.VALDATA___V183*/ curfptr[182] = (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___V184*/ curfptr[183] = (void*)&cdat->dstr_60__CLASS_OBJINITCLO; cdat->dstr_60__CLASS_OBJINITCLO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_60__CLASS_OBJINITCLO.val, "CLASS_OBJINITCLOSURE", sizeof(cdat->dstr_60__CLASS_OBJINITCLO.val)-1); /*inirout drout_61__OUTCINITFILL_OBJINITCLOSURE*/ /*_.VALROUT___V185*/ curfptr[184] = (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.melt:362", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE, rout_14_OUTCINITFILL_OBJINITCLOSURE); /*iniclos dclo_62__OUTCINITFILL_OBJINITCLOSURE*/ /*_.VALCLO___V186*/ curfptr[185] = (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___V187*/ curfptr[186] = (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.melt:397", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_63__OUTDECLINIT_OBJINITROUTINE.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_63__OUTDECLINIT_OBJINITROUTINE, rout_15_OUTDECLINIT_OBJINITROUTINE); /*iniclos dclo_64__OUTDECLINIT_OBJINITROUTINE*/ /*_.VALCLO___V188*/ curfptr[187] = (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___V189*/ curfptr[188]) /*_.VALDATA___V189*/ curfptr[188] = (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___V190*/ curfptr[189] = (void*)&cdat->dstr_66__CLASS_OBJINITROU; cdat->dstr_66__CLASS_OBJINITROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_66__CLASS_OBJINITROU.val, "CLASS_OBJINITROUTINE", sizeof(cdat->dstr_66__CLASS_OBJINITROU.val)-1); /*inirout drout_67__OUTCINITFILL_OBJINITROUTINE*/ /*_.VALROUT___V191*/ curfptr[190] = (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.melt:407", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_67__OUTCINITFILL_OBJINITROUTINE.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_67__OUTCINITFILL_OBJINITROUTINE, rout_16_OUTCINITFILL_OBJINITROUTINE); /*iniclos dclo_68__OUTCINITFILL_OBJINITROUTINE*/ /*_.VALCLO___V192*/ curfptr[191] = (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___V193*/ curfptr[192]) /*_.VALDATA___V193*/ curfptr[192] = (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___V194*/ curfptr[193] = (void*)&cdat->dstr_70__CLASS_NREP_DATAR; cdat->dstr_70__CLASS_NREP_DATAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_70__CLASS_NREP_DATAR.val, "CLASS_NREP_DATAROUTINE", sizeof(cdat->dstr_70__CLASS_NREP_DATAR.val)-1); /*iniobj dsym_71__CLASS_NAMED*/ if (!/*_.VALDATA___V195*/ curfptr[194]) /*_.VALDATA___V195*/ curfptr[194] = (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___V196*/ curfptr[195] = (void*)&cdat->dstr_72__CLASS_NAMED; cdat->dstr_72__CLASS_NAMED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_72__CLASS_NAMED.val, "CLASS_NAMED", sizeof(cdat->dstr_72__CLASS_NAMED.val)-1); /*iniobj dsym_73__CLASS_NREP_ROUTPROC*/ if (!/*_.VALDATA___V197*/ curfptr[196]) /*_.VALDATA___V197*/ curfptr[196] = (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___V198*/ curfptr[197] = (void*)&cdat->dstr_74__CLASS_NREP_ROUTP; cdat->dstr_74__CLASS_NREP_ROUTP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_74__CLASS_NREP_ROUTP.val, "CLASS_NREP_ROUTPROC", sizeof(cdat->dstr_74__CLASS_NREP_ROUTP.val)-1); /*inirout drout_75__OUTDECLINIT_OBJINITSTRING*/ /*_.VALROUT___V199*/ curfptr[198] = (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.melt:486", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_75__OUTDECLINIT_OBJINITSTRING.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_75__OUTDECLINIT_OBJINITSTRING, rout_17_OUTDECLINIT_OBJINITSTRING); /*iniclos dclo_76__OUTDECLINIT_OBJINITSTRING*/ /*_.VALCLO___V200*/ curfptr[199] = (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___V201*/ curfptr[200]) /*_.VALDATA___V201*/ curfptr[200] = (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___V202*/ curfptr[201] = (void*)&cdat->dstr_78__CLASS_OBJINITSTR; cdat->dstr_78__CLASS_OBJINITSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_78__CLASS_OBJINITSTR.val, "CLASS_OBJINITSTRING", sizeof(cdat->dstr_78__CLASS_OBJINITSTR.val)-1); /*inirout drout_79__OUTCINITFILL_OBJINITSTRING*/ /*_.VALROUT___V203*/ curfptr[202] = (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.melt:496", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_79__OUTCINITFILL_OBJINITSTRING.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_79__OUTCINITFILL_OBJINITSTRING, rout_18_OUTCINITFILL_OBJINITSTRING); /*iniclos dclo_80__OUTCINITFILL_OBJINITSTRING*/ /*_.VALCLO___V204*/ curfptr[203] = (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___V205*/ curfptr[204] = (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.melt:532", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_81__OUTPUCOD_ANYDISCR.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_81__OUTPUCOD_ANYDISCR, rout_19_OUTPUCOD_ANYDISCR); /*iniclos dclo_82__OUTPUCOD_ANYDISCR*/ /*_.VALCLO___V206*/ curfptr[205] = (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___V207*/ curfptr[206]) /*_.VALDATA___V207*/ curfptr[206] = (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___V208*/ curfptr[207] = (void*)&cdat->dstr_84__DISCR_ANYRECV; cdat->dstr_84__DISCR_ANYRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_84__DISCR_ANYRECV.val, "DISCR_ANYRECV", sizeof(cdat->dstr_84__DISCR_ANYRECV.val)-1); /*inirout drout_85__OUTPUCOD_NULL*/ /*_.VALROUT___V209*/ curfptr[208] = (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.melt:541", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_85__OUTPUCOD_NULL.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_85__OUTPUCOD_NULL, rout_20_OUTPUCOD_NULL); /*iniclos dclo_86__OUTPUCOD_NULL*/ /*_.VALCLO___V210*/ curfptr[209] = (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___V211*/ curfptr[210]) /*_.VALDATA___V211*/ curfptr[210] = (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___V212*/ curfptr[211] = (void*)&cdat->dstr_88__DISCR_NULLRECV; cdat->dstr_88__DISCR_NULLRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_88__DISCR_NULLRECV.val, "DISCR_NULLRECV", sizeof(cdat->dstr_88__DISCR_NULLRECV.val)-1); /*inirout drout_89__OUTPUCOD_CATCHALL_ROOT*/ /*_.VALROUT___V213*/ curfptr[212] = (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.melt:547", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_89__OUTPUCOD_CATCHALL_ROOT.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_89__OUTPUCOD_CATCHALL_ROOT, rout_21_OUTPUCOD_CATCHALL_ROOT); /*iniclos dclo_90__OUTPUCOD_CATCHALL_ROOT*/ /*_.VALCLO___V214*/ curfptr[213] = (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___V215*/ curfptr[214]) /*_.VALDATA___V215*/ curfptr[214] = (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___V216*/ curfptr[215] = (void*)&cdat->dstr_92__DISPLAYDEBUGMSG; cdat->dstr_92__DISPLAYDEBUGMSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_92__DISPLAYDEBUGMSG.val, "DISPLAYDEBUGMSG", sizeof(cdat->dstr_92__DISPLAYDEBUGMSG.val)-1); /*inirout drout_93__OUTPUT_RAW_LOCATION*/ /*_.VALROUT___V167*/ curfptr[166] = (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.melt:560", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_93__OUTPUT_RAW_LOCATION.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_93__OUTPUT_RAW_LOCATION, rout_22_OUTPUT_RAW_LOCATION); /*iniclos dclo_94__OUTPUT_RAW_LOCATION*/ /*_.VALCLO___V166*/ curfptr[165] = (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___V165*/ curfptr[164] = (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.melt:591", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_95__OUTPUT_LOCATION.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_95__OUTPUT_LOCATION, rout_23_OUTPUT_LOCATION); /*iniclos dclo_96__OUTPUT_LOCATION*/ /*_.VALCLO___V164*/ curfptr[163] = (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___V217*/ curfptr[216] = (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.melt:621", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_97__OUTPUT_CURFRAME_DECLSTRUCT.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_97__OUTPUT_CURFRAME_DECLSTRUCT, rout_24_OUTPUT_CURFRAME_DECLSTRUCT); /*iniclos dclo_98__OUTPUT_CURFRAME_DECLSTRUCT*/ /*_.VALCLO___V219*/ curfptr[218] = (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___V220*/ curfptr[219]) /*_.VALDATA___V220*/ curfptr[219] = (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___V221*/ curfptr[220] = (void*)&cdat->dstr_100__CLASS_INITIALROU; cdat->dstr_100__CLASS_INITIALROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_100__CLASS_INITIALROU.val, "CLASS_INITIALROUTINEOBJ", sizeof(cdat->dstr_100__CLASS_INITIALROU.val)-1); /*iniobj dsym_101__LIST_EVERY*/ if (!/*_.VALDATA___V222*/ curfptr[221]) /*_.VALDATA___V222*/ curfptr[221] = (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___V223*/ curfptr[222] = (void*)&cdat->dstr_102__LIST_EVERY; cdat->dstr_102__LIST_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_102__LIST_EVERY.val, "LIST_EVERY", sizeof(cdat->dstr_102__LIST_EVERY.val)-1); /*inirout drout_103__LAMBDA_*/ /*_.VALROUT___V218*/ curfptr[217] = (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.melt:692", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_103__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_103__LAMBDA_, rout_25_LAMBDA_); /*iniobj dsym_104__CLASS_OBJLOCV*/ if (!/*_.VALDATA___V224*/ curfptr[223]) /*_.VALDATA___V224*/ curfptr[223] = (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___V225*/ curfptr[224] = (void*)&cdat->dstr_105__CLASS_OBJLOCV; cdat->dstr_105__CLASS_OBJLOCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_105__CLASS_OBJLOCV.val, "CLASS_OBJLOCV", sizeof(cdat->dstr_105__CLASS_OBJLOCV.val)-1); /*iniobj dsym_106__CLASS_CTYPE*/ if (!/*_.VALDATA___V226*/ curfptr[225]) /*_.VALDATA___V226*/ curfptr[225] = (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___V227*/ curfptr[226] = (void*)&cdat->dstr_107__CLASS_CTYPE; cdat->dstr_107__CLASS_CTYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_107__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof(cdat->dstr_107__CLASS_CTYPE.val)-1); /*inirout drout_108__OUTPUCOD_MARKER*/ /*_.VALROUT___V228*/ curfptr[227] = (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.melt:716", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_108__OUTPUCOD_MARKER.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_108__OUTPUCOD_MARKER, rout_26_OUTPUCOD_MARKER); /*iniclos dclo_109__OUTPUCOD_MARKER*/ /*_.VALCLO___V230*/ curfptr[229] = (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___V231*/ curfptr[230]) /*_.VALDATA___V231*/ curfptr[230] = (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___V232*/ curfptr[231] = (void*)&cdat->dstr_111__CLASS_ROUTINEOBJ; cdat->dstr_111__CLASS_ROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_111__CLASS_ROUTINEOBJ.val, "CLASS_ROUTINEOBJ", sizeof(cdat->dstr_111__CLASS_ROUTINEOBJ.val)-1); /*iniobj dsym_112__CTYPE_VALUE*/ if (!/*_.VALDATA___V233*/ curfptr[232]) /*_.VALDATA___V233*/ curfptr[232] = (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___V234*/ curfptr[233] = (void*)&cdat->dstr_113__CTYPE_VALUE; cdat->dstr_113__CTYPE_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_113__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof(cdat->dstr_113__CTYPE_VALUE.val)-1); /*inirout drout_114__LAMBDA_*/ /*_.VALROUT___V229*/ curfptr[228] = (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.melt:737", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_114__LAMBDA_.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_114__LAMBDA_, rout_27_LAMBDA_); /*iniobj dsym_115__CLASS_OBJVALUE*/ if (!/*_.VALDATA___V235*/ curfptr[234]) /*_.VALDATA___V235*/ curfptr[234] = (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___V236*/ curfptr[235] = (void*)&cdat->dstr_116__CLASS_OBJVALUE; cdat->dstr_116__CLASS_OBJVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_116__CLASS_OBJVALUE.val, "CLASS_OBJVALUE", sizeof(cdat->dstr_116__CLASS_OBJVALUE.val)-1); /*inirout drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ /*_.VALROUT___V237*/ curfptr[236] = (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.melt:770", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT, rout_28_OUTPUT_CURFRAME_DECLSTRUCT_INIT); /*iniclos dclo_118__OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ /*_.VALCLO___V238*/ curfptr[237] = (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___V239*/ curfptr[238] = (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.melt:834", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_119__OUTPUCOD_PROCROUTINE.nbval = 13; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_119__OUTPUCOD_PROCROUTINE, rout_29_OUTPUCOD_PROCROUTINE); /*iniclos dclo_120__OUTPUCOD_PROCROUTINE*/ /*_.VALCLO___V242*/ curfptr[241] = (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___V243*/ curfptr[242]) /*_.VALDATA___V243*/ curfptr[242] = (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___V244*/ curfptr[243] = (void*)&cdat->dstr_122__CLASS_PROCROUTIN; cdat->dstr_122__CLASS_PROCROUTIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_122__CLASS_PROCROUTIN.val, "CLASS_PROCROUTINEOBJ", sizeof(cdat->dstr_122__CLASS_PROCROUTIN.val)-1); /*iniobj dsym_123__DISCR_STRING*/ if (!/*_.VALDATA___V245*/ curfptr[244]) /*_.VALDATA___V245*/ curfptr[244] = (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___V246*/ curfptr[245] = (void*)&cdat->dstr_124__DISCR_STRING; cdat->dstr_124__DISCR_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_124__DISCR_STRING.val, "DISCR_STRING", sizeof(cdat->dstr_124__DISCR_STRING.val)-1); /*iniobj dsym_125__MULTIPLE_EVERY*/ if (!/*_.VALDATA___V247*/ curfptr[246]) /*_.VALDATA___V247*/ curfptr[246] = (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___V248*/ curfptr[247] = (void*)&cdat->dstr_126__MULTIPLE_EVERY; cdat->dstr_126__MULTIPLE_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_126__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof(cdat->dstr_126__MULTIPLE_EVERY.val)-1); /*inirout drout_127__LAMBDA_*/ /*_.VALROUT___V240*/ curfptr[239] = (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.melt:896", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_127__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_127__LAMBDA_, rout_30_LAMBDA_); /*inirout drout_128__LAMBDA_*/ /*_.VALROUT___V241*/ curfptr[240] = (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.melt:917", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_128__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_128__LAMBDA_, rout_31_LAMBDA_); /*iniobj dsym_129__CLASS_OBJPUREVALUE*/ if (!/*_.VALDATA___V249*/ curfptr[248]) /*_.VALDATA___V249*/ curfptr[248] = (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___V250*/ curfptr[249] = (void*)&cdat->dstr_130__CLASS_OBJPUREVAL; cdat->dstr_130__CLASS_OBJPUREVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_130__CLASS_OBJPUREVAL.val, "CLASS_OBJPUREVALUE", sizeof(cdat->dstr_130__CLASS_OBJPUREVAL.val)-1); /*inirout drout_131__OUTPUT_CURFRAME_CDAT_STRUCT*/ /*_.VALROUT___V251*/ curfptr[250] = (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.melt:958", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_131__OUTPUT_CURFRAME_CDAT_STRUCT.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_131__OUTPUT_CURFRAME_CDAT_STRUCT, rout_32_OUTPUT_CURFRAME_CDAT_STRUCT); /*iniclos dclo_132__OUTPUT_CURFRAME_CDAT_STRUCT*/ /*_.VALCLO___V253*/ curfptr[252] = (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___V252*/ curfptr[251] = (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.melt:963", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_133__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_133__LAMBDA_, rout_33_LAMBDA_); /*inirout drout_134__OUTPUT_CURFRAME_CDAT_FILL*/ /*_.VALROUT___V254*/ curfptr[253] = (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.melt:974", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_134__OUTPUT_CURFRAME_CDAT_FILL.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_134__OUTPUT_CURFRAME_CDAT_FILL, rout_34_OUTPUT_CURFRAME_CDAT_FILL); /*iniclos dclo_135__OUTPUT_CURFRAME_CDAT_FILL*/ /*_.VALCLO___V257*/ curfptr[256] = (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___V255*/ curfptr[254] = (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.melt:986", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_136__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_136__LAMBDA_, rout_35_LAMBDA_); /*inirout drout_137__LAMBDA_*/ /*_.VALROUT___V256*/ curfptr[255] = (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.melt:995", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_137__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_137__LAMBDA_, rout_36_LAMBDA_); /*inirout drout_138__OUTPUCOD_INITIALROUTINE*/ /*_.VALROUT___V258*/ curfptr[257] = (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.melt:1013", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_138__OUTPUCOD_INITIALROUTINE.nbval = 15; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_138__OUTPUCOD_INITIALROUTINE, rout_37_OUTPUCOD_INITIALROUTINE); /*iniclos dclo_139__OUTPUCOD_INITIALROUTINE*/ /*_.VALCLO___V262*/ curfptr[261] = (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___V259*/ curfptr[258] = (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.melt:1066", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_140__LAMBDA_.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_140__LAMBDA_, rout_38_LAMBDA_); /*inirout drout_141__LAMBDA_*/ /*_.VALROUT___V260*/ curfptr[259] = (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.melt:1079", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_141__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_141__LAMBDA_, rout_39_LAMBDA_); /*inirout drout_142__LAMBDA_*/ /*_.VALROUT___V261*/ curfptr[260] = (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.melt:1103", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_142__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_142__LAMBDA_, rout_40_LAMBDA_); /*inirout drout_143__OUTPUCOD_GETARG*/ /*_.VALROUT___V263*/ curfptr[262] = (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.melt:1153", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_143__OUTPUCOD_GETARG.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_143__OUTPUCOD_GETARG, rout_41_OUTPUCOD_GETARG); /*iniclos dclo_144__OUTPUCOD_GETARG*/ /*_.VALCLO___V264*/ curfptr[263] = (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___V265*/ curfptr[264]) /*_.VALDATA___V265*/ curfptr[264] = (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___V266*/ curfptr[265] = (void*)&cdat->dstr_146__CLASS_OBJGETARG; cdat->dstr_146__CLASS_OBJGETARG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_146__CLASS_OBJGETARG.val, "CLASS_OBJGETARG", sizeof(cdat->dstr_146__CLASS_OBJGETARG.val)-1); /*iniobj dsym_147__CLASS_FORMAL_BINDING*/ if (!/*_.VALDATA___V267*/ curfptr[266]) /*_.VALDATA___V267*/ curfptr[266] = (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___V268*/ curfptr[267] = (void*)&cdat->dstr_148__CLASS_FORMAL_BIN; cdat->dstr_148__CLASS_FORMAL_BIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_148__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING", sizeof(cdat->dstr_148__CLASS_FORMAL_BIN.val)-1); /*inirout drout_149__OUTPUCOD_OBJLOCV*/ /*_.VALROUT___V269*/ curfptr[268] = (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.melt:1219", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_149__OUTPUCOD_OBJLOCV.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_149__OUTPUCOD_OBJLOCV, rout_42_OUTPUCOD_OBJLOCV); /*iniclos dclo_150__OUTPUCOD_OBJLOCV*/ /*_.VALCLO___V270*/ curfptr[269] = (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___V271*/ curfptr[270]) /*_.VALDATA___V271*/ curfptr[270] = (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___V272*/ curfptr[271] = (void*)&cdat->dstr_152__CTYPE_LONG; cdat->dstr_152__CTYPE_LONG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_152__CTYPE_LONG.val, "CTYPE_LONG", sizeof(cdat->dstr_152__CTYPE_LONG.val)-1); /*inirout drout_153__OUTPUCOD_OBJCLOCCV*/ /*_.VALROUT___V273*/ curfptr[272] = (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.melt:1249", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_153__OUTPUCOD_OBJCLOCCV.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_153__OUTPUCOD_OBJCLOCCV, rout_43_OUTPUCOD_OBJCLOCCV); /*iniclos dclo_154__OUTPUCOD_OBJCLOCCV*/ /*_.VALCLO___V274*/ curfptr[273] = (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___V275*/ curfptr[274]) /*_.VALDATA___V275*/ curfptr[274] = (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___V276*/ curfptr[275] = (void*)&cdat->dstr_156__CLASS_OBJCLOCCV; cdat->dstr_156__CLASS_OBJCLOCCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_156__CLASS_OBJCLOCCV.val, "CLASS_OBJCLOCCV", sizeof(cdat->dstr_156__CLASS_OBJCLOCCV.val)-1); /*inirout drout_157__OUTPUCOD_OBJCONSTV*/ /*_.VALROUT___V277*/ curfptr[276] = (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.melt:1266", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_157__OUTPUCOD_OBJCONSTV.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_157__OUTPUCOD_OBJCONSTV, rout_44_OUTPUCOD_OBJCONSTV); /*iniclos dclo_158__OUTPUCOD_OBJCONSTV*/ /*_.VALCLO___V278*/ curfptr[277] = (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___V279*/ curfptr[278]) /*_.VALDATA___V279*/ curfptr[278] = (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___V280*/ curfptr[279] = (void*)&cdat->dstr_160__CLASS_OBJCONSTV; cdat->dstr_160__CLASS_OBJCONSTV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_160__CLASS_OBJCONSTV.val, "CLASS_OBJCONSTV", sizeof(cdat->dstr_160__CLASS_OBJCONSTV.val)-1); /*inirout drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST*/ /*_.VALROUT___V281*/ curfptr[280] = (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.melt:1284", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST, rout_45_OUTPUT_CODE_INSTRUCTIONS_LIST); /*iniclos dclo_162__OUTPUT_CODE_INSTRUCTIONS_LIST*/ /*_.VALCLO___V283*/ curfptr[282] = (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___V282*/ curfptr[281] = (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.melt:1289", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_163__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_163__LAMBDA_, rout_46_LAMBDA_); /*inirout drout_164__OUTPUCOD_OBJBLOCK*/ /*_.VALROUT___V284*/ curfptr[283] = (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.melt:1301", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_164__OUTPUCOD_OBJBLOCK.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_164__OUTPUCOD_OBJBLOCK, rout_47_OUTPUCOD_OBJBLOCK); /*iniclos dclo_165__OUTPUCOD_OBJBLOCK*/ /*_.VALCLO___V285*/ curfptr[284] = (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___V286*/ curfptr[285]) /*_.VALDATA___V286*/ curfptr[285] = (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___V287*/ curfptr[286] = (void*)&cdat->dstr_167__CLASS_OBJBLOCK; cdat->dstr_167__CLASS_OBJBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_167__CLASS_OBJBLOCK.val, "CLASS_OBJBLOCK", sizeof(cdat->dstr_167__CLASS_OBJBLOCK.val)-1); /*iniobj dsym_168__DISCR_INTEGER*/ if (!/*_.VALDATA___V288*/ curfptr[287]) /*_.VALDATA___V288*/ curfptr[287] = (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___V289*/ curfptr[288] = (void*)&cdat->dstr_169__DISCR_INTEGER; cdat->dstr_169__DISCR_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_169__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof(cdat->dstr_169__DISCR_INTEGER.val)-1); /*inirout drout_170__OUTPUCOD_OBJCITERBLOCK*/ /*_.VALROUT___V290*/ curfptr[289] = (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.melt:1325", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_170__OUTPUCOD_OBJCITERBLOCK.nbval = 11; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_170__OUTPUCOD_OBJCITERBLOCK, rout_48_OUTPUCOD_OBJCITERBLOCK); /*iniclos dclo_171__OUTPUCOD_OBJCITERBLOCK*/ /*_.VALCLO___V293*/ curfptr[292] = (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___V294*/ curfptr[293]) /*_.VALDATA___V294*/ curfptr[293] = (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___V295*/ curfptr[294] = (void*)&cdat->dstr_173__CLASS_OBJCITERBL; cdat->dstr_173__CLASS_OBJCITERBL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_173__CLASS_OBJCITERBL.val, "CLASS_OBJCITERBLOCK", sizeof(cdat->dstr_173__CLASS_OBJCITERBL.val)-1); /*iniobj dsym_174__CLASS_CITERATOR*/ if (!/*_.VALDATA___V296*/ curfptr[295]) /*_.VALDATA___V296*/ curfptr[295] = (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___V297*/ curfptr[296] = (void*)&cdat->dstr_175__CLASS_CITERATOR; cdat->dstr_175__CLASS_CITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_175__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof(cdat->dstr_175__CLASS_CITERATOR.val)-1); /*inirout drout_176__LAMBDA_*/ /*_.VALROUT___V291*/ curfptr[290] = (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.melt:1345", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_176__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_176__LAMBDA_, rout_49_LAMBDA_); /*inirout drout_177__LAMBDA_*/ /*_.VALROUT___V292*/ curfptr[291] = (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.melt:1356", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_177__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_177__LAMBDA_, rout_50_LAMBDA_); /*inirout drout_178__OUTPUCOD_OBJCOMMENTINSTR*/ /*_.VALROUT___V298*/ curfptr[297] = (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.melt:1375", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_178__OUTPUCOD_OBJCOMMENTINSTR.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_178__OUTPUCOD_OBJCOMMENTINSTR, rout_51_OUTPUCOD_OBJCOMMENTINSTR); /*iniclos dclo_179__OUTPUCOD_OBJCOMMENTINSTR*/ /*_.VALCLO___V299*/ curfptr[298] = (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___V300*/ curfptr[299]) /*_.VALDATA___V300*/ curfptr[299] = (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___V301*/ curfptr[300] = (void*)&cdat->dstr_181__CLASS_OBJCOMMENT; cdat->dstr_181__CLASS_OBJCOMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_181__CLASS_OBJCOMMENT.val, "CLASS_OBJCOMMENTINSTR", sizeof(cdat->dstr_181__CLASS_OBJCOMMENT.val)-1); /*iniobj dsym_182__DISCR_STRBUF*/ if (!/*_.VALDATA___V302*/ curfptr[301]) /*_.VALDATA___V302*/ curfptr[301] = (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___V303*/ curfptr[302] = (void*)&cdat->dstr_183__DISCR_STRBUF; cdat->dstr_183__DISCR_STRBUF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_183__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof(cdat->dstr_183__DISCR_STRBUF.val)-1); /*inirout drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK*/ /*_.VALROUT___V304*/ curfptr[303] = (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.melt:1394", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK, rout_52_OUTPUCOD_OBJCOMMENTEDBLOCK); /*iniclos dclo_185__OUTPUCOD_OBJCOMMENTEDBLOCK*/ /*_.VALCLO___V305*/ curfptr[304] = (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___V306*/ curfptr[305]) /*_.VALDATA___V306*/ curfptr[305] = (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___V307*/ curfptr[306] = (void*)&cdat->dstr_187__CLASS_OBJCOMMENT; cdat->dstr_187__CLASS_OBJCOMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_187__CLASS_OBJCOMMENT.val, "CLASS_OBJCOMMENTEDBLOCK", sizeof(cdat->dstr_187__CLASS_OBJCOMMENT.val)-1); /*inirout drout_188__OUTPUCOD_OBJLABELINSTR*/ /*_.VALROUT___V308*/ curfptr[307] = (void*)&cdat->drout_188__OUTPUCOD_OBJLABELINSTR; cdat->drout_188__OUTPUCOD_OBJLABELINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_188__OUTPUCOD_OBJLABELINSTR.routdescr, "OUTPUCOD_OBJLABELINSTR @warmelt-outobj.melt:1432", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_188__OUTPUCOD_OBJLABELINSTR.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_188__OUTPUCOD_OBJLABELINSTR, rout_53_OUTPUCOD_OBJLABELINSTR); /*iniclos dclo_189__OUTPUCOD_OBJLABELINSTR*/ /*_.VALCLO___V309*/ curfptr[308] = (void*)&cdat->dclo_189__OUTPUCOD_OBJLABELINSTR; cdat->dclo_189__OUTPUCOD_OBJLABELINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_189__OUTPUCOD_OBJLABELINSTR.nbval = 0; /*iniobj dsym_190__CLASS_OBJLABELINSTR*/ if (!/*_.VALDATA___V310*/ curfptr[309]) /*_.VALDATA___V310*/ curfptr[309] = (void*)&cdat->dsym_190__CLASS_OBJLABELINSTR; basilys_assertmsg("iniobj checkdiscr dsym_190__CLASS_OBJLABELINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_190__CLASS_OBJLABELINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_190__CLASS_OBJLABELINSTR.obj_hash = 573008884; cdat->dsym_190__CLASS_OBJLABELINSTR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_190__CLASS_OBJLABELINSTR)); /*inistring dstr_191__CLASS_OBJLABELIN*/ /*_.VALSTR___V311*/ curfptr[310] = (void*)&cdat->dstr_191__CLASS_OBJLABELIN; cdat->dstr_191__CLASS_OBJLABELIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_191__CLASS_OBJLABELIN.val, "CLASS_OBJLABELINSTR", sizeof(cdat->dstr_191__CLASS_OBJLABELIN.val)-1); /*inirout drout_192__OUTPUCOD_OBJGOTOINSTR*/ /*_.VALROUT___V312*/ curfptr[311] = (void*)&cdat->drout_192__OUTPUCOD_OBJGOTOINSTR; cdat->drout_192__OUTPUCOD_OBJGOTOINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_192__OUTPUCOD_OBJGOTOINSTR.routdescr, "OUTPUCOD_OBJGOTOINSTR @warmelt-outobj.melt:1450", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_192__OUTPUCOD_OBJGOTOINSTR.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_192__OUTPUCOD_OBJGOTOINSTR, rout_54_OUTPUCOD_OBJGOTOINSTR); /*iniclos dclo_193__OUTPUCOD_OBJGOTOINSTR*/ /*_.VALCLO___V313*/ curfptr[312] = (void*)&cdat->dclo_193__OUTPUCOD_OBJGOTOINSTR; cdat->dclo_193__OUTPUCOD_OBJGOTOINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_193__OUTPUCOD_OBJGOTOINSTR.nbval = 0; /*iniobj dsym_194__CLASS_OBJGOTOINSTR*/ if (!/*_.VALDATA___V314*/ curfptr[313]) /*_.VALDATA___V314*/ curfptr[313] = (void*)&cdat->dsym_194__CLASS_OBJGOTOINSTR; basilys_assertmsg("iniobj checkdiscr dsym_194__CLASS_OBJGOTOINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_194__CLASS_OBJGOTOINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_194__CLASS_OBJGOTOINSTR.obj_hash = 100586655; cdat->dsym_194__CLASS_OBJGOTOINSTR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_194__CLASS_OBJGOTOINSTR)); /*inistring dstr_195__CLASS_OBJGOTOINS*/ /*_.VALSTR___V315*/ curfptr[314] = (void*)&cdat->dstr_195__CLASS_OBJGOTOINS; cdat->dstr_195__CLASS_OBJGOTOINS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_195__CLASS_OBJGOTOINS.val, "CLASS_OBJGOTOINSTR", sizeof(cdat->dstr_195__CLASS_OBJGOTOINS.val)-1); /*inirout drout_196__ADD2SBUF_CLONSYM*/ /*_.VALROUT___V316*/ curfptr[315] = (void*)&cdat->drout_196__ADD2SBUF_CLONSYM; cdat->drout_196__ADD2SBUF_CLONSYM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_196__ADD2SBUF_CLONSYM.routdescr, "ADD2SBUF_CLONSYM @warmelt-outobj.melt:1466", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_196__ADD2SBUF_CLONSYM.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_196__ADD2SBUF_CLONSYM, rout_55_ADD2SBUF_CLONSYM); /*iniclos dclo_197__ADD2SBUF_CLONSYM*/ /*_.VALCLO___V317*/ curfptr[316] = (void*)&cdat->dclo_197__ADD2SBUF_CLONSYM; cdat->dclo_197__ADD2SBUF_CLONSYM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_197__ADD2SBUF_CLONSYM.nbval = 0; /*iniobj dsym_198__CLASS_CLONEDSYMBOL*/ if (!/*_.VALDATA___V318*/ curfptr[317]) /*_.VALDATA___V318*/ curfptr[317] = (void*)&cdat->dsym_198__CLASS_CLONEDSYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_198__CLASS_CLONEDSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_198__CLASS_CLONEDSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_198__CLASS_CLONEDSYMBOL.obj_hash = 101008864; cdat->dsym_198__CLASS_CLONEDSYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_198__CLASS_CLONEDSYMBOL)); /*inistring dstr_199__CLASS_CLONEDSYMB*/ /*_.VALSTR___V319*/ curfptr[318] = (void*)&cdat->dstr_199__CLASS_CLONEDSYMB; cdat->dstr_199__CLASS_CLONEDSYMB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_199__CLASS_CLONEDSYMB.val, "CLASS_CLONEDSYMBOL", sizeof(cdat->dstr_199__CLASS_CLONEDSYMB.val)-1); /*inirout drout_200__OUTPUCOD_OBJLOOP*/ /*_.VALROUT___V320*/ curfptr[319] = (void*)&cdat->drout_200__OUTPUCOD_OBJLOOP; cdat->drout_200__OUTPUCOD_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_200__OUTPUCOD_OBJLOOP.routdescr, "OUTPUCOD_OBJLOOP @warmelt-outobj.melt:1477", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_200__OUTPUCOD_OBJLOOP.nbval = 13; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_200__OUTPUCOD_OBJLOOP, rout_56_OUTPUCOD_OBJLOOP); /*iniclos dclo_201__OUTPUCOD_OBJLOOP*/ /*_.VALCLO___V323*/ curfptr[322] = (void*)&cdat->dclo_201__OUTPUCOD_OBJLOOP; cdat->dclo_201__OUTPUCOD_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_201__OUTPUCOD_OBJLOOP.nbval = 0; /*iniobj dsym_202__CLASS_OBJLOOP*/ if (!/*_.VALDATA___V324*/ curfptr[323]) /*_.VALDATA___V324*/ curfptr[323] = (void*)&cdat->dsym_202__CLASS_OBJLOOP; basilys_assertmsg("iniobj checkdiscr dsym_202__CLASS_OBJLOOP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_202__CLASS_OBJLOOP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_202__CLASS_OBJLOOP.obj_hash = 763853388; cdat->dsym_202__CLASS_OBJLOOP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_202__CLASS_OBJLOOP)); /*inistring dstr_203__CLASS_OBJLOOP*/ /*_.VALSTR___V325*/ curfptr[324] = (void*)&cdat->dstr_203__CLASS_OBJLOOP; cdat->dstr_203__CLASS_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_203__CLASS_OBJLOOP.val, "CLASS_OBJLOOP", sizeof(cdat->dstr_203__CLASS_OBJLOOP.val)-1); /*inirout drout_204__LAMBDA_*/ /*_.VALROUT___V321*/ curfptr[320] = (void*)&cdat->drout_204__LAMBDA_; cdat->drout_204__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_204__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1497", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_204__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_204__LAMBDA_, rout_57_LAMBDA_); /*inirout drout_205__LAMBDA_*/ /*_.VALROUT___V322*/ curfptr[321] = (void*)&cdat->drout_205__LAMBDA_; cdat->drout_205__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_205__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1519", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_205__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_205__LAMBDA_, rout_58_LAMBDA_); /*inirout drout_206__OUTPUCOD_OBJEXIT*/ /*_.VALROUT___V326*/ curfptr[325] = (void*)&cdat->drout_206__OUTPUCOD_OBJEXIT; cdat->drout_206__OUTPUCOD_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_206__OUTPUCOD_OBJEXIT.routdescr, "OUTPUCOD_OBJEXIT @warmelt-outobj.melt:1534", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_206__OUTPUCOD_OBJEXIT.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_206__OUTPUCOD_OBJEXIT, rout_59_OUTPUCOD_OBJEXIT); /*iniclos dclo_207__OUTPUCOD_OBJEXIT*/ /*_.VALCLO___V327*/ curfptr[326] = (void*)&cdat->dclo_207__OUTPUCOD_OBJEXIT; cdat->dclo_207__OUTPUCOD_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_207__OUTPUCOD_OBJEXIT.nbval = 0; /*iniobj dsym_208__CLASS_OBJEXIT*/ if (!/*_.VALDATA___V328*/ curfptr[327]) /*_.VALDATA___V328*/ curfptr[327] = (void*)&cdat->dsym_208__CLASS_OBJEXIT; basilys_assertmsg("iniobj checkdiscr dsym_208__CLASS_OBJEXIT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_208__CLASS_OBJEXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_208__CLASS_OBJEXIT.obj_hash = 635210442; cdat->dsym_208__CLASS_OBJEXIT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_208__CLASS_OBJEXIT)); /*inistring dstr_209__CLASS_OBJEXIT*/ /*_.VALSTR___V329*/ curfptr[328] = (void*)&cdat->dstr_209__CLASS_OBJEXIT; cdat->dstr_209__CLASS_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_209__CLASS_OBJEXIT.val, "CLASS_OBJEXIT", sizeof(cdat->dstr_209__CLASS_OBJEXIT.val)-1); /*inirout drout_210__OUTPUCOD_OBJCOMPUTE*/ /*_.VALROUT___V330*/ curfptr[329] = (void*)&cdat->drout_210__OUTPUCOD_OBJCOMPUTE; cdat->drout_210__OUTPUCOD_OBJCOMPUTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_210__OUTPUCOD_OBJCOMPUTE.routdescr, "OUTPUCOD_OBJCOMPUTE @warmelt-outobj.melt:1552", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_210__OUTPUCOD_OBJCOMPUTE.nbval = 13; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_210__OUTPUCOD_OBJCOMPUTE, rout_60_OUTPUCOD_OBJCOMPUTE); /*iniclos dclo_211__OUTPUCOD_OBJCOMPUTE*/ /*_.VALCLO___V334*/ curfptr[333] = (void*)&cdat->dclo_211__OUTPUCOD_OBJCOMPUTE; cdat->dclo_211__OUTPUCOD_OBJCOMPUTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_211__OUTPUCOD_OBJCOMPUTE.nbval = 0; /*iniobj dsym_212__CLASS_OBJCOMPUTE*/ if (!/*_.VALDATA___V335*/ curfptr[334]) /*_.VALDATA___V335*/ curfptr[334] = (void*)&cdat->dsym_212__CLASS_OBJCOMPUTE; basilys_assertmsg("iniobj checkdiscr dsym_212__CLASS_OBJCOMPUTE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_212__CLASS_OBJCOMPUTE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_212__CLASS_OBJCOMPUTE.obj_hash = 943434547; cdat->dsym_212__CLASS_OBJCOMPUTE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_212__CLASS_OBJCOMPUTE)); /*inistring dstr_213__CLASS_OBJCOMPUTE*/ /*_.VALSTR___V336*/ curfptr[335] = (void*)&cdat->dstr_213__CLASS_OBJCOMPUTE; cdat->dstr_213__CLASS_OBJCOMPUTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_213__CLASS_OBJCOMPUTE.val, "CLASS_OBJCOMPUTE", sizeof(cdat->dstr_213__CLASS_OBJCOMPUTE.val)-1); /*inirout drout_214__LAMBDA_*/ /*_.VALROUT___V331*/ curfptr[330] = (void*)&cdat->drout_214__LAMBDA_; cdat->drout_214__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_214__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1564", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_214__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_214__LAMBDA_, rout_61_LAMBDA_); /*inirout drout_215__LAMBDA_*/ /*_.VALROUT___V332*/ curfptr[331] = (void*)&cdat->drout_215__LAMBDA_; cdat->drout_215__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_215__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1573", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_215__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_215__LAMBDA_, rout_62_LAMBDA_); /*inirout drout_216__LAMBDA_*/ /*_.VALROUT___V333*/ curfptr[332] = (void*)&cdat->drout_216__LAMBDA_; cdat->drout_216__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_216__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1580", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_216__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_216__LAMBDA_, rout_63_LAMBDA_); /*inirout drout_217__OUTPUCOD_OBJCOND*/ /*_.VALROUT___V337*/ curfptr[336] = (void*)&cdat->drout_217__OUTPUCOD_OBJCOND; cdat->drout_217__OUTPUCOD_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_217__OUTPUCOD_OBJCOND.routdescr, "OUTPUCOD_OBJCOND @warmelt-outobj.melt:1591", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_217__OUTPUCOD_OBJCOND.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_217__OUTPUCOD_OBJCOND, rout_64_OUTPUCOD_OBJCOND); /*iniclos dclo_218__OUTPUCOD_OBJCOND*/ /*_.VALCLO___V338*/ curfptr[337] = (void*)&cdat->dclo_218__OUTPUCOD_OBJCOND; cdat->dclo_218__OUTPUCOD_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_218__OUTPUCOD_OBJCOND.nbval = 0; /*iniobj dsym_219__CLASS_OBJCOND*/ if (!/*_.VALDATA___V339*/ curfptr[338]) /*_.VALDATA___V339*/ curfptr[338] = (void*)&cdat->dsym_219__CLASS_OBJCOND; basilys_assertmsg("iniobj checkdiscr dsym_219__CLASS_OBJCOND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_219__CLASS_OBJCOND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_219__CLASS_OBJCOND.obj_hash = 545823211; cdat->dsym_219__CLASS_OBJCOND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_219__CLASS_OBJCOND)); /*inistring dstr_220__CLASS_OBJCOND*/ /*_.VALSTR___V340*/ curfptr[339] = (void*)&cdat->dstr_220__CLASS_OBJCOND; cdat->dstr_220__CLASS_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_220__CLASS_OBJCOND.val, "CLASS_OBJCOND", sizeof(cdat->dstr_220__CLASS_OBJCOND.val)-1); /*inirout drout_221__OUTPUCOD_OBJCPPIF*/ /*_.VALROUT___V341*/ curfptr[340] = (void*)&cdat->drout_221__OUTPUCOD_OBJCPPIF; cdat->drout_221__OUTPUCOD_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_221__OUTPUCOD_OBJCPPIF.routdescr, "OUTPUCOD_OBJCPPIF @warmelt-outobj.melt:1633", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_221__OUTPUCOD_OBJCPPIF.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_221__OUTPUCOD_OBJCPPIF, rout_65_OUTPUCOD_OBJCPPIF); /*iniclos dclo_222__OUTPUCOD_OBJCPPIF*/ /*_.VALCLO___V342*/ curfptr[341] = (void*)&cdat->dclo_222__OUTPUCOD_OBJCPPIF; cdat->dclo_222__OUTPUCOD_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_222__OUTPUCOD_OBJCPPIF.nbval = 0; /*iniobj dsym_223__CLASS_OBJCPPIF*/ if (!/*_.VALDATA___V343*/ curfptr[342]) /*_.VALDATA___V343*/ curfptr[342] = (void*)&cdat->dsym_223__CLASS_OBJCPPIF; basilys_assertmsg("iniobj checkdiscr dsym_223__CLASS_OBJCPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_223__CLASS_OBJCPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_223__CLASS_OBJCPPIF.obj_hash = 418843843; cdat->dsym_223__CLASS_OBJCPPIF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_223__CLASS_OBJCPPIF)); /*inistring dstr_224__CLASS_OBJCPPIF*/ /*_.VALSTR___V344*/ curfptr[343] = (void*)&cdat->dstr_224__CLASS_OBJCPPIF; cdat->dstr_224__CLASS_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_224__CLASS_OBJCPPIF.val, "CLASS_OBJCPPIF", sizeof(cdat->dstr_224__CLASS_OBJCPPIF.val)-1); /*inirout drout_225__OUTPUCOD_OBJINTERNSYMBOL*/ /*_.VALROUT___V345*/ curfptr[344] = (void*)&cdat->drout_225__OUTPUCOD_OBJINTERNSYMBOL; cdat->drout_225__OUTPUCOD_OBJINTERNSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_225__OUTPUCOD_OBJINTERNSYMBOL.routdescr, "OUTPUCOD_OBJINTERNSYMBOL @warmelt-outobj.melt:1665", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_225__OUTPUCOD_OBJINTERNSYMBOL.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_225__OUTPUCOD_OBJINTERNSYMBOL, rout_66_OUTPUCOD_OBJINTERNSYMBOL); /*iniclos dclo_226__OUTPUCOD_OBJINTERNSYMBOL*/ /*_.VALCLO___V346*/ curfptr[345] = (void*)&cdat->dclo_226__OUTPUCOD_OBJINTERNSYMBOL; cdat->dclo_226__OUTPUCOD_OBJINTERNSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_226__OUTPUCOD_OBJINTERNSYMBOL.nbval = 0; /*iniobj dsym_227__CLASS_OBJINTERNSYMBOL*/ if (!/*_.VALDATA___V347*/ curfptr[346]) /*_.VALDATA___V347*/ curfptr[346] = (void*)&cdat->dsym_227__CLASS_OBJINTERNSYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_227__CLASS_OBJINTERNSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_227__CLASS_OBJINTERNSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_227__CLASS_OBJINTERNSYMBOL.obj_hash = 881953204; cdat->dsym_227__CLASS_OBJINTERNSYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_227__CLASS_OBJINTERNSYMBOL)); /*inistring dstr_228__CLASS_OBJINTERNS*/ /*_.VALSTR___V348*/ curfptr[347] = (void*)&cdat->dstr_228__CLASS_OBJINTERNS; cdat->dstr_228__CLASS_OBJINTERNS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_228__CLASS_OBJINTERNS.val, "CLASS_OBJINTERNSYMBOL", sizeof(cdat->dstr_228__CLASS_OBJINTERNS.val)-1); /*iniobj dsym_229__CLASS_NREP_DATASYMBOL*/ if (!/*_.VALDATA___V349*/ curfptr[348]) /*_.VALDATA___V349*/ curfptr[348] = (void*)&cdat->dsym_229__CLASS_NREP_DATASYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_229__CLASS_NREP_DATASYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_229__CLASS_NREP_DATASYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_229__CLASS_NREP_DATASYMBOL.obj_hash = 55902456; cdat->dsym_229__CLASS_NREP_DATASYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_229__CLASS_NREP_DATASYMBOL)); /*inistring dstr_230__CLASS_NREP_DATAS*/ /*_.VALSTR___V350*/ curfptr[349] = (void*)&cdat->dstr_230__CLASS_NREP_DATAS; cdat->dstr_230__CLASS_NREP_DATAS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_230__CLASS_NREP_DATAS.val, "CLASS_NREP_DATASYMBOL", sizeof(cdat->dstr_230__CLASS_NREP_DATAS.val)-1); /*inirout drout_231__OUTPUCOD_OBJINTERNKEYWORD*/ /*_.VALROUT___V351*/ curfptr[350] = (void*)&cdat->drout_231__OUTPUCOD_OBJINTERNKEYWORD; cdat->drout_231__OUTPUCOD_OBJINTERNKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_231__OUTPUCOD_OBJINTERNKEYWORD.routdescr, "OUTPUCOD_OBJINTERNKEYWORD @warmelt-outobj.melt:1689", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_231__OUTPUCOD_OBJINTERNKEYWORD.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_231__OUTPUCOD_OBJINTERNKEYWORD, rout_67_OUTPUCOD_OBJINTERNKEYWORD); /*iniclos dclo_232__OUTPUCOD_OBJINTERNKEYWORD*/ /*_.VALCLO___V352*/ curfptr[351] = (void*)&cdat->dclo_232__OUTPUCOD_OBJINTERNKEYWORD; cdat->dclo_232__OUTPUCOD_OBJINTERNKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_232__OUTPUCOD_OBJINTERNKEYWORD.nbval = 0; /*iniobj dsym_233__CLASS_OBJINTERNKEYWORD*/ if (!/*_.VALDATA___V353*/ curfptr[352]) /*_.VALDATA___V353*/ curfptr[352] = (void*)&cdat->dsym_233__CLASS_OBJINTERNKEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_233__CLASS_OBJINTERNKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_233__CLASS_OBJINTERNKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_233__CLASS_OBJINTERNKEYWORD.obj_hash = 606725080; cdat->dsym_233__CLASS_OBJINTERNKEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_233__CLASS_OBJINTERNKEYWORD)); /*inistring dstr_234__CLASS_OBJINTERNK*/ /*_.VALSTR___V354*/ curfptr[353] = (void*)&cdat->dstr_234__CLASS_OBJINTERNK; cdat->dstr_234__CLASS_OBJINTERNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_234__CLASS_OBJINTERNK.val, "CLASS_OBJINTERNKEYWORD", sizeof(cdat->dstr_234__CLASS_OBJINTERNK.val)-1); /*iniobj dsym_235__CLASS_NREP_DATAKEYWORD*/ if (!/*_.VALDATA___V355*/ curfptr[354]) /*_.VALDATA___V355*/ curfptr[354] = (void*)&cdat->dsym_235__CLASS_NREP_DATAKEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_235__CLASS_NREP_DATAKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_235__CLASS_NREP_DATAKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_235__CLASS_NREP_DATAKEYWORD.obj_hash = 755124591; cdat->dsym_235__CLASS_NREP_DATAKEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_235__CLASS_NREP_DATAKEYWORD)); /*inistring dstr_236__CLASS_NREP_DATAK*/ /*_.VALSTR___V356*/ curfptr[355] = (void*)&cdat->dstr_236__CLASS_NREP_DATAK; cdat->dstr_236__CLASS_NREP_DATAK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_236__CLASS_NREP_DATAK.val, "CLASS_NREP_DATAKEYWORD", sizeof(cdat->dstr_236__CLASS_NREP_DATAK.val)-1); /*inirout drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL*/ /*_.VALROUT___V357*/ curfptr[356] = (void*)&cdat->drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL; cdat->drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL.routdescr, "OUTPUCOD_OBJGETNAMEDSYMBOL @warmelt-outobj.melt:1712", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL, rout_68_OUTPUCOD_OBJGETNAMEDSYMBOL); /*iniclos dclo_238__OUTPUCOD_OBJGETNAMEDSYMBOL*/ /*_.VALCLO___V358*/ curfptr[357] = (void*)&cdat->dclo_238__OUTPUCOD_OBJGETNAMEDSYMBOL; cdat->dclo_238__OUTPUCOD_OBJGETNAMEDSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_238__OUTPUCOD_OBJGETNAMEDSYMBOL.nbval = 0; /*iniobj dsym_239__CLASS_OBJGETNAMEDSYMBOL*/ if (!/*_.VALDATA___V359*/ curfptr[358]) /*_.VALDATA___V359*/ curfptr[358] = (void*)&cdat->dsym_239__CLASS_OBJGETNAMEDSYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_239__CLASS_OBJGETNAMEDSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_239__CLASS_OBJGETNAMEDSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_239__CLASS_OBJGETNAMEDSYMBOL.obj_hash = 552748717; cdat->dsym_239__CLASS_OBJGETNAMEDSYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_239__CLASS_OBJGETNAMEDSYMBOL)); /*inistring dstr_240__CLASS_OBJGETNAME*/ /*_.VALSTR___V360*/ curfptr[359] = (void*)&cdat->dstr_240__CLASS_OBJGETNAME; cdat->dstr_240__CLASS_OBJGETNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_240__CLASS_OBJGETNAME.val, "CLASS_OBJGETNAMEDSYMBOL", sizeof(cdat->dstr_240__CLASS_OBJGETNAME.val)-1); /*inirout drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD*/ /*_.VALROUT___V361*/ curfptr[360] = (void*)&cdat->drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD; cdat->drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD.routdescr, "OUTPUCOD_OBJGETNAMEDKEYWORD @warmelt-outobj.melt:1750", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD, rout_69_OUTPUCOD_OBJGETNAMEDKEYWORD); /*iniclos dclo_242__OUTPUCOD_OBJGETNAMEDKEYWORD*/ /*_.VALCLO___V362*/ curfptr[361] = (void*)&cdat->dclo_242__OUTPUCOD_OBJGETNAMEDKEYWORD; cdat->dclo_242__OUTPUCOD_OBJGETNAMEDKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_242__OUTPUCOD_OBJGETNAMEDKEYWORD.nbval = 0; /*iniobj dsym_243__CLASS_OBJGETNAMEDKEYWORD*/ if (!/*_.VALDATA___V363*/ curfptr[362]) /*_.VALDATA___V363*/ curfptr[362] = (void*)&cdat->dsym_243__CLASS_OBJGETNAMEDKEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_243__CLASS_OBJGETNAMEDKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_243__CLASS_OBJGETNAMEDKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_243__CLASS_OBJGETNAMEDKEYWORD.obj_hash = 877025959; cdat->dsym_243__CLASS_OBJGETNAMEDKEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_243__CLASS_OBJGETNAMEDKEYWORD)); /*inistring dstr_244__CLASS_OBJGETNAME*/ /*_.VALSTR___V364*/ curfptr[363] = (void*)&cdat->dstr_244__CLASS_OBJGETNAME; cdat->dstr_244__CLASS_OBJGETNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_244__CLASS_OBJGETNAME.val, "CLASS_OBJGETNAMEDKEYWORD", sizeof(cdat->dstr_244__CLASS_OBJGETNAME.val)-1); /*inirout drout_245__OUTPUCOD_OBJAPPLY*/ /*_.VALROUT___V365*/ curfptr[364] = (void*)&cdat->drout_245__OUTPUCOD_OBJAPPLY; cdat->drout_245__OUTPUCOD_OBJAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_245__OUTPUCOD_OBJAPPLY.routdescr, "OUTPUCOD_OBJAPPLY @warmelt-outobj.melt:1785", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_245__OUTPUCOD_OBJAPPLY.nbval = 20; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_245__OUTPUCOD_OBJAPPLY, rout_70_OUTPUCOD_OBJAPPLY); /*iniclos dclo_246__OUTPUCOD_OBJAPPLY*/ /*_.VALCLO___V369*/ curfptr[368] = (void*)&cdat->dclo_246__OUTPUCOD_OBJAPPLY; cdat->dclo_246__OUTPUCOD_OBJAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_246__OUTPUCOD_OBJAPPLY.nbval = 0; /*iniobj dsym_247__CLASS_OBJAPPLY*/ if (!/*_.VALDATA___V370*/ curfptr[369]) /*_.VALDATA___V370*/ curfptr[369] = (void*)&cdat->dsym_247__CLASS_OBJAPPLY; basilys_assertmsg("iniobj checkdiscr dsym_247__CLASS_OBJAPPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_247__CLASS_OBJAPPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_247__CLASS_OBJAPPLY.obj_hash = 734111989; cdat->dsym_247__CLASS_OBJAPPLY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_247__CLASS_OBJAPPLY)); /*inistring dstr_248__CLASS_OBJAPPLY*/ /*_.VALSTR___V371*/ curfptr[370] = (void*)&cdat->dstr_248__CLASS_OBJAPPLY; cdat->dstr_248__CLASS_OBJAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_248__CLASS_OBJAPPLY.val, "CLASS_OBJAPPLY", sizeof(cdat->dstr_248__CLASS_OBJAPPLY.val)-1); /*iniobj dsym_249__DISCR_LIST*/ if (!/*_.VALDATA___V372*/ curfptr[371]) /*_.VALDATA___V372*/ curfptr[371] = (void*)&cdat->dsym_249__DISCR_LIST; basilys_assertmsg("iniobj checkdiscr dsym_249__DISCR_LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_249__DISCR_LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_249__DISCR_LIST.obj_hash = 98407634; cdat->dsym_249__DISCR_LIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_249__DISCR_LIST)); /*inistring dstr_250__DISCR_LIST*/ /*_.VALSTR___V373*/ curfptr[372] = (void*)&cdat->dstr_250__DISCR_LIST; cdat->dstr_250__DISCR_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_250__DISCR_LIST.val, "DISCR_LIST", sizeof(cdat->dstr_250__DISCR_LIST.val)-1); /*inirout drout_251__LAMBDA_*/ /*_.VALROUT___V366*/ curfptr[365] = (void*)&cdat->drout_251__LAMBDA_; cdat->drout_251__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_251__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1811", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_251__LAMBDA_.nbval = 8; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_251__LAMBDA_, rout_71_LAMBDA_); /*iniobj dsym_252__CLASS_OBJINSTR*/ if (!/*_.VALDATA___V374*/ curfptr[373]) /*_.VALDATA___V374*/ curfptr[373] = (void*)&cdat->dsym_252__CLASS_OBJINSTR; basilys_assertmsg("iniobj checkdiscr dsym_252__CLASS_OBJINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_252__CLASS_OBJINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_252__CLASS_OBJINSTR.obj_hash = 310627895; cdat->dsym_252__CLASS_OBJINSTR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_252__CLASS_OBJINSTR)); /*inistring dstr_253__CLASS_OBJINSTR*/ /*_.VALSTR___V375*/ curfptr[374] = (void*)&cdat->dstr_253__CLASS_OBJINSTR; cdat->dstr_253__CLASS_OBJINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_253__CLASS_OBJINSTR.val, "CLASS_OBJINSTR", sizeof(cdat->dstr_253__CLASS_OBJINSTR.val)-1); /*iniobj dsym_254__GET_CTYPE*/ if (!/*_.VALDATA___V376*/ curfptr[375]) /*_.VALDATA___V376*/ curfptr[375] = (void*)&cdat->dsym_254__GET_CTYPE; basilys_assertmsg("iniobj checkdiscr dsym_254__GET_CTYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_254__GET_CTYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_254__GET_CTYPE.obj_hash = 747649571; cdat->dsym_254__GET_CTYPE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_254__GET_CTYPE)); /*inistring dstr_255__GET_CTYPE*/ /*_.VALSTR___V377*/ curfptr[376] = (void*)&cdat->dstr_255__GET_CTYPE; cdat->dstr_255__GET_CTYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_255__GET_CTYPE.val, "GET_CTYPE", sizeof(cdat->dstr_255__GET_CTYPE.val)-1); /*inirout drout_256__LAMBDA_*/ /*_.VALROUT___V367*/ curfptr[366] = (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.melt:1844", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_256__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_256__LAMBDA_, rout_72_LAMBDA_); /*inirout drout_257__LAMBDA_*/ /*_.VALROUT___V368*/ curfptr[367] = (void*)&cdat->drout_257__LAMBDA_; cdat->drout_257__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_257__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1859", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_257__LAMBDA_.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_257__LAMBDA_, rout_73_LAMBDA_); /*inirout drout_258__OUTPUCOD_OBJMSEND*/ /*_.VALROUT___V378*/ curfptr[377] = (void*)&cdat->drout_258__OUTPUCOD_OBJMSEND; cdat->drout_258__OUTPUCOD_OBJMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_258__OUTPUCOD_OBJMSEND.routdescr, "OUTPUCOD_OBJMSEND @warmelt-outobj.melt:1879", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_258__OUTPUCOD_OBJMSEND.nbval = 19; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_258__OUTPUCOD_OBJMSEND, rout_74_OUTPUCOD_OBJMSEND); /*iniclos dclo_259__OUTPUCOD_OBJMSEND*/ /*_.VALCLO___V382*/ curfptr[381] = (void*)&cdat->dclo_259__OUTPUCOD_OBJMSEND; cdat->dclo_259__OUTPUCOD_OBJMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_259__OUTPUCOD_OBJMSEND.nbval = 0; /*iniobj dsym_260__CLASS_OBJMSEND*/ if (!/*_.VALDATA___V383*/ curfptr[382]) /*_.VALDATA___V383*/ curfptr[382] = (void*)&cdat->dsym_260__CLASS_OBJMSEND; basilys_assertmsg("iniobj checkdiscr dsym_260__CLASS_OBJMSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_260__CLASS_OBJMSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_260__CLASS_OBJMSEND.obj_hash = 664056168; cdat->dsym_260__CLASS_OBJMSEND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_260__CLASS_OBJMSEND)); /*inistring dstr_261__CLASS_OBJMSEND*/ /*_.VALSTR___V384*/ curfptr[383] = (void*)&cdat->dstr_261__CLASS_OBJMSEND; cdat->dstr_261__CLASS_OBJMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_261__CLASS_OBJMSEND.val, "CLASS_OBJMSEND", sizeof(cdat->dstr_261__CLASS_OBJMSEND.val)-1); /*inirout drout_262__LAMBDA_*/ /*_.VALROUT___V379*/ curfptr[378] = (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.melt:1908", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_262__LAMBDA_.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_262__LAMBDA_, rout_75_LAMBDA_); /*inirout drout_263__LAMBDA_*/ /*_.VALROUT___V380*/ curfptr[379] = (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.melt:1940", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_263__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_263__LAMBDA_, rout_76_LAMBDA_); /*inirout drout_264__LAMBDA_*/ /*_.VALROUT___V381*/ curfptr[380] = (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.melt:1951", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_264__LAMBDA_.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_264__LAMBDA_, rout_77_LAMBDA_); /*inirout drout_265__OUTPUCOD_OBJMULTIAPPLY*/ /*_.VALROUT___V385*/ curfptr[384] = (void*)&cdat->drout_265__OUTPUCOD_OBJMULTIAPPLY; cdat->drout_265__OUTPUCOD_OBJMULTIAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_265__OUTPUCOD_OBJMULTIAPPLY.routdescr, "OUTPUCOD_OBJMULTIAPPLY @warmelt-outobj.melt:1970", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_265__OUTPUCOD_OBJMULTIAPPLY.nbval = 28; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_265__OUTPUCOD_OBJMULTIAPPLY, rout_78_OUTPUCOD_OBJMULTIAPPLY); /*iniclos dclo_266__OUTPUCOD_OBJMULTIAPPLY*/ /*_.VALCLO___V392*/ curfptr[391] = (void*)&cdat->dclo_266__OUTPUCOD_OBJMULTIAPPLY; cdat->dclo_266__OUTPUCOD_OBJMULTIAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_266__OUTPUCOD_OBJMULTIAPPLY.nbval = 0; /*iniobj dsym_267__CLASS_OBJMULTIAPPLY*/ if (!/*_.VALDATA___V393*/ curfptr[392]) /*_.VALDATA___V393*/ curfptr[392] = (void*)&cdat->dsym_267__CLASS_OBJMULTIAPPLY; basilys_assertmsg("iniobj checkdiscr dsym_267__CLASS_OBJMULTIAPPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_267__CLASS_OBJMULTIAPPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_267__CLASS_OBJMULTIAPPLY.obj_hash = 718205837; cdat->dsym_267__CLASS_OBJMULTIAPPLY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_267__CLASS_OBJMULTIAPPLY)); /*inistring dstr_268__CLASS_OBJMULTIAP*/ /*_.VALSTR___V394*/ curfptr[393] = (void*)&cdat->dstr_268__CLASS_OBJMULTIAP; cdat->dstr_268__CLASS_OBJMULTIAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_268__CLASS_OBJMULTIAP.val, "CLASS_OBJMULTIAPPLY", sizeof(cdat->dstr_268__CLASS_OBJMULTIAP.val)-1); /*inirout drout_269__LAMBDA_*/ /*_.VALROUT___V386*/ curfptr[385] = (void*)&cdat->drout_269__LAMBDA_; cdat->drout_269__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_269__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2017", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_269__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_269__LAMBDA_, rout_79_LAMBDA_); /*inirout drout_270__LAMBDA_*/ /*_.VALROUT___V387*/ curfptr[386] = (void*)&cdat->drout_270__LAMBDA_; cdat->drout_270__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_270__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2027", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_270__LAMBDA_.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_270__LAMBDA_, rout_80_LAMBDA_); /*inirout drout_271__LAMBDA_*/ /*_.VALROUT___V388*/ curfptr[387] = (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.melt:2059", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_271__LAMBDA_.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_271__LAMBDA_, rout_81_LAMBDA_); /*inirout drout_272__LAMBDA_*/ /*_.VALROUT___V389*/ curfptr[388] = (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.melt:2088", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_272__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_272__LAMBDA_, rout_82_LAMBDA_); /*inirout drout_273__LAMBDA_*/ /*_.VALROUT___V390*/ curfptr[389] = (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.melt:2103", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_273__LAMBDA_.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_273__LAMBDA_, rout_83_LAMBDA_); /*inirout drout_274__LAMBDA_*/ /*_.VALROUT___V391*/ curfptr[390] = (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.melt:2114", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_274__LAMBDA_.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_274__LAMBDA_, rout_84_LAMBDA_); /*inirout drout_275__OUTPUCOD_OBJMULTIMSEND*/ /*_.VALROUT___V395*/ curfptr[394] = (void*)&cdat->drout_275__OUTPUCOD_OBJMULTIMSEND; cdat->drout_275__OUTPUCOD_OBJMULTIMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_275__OUTPUCOD_OBJMULTIMSEND.routdescr, "OUTPUCOD_OBJMULTIMSEND @warmelt-outobj.melt:2134", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_275__OUTPUCOD_OBJMULTIMSEND.nbval = 28; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_275__OUTPUCOD_OBJMULTIMSEND, rout_85_OUTPUCOD_OBJMULTIMSEND); /*iniclos dclo_276__OUTPUCOD_OBJMULTIMSEND*/ /*_.VALCLO___V402*/ curfptr[401] = (void*)&cdat->dclo_276__OUTPUCOD_OBJMULTIMSEND; cdat->dclo_276__OUTPUCOD_OBJMULTIMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_276__OUTPUCOD_OBJMULTIMSEND.nbval = 0; /*iniobj dsym_277__CLASS_OBJMULTIMSEND*/ if (!/*_.VALDATA___V403*/ curfptr[402]) /*_.VALDATA___V403*/ curfptr[402] = (void*)&cdat->dsym_277__CLASS_OBJMULTIMSEND; basilys_assertmsg("iniobj checkdiscr dsym_277__CLASS_OBJMULTIMSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_277__CLASS_OBJMULTIMSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_277__CLASS_OBJMULTIMSEND.obj_hash = 441055573; cdat->dsym_277__CLASS_OBJMULTIMSEND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_277__CLASS_OBJMULTIMSEND)); /*inistring dstr_278__CLASS_OBJMULTIMS*/ /*_.VALSTR___V404*/ curfptr[403] = (void*)&cdat->dstr_278__CLASS_OBJMULTIMS; cdat->dstr_278__CLASS_OBJMULTIMS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_278__CLASS_OBJMULTIMS.val, "CLASS_OBJMULTIMSEND", sizeof(cdat->dstr_278__CLASS_OBJMULTIMS.val)-1); /*inirout drout_279__LAMBDA_*/ /*_.VALROUT___V396*/ curfptr[395] = (void*)&cdat->drout_279__LAMBDA_; cdat->drout_279__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_279__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2168", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_279__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_279__LAMBDA_, rout_86_LAMBDA_); /*inirout drout_280__LAMBDA_*/ /*_.VALROUT___V397*/ curfptr[396] = (void*)&cdat->drout_280__LAMBDA_; cdat->drout_280__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_280__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2186", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_280__LAMBDA_.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_280__LAMBDA_, rout_87_LAMBDA_); /*inirout drout_281__LAMBDA_*/ /*_.VALROUT___V398*/ curfptr[397] = (void*)&cdat->drout_281__LAMBDA_; cdat->drout_281__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_281__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2217", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_281__LAMBDA_.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_281__LAMBDA_, rout_88_LAMBDA_); /*inirout drout_282__LAMBDA_*/ /*_.VALROUT___V399*/ curfptr[398] = (void*)&cdat->drout_282__LAMBDA_; cdat->drout_282__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_282__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2246", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_282__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_282__LAMBDA_, rout_89_LAMBDA_); /*inirout drout_283__LAMBDA_*/ /*_.VALROUT___V400*/ curfptr[399] = (void*)&cdat->drout_283__LAMBDA_; cdat->drout_283__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_283__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2259", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_283__LAMBDA_.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_283__LAMBDA_, rout_90_LAMBDA_); /*inirout drout_284__LAMBDA_*/ /*_.VALROUT___V401*/ curfptr[400] = (void*)&cdat->drout_284__LAMBDA_; cdat->drout_284__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_284__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2270", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_284__LAMBDA_.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_284__LAMBDA_, rout_91_LAMBDA_); /*inirout drout_285__OUTPUCOD_OBJCLEAR*/ /*_.VALROUT___V405*/ curfptr[404] = (void*)&cdat->drout_285__OUTPUCOD_OBJCLEAR; cdat->drout_285__OUTPUCOD_OBJCLEAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_285__OUTPUCOD_OBJCLEAR.routdescr, "OUTPUCOD_OBJCLEAR @warmelt-outobj.melt:2288", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_285__OUTPUCOD_OBJCLEAR.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_285__OUTPUCOD_OBJCLEAR, rout_92_OUTPUCOD_OBJCLEAR); /*iniclos dclo_286__OUTPUCOD_OBJCLEAR*/ /*_.VALCLO___V406*/ curfptr[405] = (void*)&cdat->dclo_286__OUTPUCOD_OBJCLEAR; cdat->dclo_286__OUTPUCOD_OBJCLEAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_286__OUTPUCOD_OBJCLEAR.nbval = 0; /*iniobj dsym_287__CLASS_OBJCLEAR*/ if (!/*_.VALDATA___V407*/ curfptr[406]) /*_.VALDATA___V407*/ curfptr[406] = (void*)&cdat->dsym_287__CLASS_OBJCLEAR; basilys_assertmsg("iniobj checkdiscr dsym_287__CLASS_OBJCLEAR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_287__CLASS_OBJCLEAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_287__CLASS_OBJCLEAR.obj_hash = 1071635108; cdat->dsym_287__CLASS_OBJCLEAR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_287__CLASS_OBJCLEAR)); /*inistring dstr_288__CLASS_OBJCLEAR*/ /*_.VALSTR___V408*/ curfptr[407] = (void*)&cdat->dstr_288__CLASS_OBJCLEAR; cdat->dstr_288__CLASS_OBJCLEAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_288__CLASS_OBJCLEAR.val, "CLASS_OBJCLEAR", sizeof(cdat->dstr_288__CLASS_OBJCLEAR.val)-1); /*inirout drout_289__OUTPUCOD_OBJRAWALLOCOBJ*/ /*_.VALROUT___V409*/ curfptr[408] = (void*)&cdat->drout_289__OUTPUCOD_OBJRAWALLOCOBJ; cdat->drout_289__OUTPUCOD_OBJRAWALLOCOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_289__OUTPUCOD_OBJRAWALLOCOBJ.routdescr, "OUTPUCOD_OBJRAWALLOCOBJ @warmelt-outobj.melt:2303", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_289__OUTPUCOD_OBJRAWALLOCOBJ.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_289__OUTPUCOD_OBJRAWALLOCOBJ, rout_93_OUTPUCOD_OBJRAWALLOCOBJ); /*iniclos dclo_290__OUTPUCOD_OBJRAWALLOCOBJ*/ /*_.VALCLO___V411*/ curfptr[410] = (void*)&cdat->dclo_290__OUTPUCOD_OBJRAWALLOCOBJ; cdat->dclo_290__OUTPUCOD_OBJRAWALLOCOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_290__OUTPUCOD_OBJRAWALLOCOBJ.nbval = 0; /*iniobj dsym_291__CLASS_OBJRAWALLOCOBJ*/ if (!/*_.VALDATA___V412*/ curfptr[411]) /*_.VALDATA___V412*/ curfptr[411] = (void*)&cdat->dsym_291__CLASS_OBJRAWALLOCOBJ; basilys_assertmsg("iniobj checkdiscr dsym_291__CLASS_OBJRAWALLOCOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_291__CLASS_OBJRAWALLOCOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_291__CLASS_OBJRAWALLOCOBJ.obj_hash = 795830730; cdat->dsym_291__CLASS_OBJRAWALLOCOBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_291__CLASS_OBJRAWALLOCOBJ)); /*inistring dstr_292__CLASS_OBJRAWALLO*/ /*_.VALSTR___V413*/ curfptr[412] = (void*)&cdat->dstr_292__CLASS_OBJRAWALLO; cdat->dstr_292__CLASS_OBJRAWALLO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_292__CLASS_OBJRAWALLO.val, "CLASS_OBJRAWALLOCOBJ", sizeof(cdat->dstr_292__CLASS_OBJRAWALLO.val)-1); /*inirout drout_293__LAMBDA_*/ /*_.VALROUT___V410*/ curfptr[409] = (void*)&cdat->drout_293__LAMBDA_; cdat->drout_293__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_293__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2326", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_293__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_293__LAMBDA_, rout_94_LAMBDA_); /*inirout drout_294__OUTPUCOD_OBJNEWCLOSURE*/ /*_.VALROUT___V414*/ curfptr[413] = (void*)&cdat->drout_294__OUTPUCOD_OBJNEWCLOSURE; cdat->drout_294__OUTPUCOD_OBJNEWCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_294__OUTPUCOD_OBJNEWCLOSURE.routdescr, "OUTPUCOD_OBJNEWCLOSURE @warmelt-outobj.melt:2337", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_294__OUTPUCOD_OBJNEWCLOSURE.nbval = 8; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_294__OUTPUCOD_OBJNEWCLOSURE, rout_95_OUTPUCOD_OBJNEWCLOSURE); /*iniclos dclo_295__OUTPUCOD_OBJNEWCLOSURE*/ /*_.VALCLO___V416*/ curfptr[415] = (void*)&cdat->dclo_295__OUTPUCOD_OBJNEWCLOSURE; cdat->dclo_295__OUTPUCOD_OBJNEWCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_295__OUTPUCOD_OBJNEWCLOSURE.nbval = 0; /*iniobj dsym_296__CLASS_OBJNEWCLOSURE*/ if (!/*_.VALDATA___V417*/ curfptr[416]) /*_.VALDATA___V417*/ curfptr[416] = (void*)&cdat->dsym_296__CLASS_OBJNEWCLOSURE; basilys_assertmsg("iniobj checkdiscr dsym_296__CLASS_OBJNEWCLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_296__CLASS_OBJNEWCLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_296__CLASS_OBJNEWCLOSURE.obj_hash = 699586028; cdat->dsym_296__CLASS_OBJNEWCLOSURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_296__CLASS_OBJNEWCLOSURE)); /*inistring dstr_297__CLASS_OBJNEWCLOS*/ /*_.VALSTR___V418*/ curfptr[417] = (void*)&cdat->dstr_297__CLASS_OBJNEWCLOS; cdat->dstr_297__CLASS_OBJNEWCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_297__CLASS_OBJNEWCLOS.val, "CLASS_OBJNEWCLOSURE", sizeof(cdat->dstr_297__CLASS_OBJNEWCLOS.val)-1); /*inirout drout_298__LAMBDA_*/ /*_.VALROUT___V415*/ curfptr[414] = (void*)&cdat->drout_298__LAMBDA_; cdat->drout_298__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_298__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2351", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_298__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_298__LAMBDA_, rout_96_LAMBDA_); /*inirout drout_299__OUTPUCOD_OBJTOUCH*/ /*_.VALROUT___V419*/ curfptr[418] = (void*)&cdat->drout_299__OUTPUCOD_OBJTOUCH; cdat->drout_299__OUTPUCOD_OBJTOUCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_299__OUTPUCOD_OBJTOUCH.routdescr, "OUTPUCOD_OBJTOUCH @warmelt-outobj.melt:2367", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_299__OUTPUCOD_OBJTOUCH.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_299__OUTPUCOD_OBJTOUCH, rout_97_OUTPUCOD_OBJTOUCH); /*iniclos dclo_300__OUTPUCOD_OBJTOUCH*/ /*_.VALCLO___V420*/ curfptr[419] = (void*)&cdat->dclo_300__OUTPUCOD_OBJTOUCH; cdat->dclo_300__OUTPUCOD_OBJTOUCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_300__OUTPUCOD_OBJTOUCH.nbval = 0; /*iniobj dsym_301__CLASS_OBJTOUCH*/ if (!/*_.VALDATA___V421*/ curfptr[420]) /*_.VALDATA___V421*/ curfptr[420] = (void*)&cdat->dsym_301__CLASS_OBJTOUCH; basilys_assertmsg("iniobj checkdiscr dsym_301__CLASS_OBJTOUCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_301__CLASS_OBJTOUCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_301__CLASS_OBJTOUCH.obj_hash = 643155770; cdat->dsym_301__CLASS_OBJTOUCH.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_301__CLASS_OBJTOUCH)); /*inistring dstr_302__CLASS_OBJTOUCH*/ /*_.VALSTR___V422*/ curfptr[421] = (void*)&cdat->dstr_302__CLASS_OBJTOUCH; cdat->dstr_302__CLASS_OBJTOUCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_302__CLASS_OBJTOUCH.val, "CLASS_OBJTOUCH", sizeof(cdat->dstr_302__CLASS_OBJTOUCH.val)-1); /*inirout drout_303__OUTPUCOD_OBJPUTUPLE*/ /*_.VALROUT___V423*/ curfptr[422] = (void*)&cdat->drout_303__OUTPUCOD_OBJPUTUPLE; cdat->drout_303__OUTPUCOD_OBJPUTUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_303__OUTPUCOD_OBJPUTUPLE.routdescr, "OUTPUCOD_OBJPUTUPLE @warmelt-outobj.melt:2392", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_303__OUTPUCOD_OBJPUTUPLE.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_303__OUTPUCOD_OBJPUTUPLE, rout_98_OUTPUCOD_OBJPUTUPLE); /*iniclos dclo_304__OUTPUCOD_OBJPUTUPLE*/ /*_.VALCLO___V424*/ curfptr[423] = (void*)&cdat->dclo_304__OUTPUCOD_OBJPUTUPLE; cdat->dclo_304__OUTPUCOD_OBJPUTUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_304__OUTPUCOD_OBJPUTUPLE.nbval = 0; /*iniobj dsym_305__CLASS_OBJPUTUPLE*/ if (!/*_.VALDATA___V425*/ curfptr[424]) /*_.VALDATA___V425*/ curfptr[424] = (void*)&cdat->dsym_305__CLASS_OBJPUTUPLE; basilys_assertmsg("iniobj checkdiscr dsym_305__CLASS_OBJPUTUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_305__CLASS_OBJPUTUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_305__CLASS_OBJPUTUPLE.obj_hash = 419131762; cdat->dsym_305__CLASS_OBJPUTUPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_305__CLASS_OBJPUTUPLE)); /*inistring dstr_306__CLASS_OBJPUTUPLE*/ /*_.VALSTR___V426*/ curfptr[425] = (void*)&cdat->dstr_306__CLASS_OBJPUTUPLE; cdat->dstr_306__CLASS_OBJPUTUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_306__CLASS_OBJPUTUPLE.val, "CLASS_OBJPUTUPLE", sizeof(cdat->dstr_306__CLASS_OBJPUTUPLE.val)-1); /*inirout drout_307__OUTPUCOD_OBJGETSLOT*/ /*_.VALROUT___V427*/ curfptr[426] = (void*)&cdat->drout_307__OUTPUCOD_OBJGETSLOT; cdat->drout_307__OUTPUCOD_OBJGETSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_307__OUTPUCOD_OBJGETSLOT.routdescr, "OUTPUCOD_OBJGETSLOT @warmelt-outobj.melt:2427", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_307__OUTPUCOD_OBJGETSLOT.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_307__OUTPUCOD_OBJGETSLOT, rout_99_OUTPUCOD_OBJGETSLOT); /*iniclos dclo_308__OUTPUCOD_OBJGETSLOT*/ /*_.VALCLO___V429*/ curfptr[428] = (void*)&cdat->dclo_308__OUTPUCOD_OBJGETSLOT; cdat->dclo_308__OUTPUCOD_OBJGETSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_308__OUTPUCOD_OBJGETSLOT.nbval = 0; /*iniobj dsym_309__CLASS_OBJGETSLOT*/ if (!/*_.VALDATA___V430*/ curfptr[429]) /*_.VALDATA___V430*/ curfptr[429] = (void*)&cdat->dsym_309__CLASS_OBJGETSLOT; basilys_assertmsg("iniobj checkdiscr dsym_309__CLASS_OBJGETSLOT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_309__CLASS_OBJGETSLOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_309__CLASS_OBJGETSLOT.obj_hash = 1004612742; cdat->dsym_309__CLASS_OBJGETSLOT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_309__CLASS_OBJGETSLOT)); /*inistring dstr_310__CLASS_OBJGETSLOT*/ /*_.VALSTR___V431*/ curfptr[430] = (void*)&cdat->dstr_310__CLASS_OBJGETSLOT; cdat->dstr_310__CLASS_OBJGETSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_310__CLASS_OBJGETSLOT.val, "CLASS_OBJGETSLOT", sizeof(cdat->dstr_310__CLASS_OBJGETSLOT.val)-1); /*iniobj dsym_311__CLASS_FIELD*/ if (!/*_.VALDATA___V432*/ curfptr[431]) /*_.VALDATA___V432*/ curfptr[431] = (void*)&cdat->dsym_311__CLASS_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_311__CLASS_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_311__CLASS_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_311__CLASS_FIELD.obj_hash = 523073; cdat->dsym_311__CLASS_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_311__CLASS_FIELD)); /*inistring dstr_312__CLASS_FIELD*/ /*_.VALSTR___V433*/ curfptr[432] = (void*)&cdat->dstr_312__CLASS_FIELD; cdat->dstr_312__CLASS_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_312__CLASS_FIELD.val, "CLASS_FIELD", sizeof(cdat->dstr_312__CLASS_FIELD.val)-1); /*inirout drout_313__LAMBDA_*/ /*_.VALROUT___V428*/ curfptr[427] = (void*)&cdat->drout_313__LAMBDA_; cdat->drout_313__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_313__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2449", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_313__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_313__LAMBDA_, rout_100_LAMBDA_); /*inirout drout_314__OUTPUCOD_OBJPUTSLOT*/ /*_.VALROUT___V434*/ curfptr[433] = (void*)&cdat->drout_314__OUTPUCOD_OBJPUTSLOT; cdat->drout_314__OUTPUCOD_OBJPUTSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_314__OUTPUCOD_OBJPUTSLOT.routdescr, "OUTPUCOD_OBJPUTSLOT @warmelt-outobj.melt:2458", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_314__OUTPUCOD_OBJPUTSLOT.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_314__OUTPUCOD_OBJPUTSLOT, rout_101_OUTPUCOD_OBJPUTSLOT); /*iniclos dclo_315__OUTPUCOD_OBJPUTSLOT*/ /*_.VALCLO___V435*/ curfptr[434] = (void*)&cdat->dclo_315__OUTPUCOD_OBJPUTSLOT; cdat->dclo_315__OUTPUCOD_OBJPUTSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_315__OUTPUCOD_OBJPUTSLOT.nbval = 0; /*iniobj dsym_316__CLASS_OBJPUTSLOT*/ if (!/*_.VALDATA___V436*/ curfptr[435]) /*_.VALDATA___V436*/ curfptr[435] = (void*)&cdat->dsym_316__CLASS_OBJPUTSLOT; basilys_assertmsg("iniobj checkdiscr dsym_316__CLASS_OBJPUTSLOT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_316__CLASS_OBJPUTSLOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_316__CLASS_OBJPUTSLOT.obj_hash = 382942903; cdat->dsym_316__CLASS_OBJPUTSLOT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_316__CLASS_OBJPUTSLOT)); /*inistring dstr_317__CLASS_OBJPUTSLOT*/ /*_.VALSTR___V437*/ curfptr[436] = (void*)&cdat->dstr_317__CLASS_OBJPUTSLOT; cdat->dstr_317__CLASS_OBJPUTSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_317__CLASS_OBJPUTSLOT.val, "CLASS_OBJPUTSLOT", sizeof(cdat->dstr_317__CLASS_OBJPUTSLOT.val)-1); /*iniobj dsym_318__CLASS_NREP*/ if (!/*_.VALDATA___V438*/ curfptr[437]) /*_.VALDATA___V438*/ curfptr[437] = (void*)&cdat->dsym_318__CLASS_NREP; basilys_assertmsg("iniobj checkdiscr dsym_318__CLASS_NREP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_318__CLASS_NREP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_318__CLASS_NREP.obj_hash = 704846736; cdat->dsym_318__CLASS_NREP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_318__CLASS_NREP)); /*inistring dstr_319__CLASS_NREP*/ /*_.VALSTR___V439*/ curfptr[438] = (void*)&cdat->dstr_319__CLASS_NREP; cdat->dstr_319__CLASS_NREP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_319__CLASS_NREP.val, "CLASS_NREP", sizeof(cdat->dstr_319__CLASS_NREP.val)-1); /*inirout drout_320__OUTPUCOD_OBJPUTCLOSUROUT*/ /*_.VALROUT___V440*/ curfptr[439] = (void*)&cdat->drout_320__OUTPUCOD_OBJPUTCLOSUROUT; cdat->drout_320__OUTPUCOD_OBJPUTCLOSUROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_320__OUTPUCOD_OBJPUTCLOSUROUT.routdescr, "OUTPUCOD_OBJPUTCLOSUROUT @warmelt-outobj.melt:2518", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_320__OUTPUCOD_OBJPUTCLOSUROUT.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_320__OUTPUCOD_OBJPUTCLOSUROUT, rout_102_OUTPUCOD_OBJPUTCLOSUROUT); /*iniclos dclo_321__OUTPUCOD_OBJPUTCLOSUROUT*/ /*_.VALCLO___V441*/ curfptr[440] = (void*)&cdat->dclo_321__OUTPUCOD_OBJPUTCLOSUROUT; cdat->dclo_321__OUTPUCOD_OBJPUTCLOSUROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_321__OUTPUCOD_OBJPUTCLOSUROUT.nbval = 0; /*iniobj dsym_322__CLASS_OBJPUTCLOSUROUT*/ if (!/*_.VALDATA___V442*/ curfptr[441]) /*_.VALDATA___V442*/ curfptr[441] = (void*)&cdat->dsym_322__CLASS_OBJPUTCLOSUROUT; basilys_assertmsg("iniobj checkdiscr dsym_322__CLASS_OBJPUTCLOSUROUT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_322__CLASS_OBJPUTCLOSUROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_322__CLASS_OBJPUTCLOSUROUT.obj_hash = 331144291; cdat->dsym_322__CLASS_OBJPUTCLOSUROUT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_322__CLASS_OBJPUTCLOSUROUT)); /*inistring dstr_323__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V443*/ curfptr[442] = (void*)&cdat->dstr_323__CLASS_OBJPUTCLOS; cdat->dstr_323__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_323__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSUROUT", sizeof(cdat->dstr_323__CLASS_OBJPUTCLOS.val)-1); /*inirout drout_324__OUTPUCOD_OBJPUTCLOSEDV*/ /*_.VALROUT___V444*/ curfptr[443] = (void*)&cdat->drout_324__OUTPUCOD_OBJPUTCLOSEDV; cdat->drout_324__OUTPUCOD_OBJPUTCLOSEDV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_324__OUTPUCOD_OBJPUTCLOSEDV.routdescr, "OUTPUCOD_OBJPUTCLOSEDV @warmelt-outobj.melt:2546", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_324__OUTPUCOD_OBJPUTCLOSEDV.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_324__OUTPUCOD_OBJPUTCLOSEDV, rout_103_OUTPUCOD_OBJPUTCLOSEDV); /*iniclos dclo_325__OUTPUCOD_OBJPUTCLOSEDV*/ /*_.VALCLO___V445*/ curfptr[444] = (void*)&cdat->dclo_325__OUTPUCOD_OBJPUTCLOSEDV; cdat->dclo_325__OUTPUCOD_OBJPUTCLOSEDV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_325__OUTPUCOD_OBJPUTCLOSEDV.nbval = 0; /*iniobj dsym_326__CLASS_OBJPUTCLOSEDV*/ if (!/*_.VALDATA___V446*/ curfptr[445]) /*_.VALDATA___V446*/ curfptr[445] = (void*)&cdat->dsym_326__CLASS_OBJPUTCLOSEDV; basilys_assertmsg("iniobj checkdiscr dsym_326__CLASS_OBJPUTCLOSEDV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_326__CLASS_OBJPUTCLOSEDV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_326__CLASS_OBJPUTCLOSEDV.obj_hash = 870174829; cdat->dsym_326__CLASS_OBJPUTCLOSEDV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_326__CLASS_OBJPUTCLOSEDV)); /*inistring dstr_327__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V447*/ curfptr[446] = (void*)&cdat->dstr_327__CLASS_OBJPUTCLOS; cdat->dstr_327__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_327__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSEDV", sizeof(cdat->dstr_327__CLASS_OBJPUTCLOS.val)-1); /*inirout drout_328__OUTPUCOD_OBJPUTCLOSEDNOTNULLV*/ /*_.VALROUT___V448*/ curfptr[447] = (void*)&cdat->drout_328__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; cdat->drout_328__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_328__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.routdescr, "OUTPUCOD_OBJPUTCLOSEDNOTNULLV @warmelt-outobj.melt:2581", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_328__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_328__OUTPUCOD_OBJPUTCLOSEDNOTNULLV, rout_104_OUTPUCOD_OBJPUTCLOSEDNOTNULLV); /*iniclos dclo_329__OUTPUCOD_OBJPUTCLOSEDNOTNULLV*/ /*_.VALCLO___V449*/ curfptr[448] = (void*)&cdat->dclo_329__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; cdat->dclo_329__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_329__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.nbval = 0; /*iniobj dsym_330__CLASS_OBJPUTCLOSEDNOTNULLV*/ if (!/*_.VALDATA___V450*/ curfptr[449]) /*_.VALDATA___V450*/ curfptr[449] = (void*)&cdat->dsym_330__CLASS_OBJPUTCLOSEDNOTNULLV; basilys_assertmsg("iniobj checkdiscr dsym_330__CLASS_OBJPUTCLOSEDNOTNULLV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_330__CLASS_OBJPUTCLOSEDNOTNULLV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_330__CLASS_OBJPUTCLOSEDNOTNULLV.obj_hash = 674443590; cdat->dsym_330__CLASS_OBJPUTCLOSEDNOTNULLV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_330__CLASS_OBJPUTCLOSEDNOTNULLV)); /*inistring dstr_331__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V451*/ curfptr[450] = (void*)&cdat->dstr_331__CLASS_OBJPUTCLOS; cdat->dstr_331__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_331__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSEDNOTNULLV", sizeof(cdat->dstr_331__CLASS_OBJPUTCLOS.val)-1); /*inirout drout_332__OUTPUCOD_OBJPUTROUTCONST*/ /*_.VALROUT___V452*/ curfptr[451] = (void*)&cdat->drout_332__OUTPUCOD_OBJPUTROUTCONST; cdat->drout_332__OUTPUCOD_OBJPUTROUTCONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_332__OUTPUCOD_OBJPUTROUTCONST.routdescr, "OUTPUCOD_OBJPUTROUTCONST @warmelt-outobj.melt:2620", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_332__OUTPUCOD_OBJPUTROUTCONST.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_332__OUTPUCOD_OBJPUTROUTCONST, rout_105_OUTPUCOD_OBJPUTROUTCONST); /*iniclos dclo_333__OUTPUCOD_OBJPUTROUTCONST*/ /*_.VALCLO___V453*/ curfptr[452] = (void*)&cdat->dclo_333__OUTPUCOD_OBJPUTROUTCONST; cdat->dclo_333__OUTPUCOD_OBJPUTROUTCONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_333__OUTPUCOD_OBJPUTROUTCONST.nbval = 0; /*iniobj dsym_334__CLASS_OBJPUTROUTCONST*/ if (!/*_.VALDATA___V454*/ curfptr[453]) /*_.VALDATA___V454*/ curfptr[453] = (void*)&cdat->dsym_334__CLASS_OBJPUTROUTCONST; basilys_assertmsg("iniobj checkdiscr dsym_334__CLASS_OBJPUTROUTCONST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_334__CLASS_OBJPUTROUTCONST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_334__CLASS_OBJPUTROUTCONST.obj_hash = 815485494; cdat->dsym_334__CLASS_OBJPUTROUTCONST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_334__CLASS_OBJPUTROUTCONST)); /*inistring dstr_335__CLASS_OBJPUTROUT*/ /*_.VALSTR___V455*/ curfptr[454] = (void*)&cdat->dstr_335__CLASS_OBJPUTROUT; cdat->dstr_335__CLASS_OBJPUTROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_335__CLASS_OBJPUTROUT.val, "CLASS_OBJPUTROUTCONST", sizeof(cdat->dstr_335__CLASS_OBJPUTROUT.val)-1); /*inirout drout_336__OUTPUCOD_OBJPUTROUTCONSTNOTNULL*/ /*_.VALROUT___V456*/ curfptr[455] = (void*)&cdat->drout_336__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; cdat->drout_336__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_336__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.routdescr, "OUTPUCOD_OBJPUTROUTCONSTNOTNULL @warmelt-outobj.melt:2657", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_336__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_336__OUTPUCOD_OBJPUTROUTCONSTNOTNULL, rout_106_OUTPUCOD_OBJPUTROUTCONSTNOTNULL); /*iniclos dclo_337__OUTPUCOD_OBJPUTROUTCONSTNOTNULL*/ /*_.VALCLO___V457*/ curfptr[456] = (void*)&cdat->dclo_337__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; cdat->dclo_337__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_337__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.nbval = 0; /*iniobj dsym_338__CLASS_OBJPUTROUTCONSTNOTNULL*/ if (!/*_.VALDATA___V458*/ curfptr[457]) /*_.VALDATA___V458*/ curfptr[457] = (void*)&cdat->dsym_338__CLASS_OBJPUTROUTCONSTNOTNULL; basilys_assertmsg("iniobj checkdiscr dsym_338__CLASS_OBJPUTROUTCONSTNOTNULL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_338__CLASS_OBJPUTROUTCONSTNOTNULL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_338__CLASS_OBJPUTROUTCONSTNOTNULL.obj_hash = 698971949; cdat->dsym_338__CLASS_OBJPUTROUTCONSTNOTNULL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_338__CLASS_OBJPUTROUTCONSTNOTNULL)); /*inistring dstr_339__CLASS_OBJPUTROUT*/ /*_.VALSTR___V459*/ curfptr[458] = (void*)&cdat->dstr_339__CLASS_OBJPUTROUT; cdat->dstr_339__CLASS_OBJPUTROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_339__CLASS_OBJPUTROUT.val, "CLASS_OBJPUTROUTCONSTNOTNULL", sizeof(cdat->dstr_339__CLASS_OBJPUTROUT.val)-1); /*inirout drout_340__OUTPUCOD_OBJPUTXTRARESULT*/ /*_.VALROUT___V460*/ curfptr[459] = (void*)&cdat->drout_340__OUTPUCOD_OBJPUTXTRARESULT; cdat->drout_340__OUTPUCOD_OBJPUTXTRARESULT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_340__OUTPUCOD_OBJPUTXTRARESULT.routdescr, "OUTPUCOD_OBJPUTXTRARESULT @warmelt-outobj.melt:2690", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_340__OUTPUCOD_OBJPUTXTRARESULT.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_340__OUTPUCOD_OBJPUTXTRARESULT, rout_107_OUTPUCOD_OBJPUTXTRARESULT); /*iniclos dclo_341__OUTPUCOD_OBJPUTXTRARESULT*/ /*_.VALCLO___V461*/ curfptr[460] = (void*)&cdat->dclo_341__OUTPUCOD_OBJPUTXTRARESULT; cdat->dclo_341__OUTPUCOD_OBJPUTXTRARESULT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_341__OUTPUCOD_OBJPUTXTRARESULT.nbval = 0; /*iniobj dsym_342__CLASS_OBJPUTXTRARESULT*/ if (!/*_.VALDATA___V462*/ curfptr[461]) /*_.VALDATA___V462*/ curfptr[461] = (void*)&cdat->dsym_342__CLASS_OBJPUTXTRARESULT; basilys_assertmsg("iniobj checkdiscr dsym_342__CLASS_OBJPUTXTRARESULT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_342__CLASS_OBJPUTXTRARESULT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_342__CLASS_OBJPUTXTRARESULT.obj_hash = 66172370; cdat->dsym_342__CLASS_OBJPUTXTRARESULT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_342__CLASS_OBJPUTXTRARESULT)); /*inistring dstr_343__CLASS_OBJPUTXTRA*/ /*_.VALSTR___V463*/ curfptr[462] = (void*)&cdat->dstr_343__CLASS_OBJPUTXTRA; cdat->dstr_343__CLASS_OBJPUTXTRA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_343__CLASS_OBJPUTXTRA.val, "CLASS_OBJPUTXTRARESULT", sizeof(cdat->dstr_343__CLASS_OBJPUTXTRA.val)-1); /*inirout drout_344__OUTPUCOD_OBJEXPV*/ /*_.VALROUT___V464*/ curfptr[463] = (void*)&cdat->drout_344__OUTPUCOD_OBJEXPV; cdat->drout_344__OUTPUCOD_OBJEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_344__OUTPUCOD_OBJEXPV.routdescr, "OUTPUCOD_OBJEXPV @warmelt-outobj.melt:2725", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_344__OUTPUCOD_OBJEXPV.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_344__OUTPUCOD_OBJEXPV, rout_108_OUTPUCOD_OBJEXPV); /*iniclos dclo_345__OUTPUCOD_OBJEXPV*/ /*_.VALCLO___V466*/ curfptr[465] = (void*)&cdat->dclo_345__OUTPUCOD_OBJEXPV; cdat->dclo_345__OUTPUCOD_OBJEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_345__OUTPUCOD_OBJEXPV.nbval = 0; /*iniobj dsym_346__CLASS_OBJEXPV*/ if (!/*_.VALDATA___V467*/ curfptr[466]) /*_.VALDATA___V467*/ curfptr[466] = (void*)&cdat->dsym_346__CLASS_OBJEXPV; basilys_assertmsg("iniobj checkdiscr dsym_346__CLASS_OBJEXPV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_346__CLASS_OBJEXPV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_346__CLASS_OBJEXPV.obj_hash = 134484056; cdat->dsym_346__CLASS_OBJEXPV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_346__CLASS_OBJEXPV)); /*inistring dstr_347__CLASS_OBJEXPV*/ /*_.VALSTR___V468*/ curfptr[467] = (void*)&cdat->dstr_347__CLASS_OBJEXPV; cdat->dstr_347__CLASS_OBJEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_347__CLASS_OBJEXPV.val, "CLASS_OBJEXPV", sizeof(cdat->dstr_347__CLASS_OBJEXPV.val)-1); /*inirout drout_348__LAMBDA_*/ /*_.VALROUT___V465*/ curfptr[464] = (void*)&cdat->drout_348__LAMBDA_; cdat->drout_348__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_348__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2733", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_348__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_348__LAMBDA_, rout_109_LAMBDA_); /*inirout drout_349__OUTPUCOD_OBJLOCATEDEXPV*/ /*_.VALROUT___V469*/ curfptr[468] = (void*)&cdat->drout_349__OUTPUCOD_OBJLOCATEDEXPV; cdat->drout_349__OUTPUCOD_OBJLOCATEDEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_349__OUTPUCOD_OBJLOCATEDEXPV.routdescr, "OUTPUCOD_OBJLOCATEDEXPV @warmelt-outobj.melt:2739", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_349__OUTPUCOD_OBJLOCATEDEXPV.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_349__OUTPUCOD_OBJLOCATEDEXPV, rout_110_OUTPUCOD_OBJLOCATEDEXPV); /*iniclos dclo_350__OUTPUCOD_OBJLOCATEDEXPV*/ /*_.VALCLO___V471*/ curfptr[470] = (void*)&cdat->dclo_350__OUTPUCOD_OBJLOCATEDEXPV; cdat->dclo_350__OUTPUCOD_OBJLOCATEDEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_350__OUTPUCOD_OBJLOCATEDEXPV.nbval = 0; /*iniobj dsym_351__CLASS_OBJLOCATEDEXPV*/ if (!/*_.VALDATA___V472*/ curfptr[471]) /*_.VALDATA___V472*/ curfptr[471] = (void*)&cdat->dsym_351__CLASS_OBJLOCATEDEXPV; basilys_assertmsg("iniobj checkdiscr dsym_351__CLASS_OBJLOCATEDEXPV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_351__CLASS_OBJLOCATEDEXPV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_351__CLASS_OBJLOCATEDEXPV.obj_hash = 564704332; cdat->dsym_351__CLASS_OBJLOCATEDEXPV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_351__CLASS_OBJLOCATEDEXPV)); /*inistring dstr_352__CLASS_OBJLOCATED*/ /*_.VALSTR___V473*/ curfptr[472] = (void*)&cdat->dstr_352__CLASS_OBJLOCATED; cdat->dstr_352__CLASS_OBJLOCATED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_352__CLASS_OBJLOCATED.val, "CLASS_OBJLOCATEDEXPV", sizeof(cdat->dstr_352__CLASS_OBJLOCATED.val)-1); /*inirout drout_353__LAMBDA_*/ /*_.VALROUT___V470*/ curfptr[469] = (void*)&cdat->drout_353__LAMBDA_; cdat->drout_353__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_353__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2751", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_353__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_353__LAMBDA_, rout_111_LAMBDA_); /*inirout drout_354__OUTPUCOD_VERBATIMSTRING*/ /*_.VALROUT___V474*/ curfptr[473] = (void*)&cdat->drout_354__OUTPUCOD_VERBATIMSTRING; cdat->drout_354__OUTPUCOD_VERBATIMSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_354__OUTPUCOD_VERBATIMSTRING.routdescr, "OUTPUCOD_VERBATIMSTRING @warmelt-outobj.melt:2757", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_354__OUTPUCOD_VERBATIMSTRING.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_354__OUTPUCOD_VERBATIMSTRING, rout_112_OUTPUCOD_VERBATIMSTRING); /*iniclos dclo_355__OUTPUCOD_VERBATIMSTRING*/ /*_.VALCLO___V475*/ curfptr[474] = (void*)&cdat->dclo_355__OUTPUCOD_VERBATIMSTRING; cdat->dclo_355__OUTPUCOD_VERBATIMSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_355__OUTPUCOD_VERBATIMSTRING.nbval = 0; /*iniobj dsym_356__DISCR_VERBATIMSTRING*/ if (!/*_.VALDATA___V476*/ curfptr[475]) /*_.VALDATA___V476*/ curfptr[475] = (void*)&cdat->dsym_356__DISCR_VERBATIMSTRING; basilys_assertmsg("iniobj checkdiscr dsym_356__DISCR_VERBATIMSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_356__DISCR_VERBATIMSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_356__DISCR_VERBATIMSTRING.obj_hash = 6759605; cdat->dsym_356__DISCR_VERBATIMSTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_356__DISCR_VERBATIMSTRING)); /*inistring dstr_357__DISCR_VERBATIMST*/ /*_.VALSTR___V477*/ curfptr[476] = (void*)&cdat->dstr_357__DISCR_VERBATIMST; cdat->dstr_357__DISCR_VERBATIMST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_357__DISCR_VERBATIMST.val, "DISCR_VERBATIMSTRING", sizeof(cdat->dstr_357__DISCR_VERBATIMST.val)-1); /*inirout drout_358__OUTPUCOD_STRING*/ /*_.VALROUT___V478*/ curfptr[477] = (void*)&cdat->drout_358__OUTPUCOD_STRING; cdat->drout_358__OUTPUCOD_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_358__OUTPUCOD_STRING.routdescr, "OUTPUCOD_STRING @warmelt-outobj.melt:2768", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_358__OUTPUCOD_STRING.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_358__OUTPUCOD_STRING, rout_113_OUTPUCOD_STRING); /*iniclos dclo_359__OUTPUCOD_STRING*/ /*_.VALCLO___V479*/ curfptr[478] = (void*)&cdat->dclo_359__OUTPUCOD_STRING; cdat->dclo_359__OUTPUCOD_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_359__OUTPUCOD_STRING.nbval = 0; /*inirout drout_360__OUTPUCOD_INTEGER*/ /*_.VALROUT___V480*/ curfptr[479] = (void*)&cdat->drout_360__OUTPUCOD_INTEGER; cdat->drout_360__OUTPUCOD_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_360__OUTPUCOD_INTEGER.routdescr, "OUTPUCOD_INTEGER @warmelt-outobj.melt:2780", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_360__OUTPUCOD_INTEGER.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_360__OUTPUCOD_INTEGER, rout_114_OUTPUCOD_INTEGER); /*iniclos dclo_361__OUTPUCOD_INTEGER*/ /*_.VALCLO___V481*/ curfptr[480] = (void*)&cdat->dclo_361__OUTPUCOD_INTEGER; cdat->dclo_361__OUTPUCOD_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_361__OUTPUCOD_INTEGER.nbval = 0; /*inirout drout_362__OUTPUCOD_FINALRETURN*/ /*_.VALROUT___V482*/ curfptr[481] = (void*)&cdat->drout_362__OUTPUCOD_FINALRETURN; cdat->drout_362__OUTPUCOD_FINALRETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_362__OUTPUCOD_FINALRETURN.routdescr, "OUTPUCOD_FINALRETURN @warmelt-outobj.melt:2787", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_362__OUTPUCOD_FINALRETURN.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_362__OUTPUCOD_FINALRETURN, rout_115_OUTPUCOD_FINALRETURN); /*iniclos dclo_363__OUTPUCOD_FINALRETURN*/ /*_.VALCLO___V483*/ curfptr[482] = (void*)&cdat->dclo_363__OUTPUCOD_FINALRETURN; cdat->dclo_363__OUTPUCOD_FINALRETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_363__OUTPUCOD_FINALRETURN.nbval = 0; /*iniobj dsym_364__CLASS_OBJFINALRETURN*/ if (!/*_.VALDATA___V484*/ curfptr[483]) /*_.VALDATA___V484*/ curfptr[483] = (void*)&cdat->dsym_364__CLASS_OBJFINALRETURN; basilys_assertmsg("iniobj checkdiscr dsym_364__CLASS_OBJFINALRETURN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_364__CLASS_OBJFINALRETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_364__CLASS_OBJFINALRETURN.obj_hash = 650464089; cdat->dsym_364__CLASS_OBJFINALRETURN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_364__CLASS_OBJFINALRETURN)); /*inistring dstr_365__CLASS_OBJFINALRE*/ /*_.VALSTR___V485*/ curfptr[484] = (void*)&cdat->dstr_365__CLASS_OBJFINALRE; cdat->dstr_365__CLASS_OBJFINALRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_365__CLASS_OBJFINALRE.val, "CLASS_OBJFINALRETURN", sizeof(cdat->dstr_365__CLASS_OBJFINALRE.val)-1); /*inirout drout_366__SORTED_NAMED_DICT_TUPLE*/ /*_.VALROUT___V486*/ curfptr[485] = (void*)&cdat->drout_366__SORTED_NAMED_DICT_TUPLE; cdat->drout_366__SORTED_NAMED_DICT_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_366__SORTED_NAMED_DICT_TUPLE.routdescr, "SORTED_NAMED_DICT_TUPLE @warmelt-outobj.melt:2798", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_366__SORTED_NAMED_DICT_TUPLE.nbval = 8; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_366__SORTED_NAMED_DICT_TUPLE, rout_116_SORTED_NAMED_DICT_TUPLE); /*iniclos dclo_367__SORTED_NAMED_DICT_TUPLE*/ /*_.VALCLO___V489*/ curfptr[488] = (void*)&cdat->dclo_367__SORTED_NAMED_DICT_TUPLE; cdat->dclo_367__SORTED_NAMED_DICT_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_367__SORTED_NAMED_DICT_TUPLE.nbval = 0; /*iniobj dsym_368__MAPSTRING_EVERY*/ if (!/*_.VALDATA___V490*/ curfptr[489]) /*_.VALDATA___V490*/ curfptr[489] = (void*)&cdat->dsym_368__MAPSTRING_EVERY; basilys_assertmsg("iniobj checkdiscr dsym_368__MAPSTRING_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_368__MAPSTRING_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_368__MAPSTRING_EVERY.obj_hash = 173778712; cdat->dsym_368__MAPSTRING_EVERY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_368__MAPSTRING_EVERY)); /*inistring dstr_369__MAPSTRING_EVERY*/ /*_.VALSTR___V491*/ curfptr[490] = (void*)&cdat->dstr_369__MAPSTRING_EVERY; cdat->dstr_369__MAPSTRING_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_369__MAPSTRING_EVERY.val, "MAPSTRING_EVERY", sizeof(cdat->dstr_369__MAPSTRING_EVERY.val)-1); /*inirout drout_370__LAMBDA_*/ /*_.VALROUT___V487*/ curfptr[486] = (void*)&cdat->drout_370__LAMBDA_; cdat->drout_370__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_370__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2806", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_370__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_370__LAMBDA_, rout_117_LAMBDA_); /*iniobj dsym_371__LIST_TO_MULTIPLE*/ if (!/*_.VALDATA___V492*/ curfptr[491]) /*_.VALDATA___V492*/ curfptr[491] = (void*)&cdat->dsym_371__LIST_TO_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_371__LIST_TO_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_371__LIST_TO_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_371__LIST_TO_MULTIPLE.obj_hash = 987171205; cdat->dsym_371__LIST_TO_MULTIPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_371__LIST_TO_MULTIPLE)); /*inistring dstr_372__LIST_TO_MULTIPLE*/ /*_.VALSTR___V493*/ curfptr[492] = (void*)&cdat->dstr_372__LIST_TO_MULTIPLE; cdat->dstr_372__LIST_TO_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_372__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof(cdat->dstr_372__LIST_TO_MULTIPLE.val)-1); /*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.melt:2810", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_373__LAMBDA_.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_373__LAMBDA_, rout_118_LAMBDA_); /*iniobj dsym_374__DISCR_MULTIPLE*/ if (!/*_.VALDATA___V494*/ curfptr[493]) /*_.VALDATA___V494*/ curfptr[493] = (void*)&cdat->dsym_374__DISCR_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_374__DISCR_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_374__DISCR_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_374__DISCR_MULTIPLE.obj_hash = 91864583; cdat->dsym_374__DISCR_MULTIPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_374__DISCR_MULTIPLE)); /*inistring dstr_375__DISCR_MULTIPLE*/ /*_.VALSTR___V495*/ curfptr[494] = (void*)&cdat->dstr_375__DISCR_MULTIPLE; cdat->dstr_375__DISCR_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_375__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof(cdat->dstr_375__DISCR_MULTIPLE.val)-1); /*inirout drout_376__OUTPUT_EXPORTED_OFFSETS*/ /*_.VALROUT___V496*/ curfptr[495] = (void*)&cdat->drout_376__OUTPUT_EXPORTED_OFFSETS; cdat->drout_376__OUTPUT_EXPORTED_OFFSETS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_376__OUTPUT_EXPORTED_OFFSETS.routdescr, "OUTPUT_EXPORTED_OFFSETS @warmelt-outobj.melt:2822", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_376__OUTPUT_EXPORTED_OFFSETS.nbval = 8; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_376__OUTPUT_EXPORTED_OFFSETS, rout_119_OUTPUT_EXPORTED_OFFSETS); /*iniclos dclo_377__OUTPUT_EXPORTED_OFFSETS*/ /*_.VALCLO___V499*/ curfptr[498] = (void*)&cdat->dclo_377__OUTPUT_EXPORTED_OFFSETS; cdat->dclo_377__OUTPUT_EXPORTED_OFFSETS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_377__OUTPUT_EXPORTED_OFFSETS.nbval = 0; /*iniobj dsym_378__CLASS_MODULCONTEXT*/ if (!/*_.VALDATA___V500*/ curfptr[499]) /*_.VALDATA___V500*/ curfptr[499] = (void*)&cdat->dsym_378__CLASS_MODULCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_378__CLASS_MODULCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_378__CLASS_MODULCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_378__CLASS_MODULCONTEXT.obj_hash = 827706478; cdat->dsym_378__CLASS_MODULCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_378__CLASS_MODULCONTEXT)); /*inistring dstr_379__CLASS_MODULCONTE*/ /*_.VALSTR___V501*/ curfptr[500] = (void*)&cdat->dstr_379__CLASS_MODULCONTE; cdat->dstr_379__CLASS_MODULCONTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_379__CLASS_MODULCONTE.val, "CLASS_MODULCONTEXT", sizeof(cdat->dstr_379__CLASS_MODULCONTE.val)-1); /*inirout drout_380__LAMBDA_*/ /*_.VALROUT___V497*/ curfptr[496] = (void*)&cdat->drout_380__LAMBDA_; cdat->drout_380__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_380__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2834", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_380__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_380__LAMBDA_, rout_120_LAMBDA_); /*inirout drout_381__LAMBDA_*/ /*_.VALROUT___V498*/ curfptr[497] = (void*)&cdat->drout_381__LAMBDA_; cdat->drout_381__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_381__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2848", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_381__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_381__LAMBDA_, rout_121_LAMBDA_); /*iniobj dsym_382__CLASS_CLASS*/ if (!/*_.VALDATA___V502*/ curfptr[501]) /*_.VALDATA___V502*/ curfptr[501] = (void*)&cdat->dsym_382__CLASS_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_382__CLASS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_382__CLASS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_382__CLASS_CLASS.obj_hash = 60141292; cdat->dsym_382__CLASS_CLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_382__CLASS_CLASS)); /*inistring dstr_383__CLASS_CLASS*/ /*_.VALSTR___V503*/ curfptr[502] = (void*)&cdat->dstr_383__CLASS_CLASS; cdat->dstr_383__CLASS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_383__CLASS_CLASS.val, "CLASS_CLASS", sizeof(cdat->dstr_383__CLASS_CLASS.val)-1); /*inirout drout_384__COMPILE_LIST_SEXPR*/ /*_.VALROUT___V504*/ curfptr[503] = (void*)&cdat->drout_384__COMPILE_LIST_SEXPR; cdat->drout_384__COMPILE_LIST_SEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_384__COMPILE_LIST_SEXPR.routdescr, "COMPILE_LIST_SEXPR @warmelt-outobj.melt:2864", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_384__COMPILE_LIST_SEXPR.nbval = 35; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_384__COMPILE_LIST_SEXPR, rout_122_COMPILE_LIST_SEXPR); /*iniclos dclo_385__COMPILE_LIST_SEXPR*/ /*_.VALCLO___V508*/ curfptr[507] = (void*)&cdat->dclo_385__COMPILE_LIST_SEXPR; cdat->dclo_385__COMPILE_LIST_SEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_385__COMPILE_LIST_SEXPR.nbval = 0; /*iniobj dsym_386__CLASS_ENVIRONMENT*/ if (!/*_.VALDATA___V509*/ curfptr[508]) /*_.VALDATA___V509*/ curfptr[508] = (void*)&cdat->dsym_386__CLASS_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_386__CLASS_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_386__CLASS_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_386__CLASS_ENVIRONMENT.obj_hash = 59212821; cdat->dsym_386__CLASS_ENVIRONMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_386__CLASS_ENVIRONMENT)); /*inistring dstr_387__CLASS_ENVIRONMEN*/ /*_.VALSTR___V510*/ curfptr[509] = (void*)&cdat->dstr_387__CLASS_ENVIRONMEN; cdat->dstr_387__CLASS_ENVIRONMEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_387__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT", sizeof(cdat->dstr_387__CLASS_ENVIRONMEN.val)-1); /*iniobj dsym_388__DISCR_MAPSTRINGS*/ if (!/*_.VALDATA___V511*/ curfptr[510]) /*_.VALDATA___V511*/ curfptr[510] = (void*)&cdat->dsym_388__DISCR_MAPSTRINGS; basilys_assertmsg("iniobj checkdiscr dsym_388__DISCR_MAPSTRINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_388__DISCR_MAPSTRINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_388__DISCR_MAPSTRINGS.obj_hash = 122797468; cdat->dsym_388__DISCR_MAPSTRINGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_388__DISCR_MAPSTRINGS)); /*inistring dstr_389__DISCR_MAPSTRINGS*/ /*_.VALSTR___V512*/ curfptr[511] = (void*)&cdat->dstr_389__DISCR_MAPSTRINGS; cdat->dstr_389__DISCR_MAPSTRINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_389__DISCR_MAPSTRINGS.val, "DISCR_MAPSTRINGS", sizeof(cdat->dstr_389__DISCR_MAPSTRINGS.val)-1); /*iniobj dsym_390__CREATE_NORMCONTEXT*/ if (!/*_.VALDATA___V513*/ curfptr[512]) /*_.VALDATA___V513*/ curfptr[512] = (void*)&cdat->dsym_390__CREATE_NORMCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_390__CREATE_NORMCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_390__CREATE_NORMCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_390__CREATE_NORMCONTEXT.obj_hash = 127778273; cdat->dsym_390__CREATE_NORMCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_390__CREATE_NORMCONTEXT)); /*inistring dstr_391__CREATE_NORMCONTE*/ /*_.VALSTR___V514*/ curfptr[513] = (void*)&cdat->dstr_391__CREATE_NORMCONTE; cdat->dstr_391__CREATE_NORMCONTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_391__CREATE_NORMCONTE.val, "CREATE_NORMCONTEXT", sizeof(cdat->dstr_391__CREATE_NORMCONTE.val)-1); /*iniobj dsym_392__CLASS_NORMCONTEXT*/ if (!/*_.VALDATA___V515*/ curfptr[514]) /*_.VALDATA___V515*/ curfptr[514] = (void*)&cdat->dsym_392__CLASS_NORMCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_392__CLASS_NORMCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_392__CLASS_NORMCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_392__CLASS_NORMCONTEXT.obj_hash = 317209306; cdat->dsym_392__CLASS_NORMCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_392__CLASS_NORMCONTEXT)); /*inistring dstr_393__CLASS_NORMCONTEX*/ /*_.VALSTR___V516*/ curfptr[515] = (void*)&cdat->dstr_393__CLASS_NORMCONTEX; cdat->dstr_393__CLASS_NORMCONTEX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_393__CLASS_NORMCONTEX.val, "CLASS_NORMCONTEXT", sizeof(cdat->dstr_393__CLASS_NORMCONTEX.val)-1); /*iniobj dsym_394__MACROEXPAND_TOPLEVEL_LIST*/ if (!/*_.VALDATA___V517*/ curfptr[516]) /*_.VALDATA___V517*/ curfptr[516] = (void*)&cdat->dsym_394__MACROEXPAND_TOPLEVEL_LIST; basilys_assertmsg("iniobj checkdiscr dsym_394__MACROEXPAND_TOPLEVEL_LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_394__MACROEXPAND_TOPLEVEL_LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_394__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411; cdat->dsym_394__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_394__MACROEXPAND_TOPLEVEL_LIST)); /*inistring dstr_395__MACROEXPAND_TOPL*/ /*_.VALSTR___V518*/ curfptr[517] = (void*)&cdat->dstr_395__MACROEXPAND_TOPL; cdat->dstr_395__MACROEXPAND_TOPL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_395__MACROEXPAND_TOPL.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof(cdat->dstr_395__MACROEXPAND_TOPL.val)-1); /*iniobj dsym_396__CLASS_SRC*/ if (!/*_.VALDATA___V519*/ curfptr[518]) /*_.VALDATA___V519*/ curfptr[518] = (void*)&cdat->dsym_396__CLASS_SRC; basilys_assertmsg("iniobj checkdiscr dsym_396__CLASS_SRC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_396__CLASS_SRC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_396__CLASS_SRC.obj_hash = 631779221; cdat->dsym_396__CLASS_SRC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_396__CLASS_SRC)); /*inistring dstr_397__CLASS_SRC*/ /*_.VALSTR___V520*/ curfptr[519] = (void*)&cdat->dstr_397__CLASS_SRC; cdat->dstr_397__CLASS_SRC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_397__CLASS_SRC.val, "CLASS_SRC", sizeof(cdat->dstr_397__CLASS_SRC.val)-1); /*iniobj dsym_398__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V521*/ curfptr[520]) /*_.VALDATA___V521*/ curfptr[520] = (void*)&cdat->dsym_398__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_398__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_398__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_398__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 165024192; cdat->dsym_398__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_398__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_399__CLASS_SRC_UPDATE*/ /*_.VALSTR___V522*/ curfptr[521] = (void*)&cdat->dstr_399__CLASS_SRC_UPDATE; cdat->dstr_399__CLASS_SRC_UPDATE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_399__CLASS_SRC_UPDATE.val, "CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof(cdat->dstr_399__CLASS_SRC_UPDATE.val)-1); /*iniobj dsym_400__INITIAL_ENVIRONMENT*/ if (!/*_.VALDATA___V523*/ curfptr[522]) /*_.VALDATA___V523*/ curfptr[522] = (void*)&cdat->dsym_400__INITIAL_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_400__INITIAL_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_400__INITIAL_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_400__INITIAL_ENVIRONMENT.obj_hash = 756729242; cdat->dsym_400__INITIAL_ENVIRONMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_400__INITIAL_ENVIRONMENT)); /*inistring dstr_401__INITIAL_ENVIRONM*/ /*_.VALSTR___V524*/ curfptr[523] = (void*)&cdat->dstr_401__INITIAL_ENVIRONM; cdat->dstr_401__INITIAL_ENVIRONM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_401__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT", sizeof(cdat->dstr_401__INITIAL_ENVIRONM.val)-1); /*iniobj dsym_402__CLASS_NREP_INITPROC*/ if (!/*_.VALDATA___V525*/ curfptr[524]) /*_.VALDATA___V525*/ curfptr[524] = (void*)&cdat->dsym_402__CLASS_NREP_INITPROC; basilys_assertmsg("iniobj checkdiscr dsym_402__CLASS_NREP_INITPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_402__CLASS_NREP_INITPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_402__CLASS_NREP_INITPROC.obj_hash = 915122709; cdat->dsym_402__CLASS_NREP_INITPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_402__CLASS_NREP_INITPROC)); /*inistring dstr_403__CLASS_NREP_INITP*/ /*_.VALSTR___V526*/ curfptr[525] = (void*)&cdat->dstr_403__CLASS_NREP_INITP; cdat->dstr_403__CLASS_NREP_INITP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_403__CLASS_NREP_INITP.val, "CLASS_NREP_INITPROC", sizeof(cdat->dstr_403__CLASS_NREP_INITP.val)-1); /*inirout drout_404__LAMBDA_*/ /*_.VALROUT___V505*/ curfptr[504] = (void*)&cdat->drout_404__LAMBDA_; cdat->drout_404__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_404__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2906", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_404__LAMBDA_.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_404__LAMBDA_, rout_123_LAMBDA_); /*iniobj dsym_405__CLASS_LOCATED*/ if (!/*_.VALDATA___V527*/ curfptr[526]) /*_.VALDATA___V527*/ curfptr[526] = (void*)&cdat->dsym_405__CLASS_LOCATED; basilys_assertmsg("iniobj checkdiscr dsym_405__CLASS_LOCATED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_405__CLASS_LOCATED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_405__CLASS_LOCATED.obj_hash = 979003; cdat->dsym_405__CLASS_LOCATED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_405__CLASS_LOCATED)); /*inistring dstr_406__CLASS_LOCATED*/ /*_.VALSTR___V528*/ curfptr[527] = (void*)&cdat->dstr_406__CLASS_LOCATED; cdat->dstr_406__CLASS_LOCATED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_406__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof(cdat->dstr_406__CLASS_LOCATED.val)-1); /*iniobj dsym_407__CLASS_SRC_COMMENT*/ if (!/*_.VALDATA___V529*/ curfptr[528]) /*_.VALDATA___V529*/ curfptr[528] = (void*)&cdat->dsym_407__CLASS_SRC_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_407__CLASS_SRC_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_407__CLASS_SRC_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_407__CLASS_SRC_COMMENT.obj_hash = 30350897; cdat->dsym_407__CLASS_SRC_COMMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_407__CLASS_SRC_COMMENT)); /*inistring dstr_408__CLASS_SRC_COMMEN*/ /*_.VALSTR___V530*/ curfptr[529] = (void*)&cdat->dstr_408__CLASS_SRC_COMMEN; cdat->dstr_408__CLASS_SRC_COMMEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_408__CLASS_SRC_COMMEN.val, "CLASS_SRC_COMMENT", sizeof(cdat->dstr_408__CLASS_SRC_COMMEN.val)-1); /*iniobj dsym_409__NORMAL_EXP*/ if (!/*_.VALDATA___V531*/ curfptr[530]) /*_.VALDATA___V531*/ curfptr[530] = (void*)&cdat->dsym_409__NORMAL_EXP; basilys_assertmsg("iniobj checkdiscr dsym_409__NORMAL_EXP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_409__NORMAL_EXP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_409__NORMAL_EXP.obj_hash = 420282450; cdat->dsym_409__NORMAL_EXP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_409__NORMAL_EXP)); /*inistring dstr_410__NORMAL_EXP*/ /*_.VALSTR___V532*/ curfptr[531] = (void*)&cdat->dstr_410__NORMAL_EXP; cdat->dstr_410__NORMAL_EXP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_410__NORMAL_EXP.val, "NORMAL_EXP", sizeof(cdat->dstr_410__NORMAL_EXP.val)-1); /*iniobj dsym_411__CLASS_NREP_ANYPROC*/ if (!/*_.VALDATA___V533*/ curfptr[532]) /*_.VALDATA___V533*/ curfptr[532] = (void*)&cdat->dsym_411__CLASS_NREP_ANYPROC; basilys_assertmsg("iniobj checkdiscr dsym_411__CLASS_NREP_ANYPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_411__CLASS_NREP_ANYPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_411__CLASS_NREP_ANYPROC.obj_hash = 605230702; cdat->dsym_411__CLASS_NREP_ANYPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_411__CLASS_NREP_ANYPROC)); /*inistring dstr_412__CLASS_NREP_ANYPR*/ /*_.VALSTR___V534*/ curfptr[533] = (void*)&cdat->dstr_412__CLASS_NREP_ANYPR; cdat->dstr_412__CLASS_NREP_ANYPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_412__CLASS_NREP_ANYPR.val, "CLASS_NREP_ANYPROC", sizeof(cdat->dstr_412__CLASS_NREP_ANYPR.val)-1); /*iniobj dsym_413__WRAP_NORMAL_LET1*/ if (!/*_.VALDATA___V535*/ curfptr[534]) /*_.VALDATA___V535*/ curfptr[534] = (void*)&cdat->dsym_413__WRAP_NORMAL_LET1; basilys_assertmsg("iniobj checkdiscr dsym_413__WRAP_NORMAL_LET1", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_413__WRAP_NORMAL_LET1.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_413__WRAP_NORMAL_LET1.obj_hash = 891908866; cdat->dsym_413__WRAP_NORMAL_LET1.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_413__WRAP_NORMAL_LET1)); /*inistring dstr_414__WRAP_NORMAL_LET1*/ /*_.VALSTR___V536*/ curfptr[535] = (void*)&cdat->dstr_414__WRAP_NORMAL_LET1; cdat->dstr_414__WRAP_NORMAL_LET1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_414__WRAP_NORMAL_LET1.val, "WRAP_NORMAL_LET1", sizeof(cdat->dstr_414__WRAP_NORMAL_LET1.val)-1); /*iniobj dsym_415__DISCR_MAPOBJECTS*/ if (!/*_.VALDATA___V537*/ curfptr[536]) /*_.VALDATA___V537*/ curfptr[536] = (void*)&cdat->dsym_415__DISCR_MAPOBJECTS; basilys_assertmsg("iniobj checkdiscr dsym_415__DISCR_MAPOBJECTS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_415__DISCR_MAPOBJECTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_415__DISCR_MAPOBJECTS.obj_hash = 95669218; cdat->dsym_415__DISCR_MAPOBJECTS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_415__DISCR_MAPOBJECTS)); /*inistring dstr_416__DISCR_MAPOBJECTS*/ /*_.VALSTR___V538*/ curfptr[537] = (void*)&cdat->dstr_416__DISCR_MAPOBJECTS; cdat->dstr_416__DISCR_MAPOBJECTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_416__DISCR_MAPOBJECTS.val, "DISCR_MAPOBJECTS", sizeof(cdat->dstr_416__DISCR_MAPOBJECTS.val)-1); /*inirout drout_417__LAMBDA_*/ /*_.VALROUT___V506*/ curfptr[505] = (void*)&cdat->drout_417__LAMBDA_; cdat->drout_417__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_417__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2945", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_417__LAMBDA_.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_417__LAMBDA_, rout_124_LAMBDA_); /*iniobj dsym_418__COMPILE2OBJ_PROCEDURE*/ if (!/*_.VALDATA___V539*/ curfptr[538]) /*_.VALDATA___V539*/ curfptr[538] = (void*)&cdat->dsym_418__COMPILE2OBJ_PROCEDURE; basilys_assertmsg("iniobj checkdiscr dsym_418__COMPILE2OBJ_PROCEDURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_418__COMPILE2OBJ_PROCEDURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_418__COMPILE2OBJ_PROCEDURE.obj_hash = 315972622; cdat->dsym_418__COMPILE2OBJ_PROCEDURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_418__COMPILE2OBJ_PROCEDURE)); /*inistring dstr_419__COMPILE2OBJ_PROC*/ /*_.VALSTR___V540*/ curfptr[539] = (void*)&cdat->dstr_419__COMPILE2OBJ_PROC; cdat->dstr_419__COMPILE2OBJ_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_419__COMPILE2OBJ_PROC.val, "COMPILE2OBJ_PROCEDURE", sizeof(cdat->dstr_419__COMPILE2OBJ_PROC.val)-1); /*iniobj dsym_420__COMPILE2OBJ_INITPROC*/ if (!/*_.VALDATA___V541*/ curfptr[540]) /*_.VALDATA___V541*/ curfptr[540] = (void*)&cdat->dsym_420__COMPILE2OBJ_INITPROC; basilys_assertmsg("iniobj checkdiscr dsym_420__COMPILE2OBJ_INITPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_420__COMPILE2OBJ_INITPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_420__COMPILE2OBJ_INITPROC.obj_hash = 795051323; cdat->dsym_420__COMPILE2OBJ_INITPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_420__COMPILE2OBJ_INITPROC)); /*inistring dstr_421__COMPILE2OBJ_INIT*/ /*_.VALSTR___V542*/ curfptr[541] = (void*)&cdat->dstr_421__COMPILE2OBJ_INIT; cdat->dstr_421__COMPILE2OBJ_INIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_421__COMPILE2OBJ_INIT.val, "COMPILE2OBJ_INITPROC", sizeof(cdat->dstr_421__COMPILE2OBJ_INIT.val)-1); /*inirout drout_422__LAMBDA_*/ /*_.VALROUT___V507*/ curfptr[506] = (void*)&cdat->drout_422__LAMBDA_; cdat->drout_422__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_422__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2978", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_422__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_422__LAMBDA_, rout_125_LAMBDA_); /*inirout drout_423__INSTALL_INITIAL_COMMAND*/ /*_.VALROUT___V543*/ curfptr[542] = (void*)&cdat->drout_423__INSTALL_INITIAL_COMMAND; cdat->drout_423__INSTALL_INITIAL_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_423__INSTALL_INITIAL_COMMAND.routdescr, "INSTALL_INITIAL_COMMAND @warmelt-outobj.melt:2993", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_423__INSTALL_INITIAL_COMMAND.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_423__INSTALL_INITIAL_COMMAND, rout_126_INSTALL_INITIAL_COMMAND); /*iniclos dclo_424__INSTALL_INITIAL_COMMAND*/ /*_.VALCLO___V544*/ curfptr[543] = (void*)&cdat->dclo_424__INSTALL_INITIAL_COMMAND; cdat->dclo_424__INSTALL_INITIAL_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_424__INSTALL_INITIAL_COMMAND.nbval = 0; /*iniobj dsym_425__INITIAL_SYSTEM_DATA*/ if (!/*_.VALDATA___V545*/ curfptr[544]) /*_.VALDATA___V545*/ curfptr[544] = (void*)&cdat->dsym_425__INITIAL_SYSTEM_DATA; basilys_assertmsg("iniobj checkdiscr dsym_425__INITIAL_SYSTEM_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_425__INITIAL_SYSTEM_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_425__INITIAL_SYSTEM_DATA.obj_hash = 771349808; cdat->dsym_425__INITIAL_SYSTEM_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_425__INITIAL_SYSTEM_DATA)); /*inistring dstr_426__INITIAL_SYSTEM_D*/ /*_.VALSTR___V546*/ curfptr[545] = (void*)&cdat->dstr_426__INITIAL_SYSTEM_D; cdat->dstr_426__INITIAL_SYSTEM_D.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_426__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof(cdat->dstr_426__INITIAL_SYSTEM_D.val)-1); /*inirout drout_427__INITIAL_COMMAND_INSTALL*/ /*_.VALROUT___V547*/ curfptr[546] = (void*)&cdat->drout_427__INITIAL_COMMAND_INSTALL; cdat->drout_427__INITIAL_COMMAND_INSTALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_427__INITIAL_COMMAND_INSTALL.routdescr, "INITIAL_COMMAND_INSTALL @warmelt-outobj.melt:3000", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_427__INITIAL_COMMAND_INSTALL.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_427__INITIAL_COMMAND_INSTALL, rout_127_INITIAL_COMMAND_INSTALL); /*iniclos dclo_428__INITIAL_COMMAND_INSTALL*/ /*_.VALCLO___V548*/ curfptr[547] = (void*)&cdat->dclo_428__INITIAL_COMMAND_INSTALL; cdat->dclo_428__INITIAL_COMMAND_INSTALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_428__INITIAL_COMMAND_INSTALL.nbval = 0; /*inirout drout_429__READSEQ_COMMAND*/ /*_.VALROUT___V549*/ curfptr[548] = (void*)&cdat->drout_429__READSEQ_COMMAND; cdat->drout_429__READSEQ_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_429__READSEQ_COMMAND.routdescr, "READSEQ_COMMAND @warmelt-outobj.melt:3008", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_429__READSEQ_COMMAND.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_429__READSEQ_COMMAND, rout_128_READSEQ_COMMAND); /*iniclos dclo_430__READSEQ_COMMAND*/ /*_.VALCLO___V550*/ curfptr[549] = (void*)&cdat->dclo_430__READSEQ_COMMAND; cdat->dclo_430__READSEQ_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_430__READSEQ_COMMAND.nbval = 0; /*inirout drout_431__COMPILE_ONE_OR_MORE_FILES*/ /*_.VALROUT___V551*/ curfptr[550] = (void*)&cdat->drout_431__COMPILE_ONE_OR_MORE_FILES; cdat->drout_431__COMPILE_ONE_OR_MORE_FILES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_431__COMPILE_ONE_OR_MORE_FILES.routdescr, "COMPILE_ONE_OR_MORE_FILES @warmelt-outobj.melt:3026", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_431__COMPILE_ONE_OR_MORE_FILES.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_431__COMPILE_ONE_OR_MORE_FILES, rout_129_COMPILE_ONE_OR_MORE_FILES); /*iniclos dclo_432__COMPILE_ONE_OR_MORE_FILES*/ /*_.VALCLO___V552*/ curfptr[551] = (void*)&cdat->dclo_432__COMPILE_ONE_OR_MORE_FILES; cdat->dclo_432__COMPILE_ONE_OR_MORE_FILES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_432__COMPILE_ONE_OR_MORE_FILES.nbval = 0; /*iniobj dsym_433__LIST_APPEND2LIST*/ if (!/*_.VALDATA___V553*/ curfptr[552]) /*_.VALDATA___V553*/ curfptr[552] = (void*)&cdat->dsym_433__LIST_APPEND2LIST; basilys_assertmsg("iniobj checkdiscr dsym_433__LIST_APPEND2LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_433__LIST_APPEND2LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_433__LIST_APPEND2LIST.obj_hash = 744841630; cdat->dsym_433__LIST_APPEND2LIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_433__LIST_APPEND2LIST)); /*inistring dstr_434__LIST_APPEND2LIST*/ /*_.VALSTR___V554*/ curfptr[553] = (void*)&cdat->dstr_434__LIST_APPEND2LIST; cdat->dstr_434__LIST_APPEND2LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_434__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof(cdat->dstr_434__LIST_APPEND2LIST.val)-1); /*inirout drout_435__COMPILEFILE_COMMAND*/ /*_.VALROUT___V555*/ curfptr[554] = (void*)&cdat->drout_435__COMPILEFILE_COMMAND; cdat->drout_435__COMPILEFILE_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_435__COMPILEFILE_COMMAND.routdescr, "COMPILEFILE_COMMAND @warmelt-outobj.melt:3054", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_435__COMPILEFILE_COMMAND.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_435__COMPILEFILE_COMMAND, rout_130_COMPILEFILE_COMMAND); /*iniclos dclo_436__COMPILEFILE_COMMAND*/ /*_.VALCLO___V556*/ curfptr[555] = (void*)&cdat->dclo_436__COMPILEFILE_COMMAND; cdat->dclo_436__COMPILEFILE_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_436__COMPILEFILE_COMMAND.nbval = 0; /*inirout drout_437__RUNFILE_COMMAND*/ /*_.VALROUT___V557*/ curfptr[556] = (void*)&cdat->drout_437__RUNFILE_COMMAND; cdat->drout_437__RUNFILE_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_437__RUNFILE_COMMAND.routdescr, "RUNFILE_COMMAND @warmelt-outobj.melt:3082", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_437__RUNFILE_COMMAND.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_437__RUNFILE_COMMAND, rout_131_RUNFILE_COMMAND); /*iniclos dclo_438__RUNFILE_COMMAND*/ /*_.VALCLO___V558*/ curfptr[557] = (void*)&cdat->dclo_438__RUNFILE_COMMAND; cdat->dclo_438__RUNFILE_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_438__RUNFILE_COMMAND.nbval = 0; /*inirout drout_439__COMPILEINIT_COMMAND*/ /*_.VALROUT___V559*/ curfptr[558] = (void*)&cdat->drout_439__COMPILEINIT_COMMAND; cdat->drout_439__COMPILEINIT_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_439__COMPILEINIT_COMMAND.routdescr, "COMPILEINIT_COMMAND @warmelt-outobj.melt:3118", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_439__COMPILEINIT_COMMAND.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_439__COMPILEINIT_COMMAND, rout_132_COMPILEINIT_COMMAND); /*iniclos dclo_440__COMPILEINIT_COMMAND*/ /*_.VALCLO___V561*/ curfptr[560] = (void*)&cdat->dclo_440__COMPILEINIT_COMMAND; cdat->dclo_440__COMPILEINIT_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_440__COMPILEINIT_COMMAND.nbval = 0; /*inirout drout_441__LAMBDA_*/ /*_.VALROUT___V560*/ curfptr[559] = (void*)&cdat->drout_441__LAMBDA_; cdat->drout_441__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_441__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3138", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_441__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_441__LAMBDA_, rout_133_LAMBDA_); /*inirout drout_442__SHOWMDATA_COMMAND*/ /*_.VALROUT___V562*/ curfptr[561] = (void*)&cdat->drout_442__SHOWMDATA_COMMAND; cdat->drout_442__SHOWMDATA_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_442__SHOWMDATA_COMMAND.routdescr, "SHOWMDATA_COMMAND @warmelt-outobj.melt:3164", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_442__SHOWMDATA_COMMAND.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_442__SHOWMDATA_COMMAND, rout_134_SHOWMDATA_COMMAND); /*iniclos dclo_443__SHOWMDATA_COMMAND*/ /*_.VALCLO___V563*/ curfptr[562] = (void*)&cdat->dclo_443__SHOWMDATA_COMMAND; cdat->dclo_443__SHOWMDATA_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_443__SHOWMDATA_COMMAND.nbval = 0; /*inirout drout_444__SHOWVAR_COMMAND*/ /*_.VALROUT___V564*/ curfptr[563] = (void*)&cdat->drout_444__SHOWVAR_COMMAND; cdat->drout_444__SHOWVAR_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_444__SHOWVAR_COMMAND.routdescr, "SHOWVAR_COMMAND @warmelt-outobj.melt:3175", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_444__SHOWVAR_COMMAND.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_444__SHOWVAR_COMMAND, rout_135_SHOWVAR_COMMAND); /*iniclos dclo_445__SHOWVAR_COMMAND*/ /*_.VALCLO___V565*/ curfptr[564] = (void*)&cdat->dclo_445__SHOWVAR_COMMAND; cdat->dclo_445__SHOWVAR_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_445__SHOWVAR_COMMAND.nbval = 0; /*iniobj dsym_446__FIND_ENV*/ if (!/*_.VALDATA___V566*/ curfptr[565]) /*_.VALDATA___V566*/ curfptr[565] = (void*)&cdat->dsym_446__FIND_ENV; basilys_assertmsg("iniobj checkdiscr dsym_446__FIND_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_446__FIND_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_446__FIND_ENV.obj_hash = 233459738; cdat->dsym_446__FIND_ENV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_446__FIND_ENV)); /*inistring dstr_447__FIND_ENV*/ /*_.VALSTR___V567*/ curfptr[566] = (void*)&cdat->dstr_447__FIND_ENV; cdat->dstr_447__FIND_ENV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_447__FIND_ENV.val, "FIND_ENV", sizeof(cdat->dstr_447__FIND_ENV.val)-1); /*iniobj dsym_448__CLASS_VALUE_BINDING*/ if (!/*_.VALDATA___V568*/ curfptr[567]) /*_.VALDATA___V568*/ curfptr[567] = (void*)&cdat->dsym_448__CLASS_VALUE_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_448__CLASS_VALUE_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_448__CLASS_VALUE_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_448__CLASS_VALUE_BINDING.obj_hash = 952021086; cdat->dsym_448__CLASS_VALUE_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_448__CLASS_VALUE_BINDING)); /*inistring dstr_449__CLASS_VALUE_BIND*/ /*_.VALSTR___V569*/ curfptr[568] = (void*)&cdat->dstr_449__CLASS_VALUE_BIND; cdat->dstr_449__CLASS_VALUE_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_449__CLASS_VALUE_BIND.val, "CLASS_VALUE_BINDING", sizeof(cdat->dstr_449__CLASS_VALUE_BIND.val)-1); /*inirout drout_450__HELP_COMMAND*/ /*_.VALROUT___V570*/ curfptr[569] = (void*)&cdat->drout_450__HELP_COMMAND; cdat->drout_450__HELP_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_450__HELP_COMMAND.routdescr, "HELP_COMMAND @warmelt-outobj.melt:3192", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_450__HELP_COMMAND.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_450__HELP_COMMAND, rout_136_HELP_COMMAND); /*iniclos dclo_451__HELP_COMMAND*/ /*_.VALCLO___V571*/ curfptr[570] = (void*)&cdat->dclo_451__HELP_COMMAND; cdat->dclo_451__HELP_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_451__HELP_COMMAND.nbval = 0; /*iniobj dsym_452__INITIAL_COMMAND_INSTALL*/ if (!/*_.VALDATA___V572*/ curfptr[571]) /*_.VALDATA___V572*/ curfptr[571] = (void*)&cdat->dsym_452__INITIAL_COMMAND_INSTALL; basilys_assertmsg("iniobj checkdiscr dsym_452__INITIAL_COMMAND_INSTALL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_452__INITIAL_COMMAND_INSTALL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_452__INITIAL_COMMAND_INSTALL.obj_hash = 717306728; cdat->dsym_452__INITIAL_COMMAND_INSTALL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_452__INITIAL_COMMAND_INSTALL)); /*inistring dstr_453__INITIAL_COMMAND_*/ /*_.VALSTR___V573*/ curfptr[572] = (void*)&cdat->dstr_453__INITIAL_COMMAND_; cdat->dstr_453__INITIAL_COMMAND_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_453__INITIAL_COMMAND_.val, "INITIAL_COMMAND_INSTALL", sizeof(cdat->dstr_453__INITIAL_COMMAND_.val)-1); /*iniobj dsym_454__INSTALL_INITIAL_COMMAND*/ if (!/*_.VALDATA___V574*/ curfptr[573]) /*_.VALDATA___V574*/ curfptr[573] = (void*)&cdat->dsym_454__INSTALL_INITIAL_COMMAND; basilys_assertmsg("iniobj checkdiscr dsym_454__INSTALL_INITIAL_COMMAND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_454__INSTALL_INITIAL_COMMAND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_454__INSTALL_INITIAL_COMMAND.obj_hash = 3724912; cdat->dsym_454__INSTALL_INITIAL_COMMAND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_454__INSTALL_INITIAL_COMMAND)); /*inistring dstr_455__INSTALL_INITIAL_*/ /*_.VALSTR___V575*/ curfptr[574] = (void*)&cdat->dstr_455__INSTALL_INITIAL_; cdat->dstr_455__INSTALL_INITIAL_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_455__INSTALL_INITIAL_.val, "INSTALL_INITIAL_COMMAND", sizeof(cdat->dstr_455__INSTALL_INITIAL_.val)-1); /*iniobj dsym_456__COMPILE_LIST_SEXPR*/ if (!/*_.VALDATA___V576*/ curfptr[575]) /*_.VALDATA___V576*/ curfptr[575] = (void*)&cdat->dsym_456__COMPILE_LIST_SEXPR; basilys_assertmsg("iniobj checkdiscr dsym_456__COMPILE_LIST_SEXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_456__COMPILE_LIST_SEXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_456__COMPILE_LIST_SEXPR.obj_hash = 346985953; cdat->dsym_456__COMPILE_LIST_SEXPR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_456__COMPILE_LIST_SEXPR)); /*inistring dstr_457__COMPILE_LIST_SEX*/ /*_.VALSTR___V577*/ curfptr[576] = (void*)&cdat->dstr_457__COMPILE_LIST_SEX; cdat->dstr_457__COMPILE_LIST_SEX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_457__COMPILE_LIST_SEX.val, "COMPILE_LIST_SEXPR", sizeof(cdat->dstr_457__COMPILE_LIST_SEX.val)-1); 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 = 667; 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___V121*/ curfptr[120]) /*_.VALDATA___V121*/ curfptr[120] = (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___V123*/ curfptr[122]) /*_.VALDATA___V123*/ curfptr[122] = (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___V127*/ curfptr[126]) /*_.VALDATA___V127*/ curfptr[126] = (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___V129*/ curfptr[128]) /*_.VALDATA___V129*/ curfptr[128] = (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___V131*/ curfptr[130]) /*_.VALDATA___V131*/ curfptr[130] = (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___V135*/ curfptr[134]) /*_.VALDATA___V135*/ curfptr[134] = (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___V137*/ curfptr[136]) /*_.VALDATA___V137*/ curfptr[136] = (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___V141*/ curfptr[140]) /*_.VALDATA___V141*/ curfptr[140] = (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___V145*/ curfptr[144]) /*_.VALDATA___V145*/ curfptr[144] = (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___V149*/ curfptr[148]) /*_.VALDATA___V149*/ curfptr[148] = (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___V153*/ curfptr[152]) /*_.VALDATA___V153*/ curfptr[152] = (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___V157*/ curfptr[156]) /*_.VALDATA___V157*/ curfptr[156] = (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___V161*/ curfptr[160]) /*_.VALDATA___V161*/ curfptr[160] = (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___V169*/ curfptr[168]) /*_.VALDATA___V169*/ curfptr[168] = (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___V173*/ curfptr[172]) /*_.VALDATA___V173*/ curfptr[172] = (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___V177*/ curfptr[176]) /*_.VALDATA___V177*/ curfptr[176] = (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___V183*/ curfptr[182]) /*_.VALDATA___V183*/ curfptr[182] = (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___V189*/ curfptr[188]) /*_.VALDATA___V189*/ curfptr[188] = (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___V193*/ curfptr[192]) /*_.VALDATA___V193*/ curfptr[192] = (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___V195*/ curfptr[194]) /*_.VALDATA___V195*/ curfptr[194] = (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___V197*/ curfptr[196]) /*_.VALDATA___V197*/ curfptr[196] = (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___V201*/ curfptr[200]) /*_.VALDATA___V201*/ curfptr[200] = (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___V207*/ curfptr[206]) /*_.VALDATA___V207*/ curfptr[206] = (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___V211*/ curfptr[210]) /*_.VALDATA___V211*/ curfptr[210] = (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___V215*/ curfptr[214]) /*_.VALDATA___V215*/ curfptr[214] = (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___V220*/ curfptr[219]) /*_.VALDATA___V220*/ curfptr[219] = (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___V222*/ curfptr[221]) /*_.VALDATA___V222*/ curfptr[221] = (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___V224*/ curfptr[223]) /*_.VALDATA___V224*/ curfptr[223] = (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___V226*/ curfptr[225]) /*_.VALDATA___V226*/ curfptr[225] = (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___V231*/ curfptr[230]) /*_.VALDATA___V231*/ curfptr[230] = (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___V233*/ curfptr[232]) /*_.VALDATA___V233*/ curfptr[232] = (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___V235*/ curfptr[234]) /*_.VALDATA___V235*/ curfptr[234] = (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___V243*/ curfptr[242]) /*_.VALDATA___V243*/ curfptr[242] = (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___V245*/ curfptr[244]) /*_.VALDATA___V245*/ curfptr[244] = (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___V247*/ curfptr[246]) /*_.VALDATA___V247*/ curfptr[246] = (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___V249*/ curfptr[248]) /*_.VALDATA___V249*/ curfptr[248] = (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___V265*/ curfptr[264]) /*_.VALDATA___V265*/ curfptr[264] = (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___V267*/ curfptr[266]) /*_.VALDATA___V267*/ curfptr[266] = (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___V271*/ curfptr[270]) /*_.VALDATA___V271*/ curfptr[270] = (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___V275*/ curfptr[274]) /*_.VALDATA___V275*/ curfptr[274] = (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___V279*/ curfptr[278]) /*_.VALDATA___V279*/ curfptr[278] = (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___V286*/ curfptr[285]) /*_.VALDATA___V286*/ curfptr[285] = (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___V288*/ curfptr[287]) /*_.VALDATA___V288*/ curfptr[287] = (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___V294*/ curfptr[293]) /*_.VALDATA___V294*/ curfptr[293] = (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___V296*/ curfptr[295]) /*_.VALDATA___V296*/ curfptr[295] = (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___V300*/ curfptr[299]) /*_.VALDATA___V300*/ curfptr[299] = (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___V302*/ curfptr[301]) /*_.VALDATA___V302*/ curfptr[301] = (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___V306*/ curfptr[305]) /*_.VALDATA___V306*/ curfptr[305] = (void*) sy_CLASS_OBJCOMMENTEDBLOCK; } /*getnamedsym:CLASS_OBJLABELINSTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJLABELINSTR = basilysgc_named_symbol("CLASS_OBJLABELINSTR", BASILYS_GET); if (sy_CLASS_OBJLABELINSTR && NULL == /*_.VALDATA___V310*/ curfptr[309]) /*_.VALDATA___V310*/ curfptr[309] = (void*) sy_CLASS_OBJLABELINSTR; } /*getnamedsym:CLASS_OBJGOTOINSTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJGOTOINSTR = basilysgc_named_symbol("CLASS_OBJGOTOINSTR", BASILYS_GET); if (sy_CLASS_OBJGOTOINSTR && NULL == /*_.VALDATA___V314*/ curfptr[313]) /*_.VALDATA___V314*/ curfptr[313] = (void*) sy_CLASS_OBJGOTOINSTR; } /*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___V318*/ curfptr[317]) /*_.VALDATA___V318*/ curfptr[317] = (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___V324*/ curfptr[323]) /*_.VALDATA___V324*/ curfptr[323] = (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___V328*/ curfptr[327]) /*_.VALDATA___V328*/ curfptr[327] = (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___V335*/ curfptr[334]) /*_.VALDATA___V335*/ curfptr[334] = (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___V339*/ curfptr[338]) /*_.VALDATA___V339*/ curfptr[338] = (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___V343*/ curfptr[342]) /*_.VALDATA___V343*/ curfptr[342] = (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___V347*/ curfptr[346]) /*_.VALDATA___V347*/ curfptr[346] = (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___V349*/ curfptr[348]) /*_.VALDATA___V349*/ curfptr[348] = (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___V353*/ curfptr[352]) /*_.VALDATA___V353*/ curfptr[352] = (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___V355*/ curfptr[354]) /*_.VALDATA___V355*/ curfptr[354] = (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___V359*/ curfptr[358]) /*_.VALDATA___V359*/ curfptr[358] = (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___V363*/ curfptr[362]) /*_.VALDATA___V363*/ curfptr[362] = (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___V370*/ curfptr[369]) /*_.VALDATA___V370*/ curfptr[369] = (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___V372*/ curfptr[371]) /*_.VALDATA___V372*/ curfptr[371] = (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___V374*/ curfptr[373]) /*_.VALDATA___V374*/ curfptr[373] = (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___V376*/ curfptr[375]) /*_.VALDATA___V376*/ curfptr[375] = (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___V383*/ curfptr[382]) /*_.VALDATA___V383*/ curfptr[382] = (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___V393*/ curfptr[392]) /*_.VALDATA___V393*/ curfptr[392] = (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___V403*/ curfptr[402]) /*_.VALDATA___V403*/ curfptr[402] = (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___V407*/ curfptr[406]) /*_.VALDATA___V407*/ curfptr[406] = (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___V412*/ curfptr[411]) /*_.VALDATA___V412*/ curfptr[411] = (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___V417*/ curfptr[416]) /*_.VALDATA___V417*/ curfptr[416] = (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___V421*/ curfptr[420]) /*_.VALDATA___V421*/ curfptr[420] = (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___V425*/ curfptr[424]) /*_.VALDATA___V425*/ curfptr[424] = (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___V430*/ curfptr[429]) /*_.VALDATA___V430*/ curfptr[429] = (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___V432*/ curfptr[431]) /*_.VALDATA___V432*/ curfptr[431] = (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___V436*/ curfptr[435]) /*_.VALDATA___V436*/ curfptr[435] = (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___V438*/ curfptr[437]) /*_.VALDATA___V438*/ curfptr[437] = (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___V442*/ curfptr[441]) /*_.VALDATA___V442*/ curfptr[441] = (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___V446*/ curfptr[445]) /*_.VALDATA___V446*/ curfptr[445] = (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___V450*/ curfptr[449]) /*_.VALDATA___V450*/ curfptr[449] = (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___V454*/ curfptr[453]) /*_.VALDATA___V454*/ curfptr[453] = (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___V458*/ curfptr[457]) /*_.VALDATA___V458*/ curfptr[457] = (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___V462*/ curfptr[461]) /*_.VALDATA___V462*/ curfptr[461] = (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___V467*/ curfptr[466]) /*_.VALDATA___V467*/ curfptr[466] = (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___V472*/ curfptr[471]) /*_.VALDATA___V472*/ curfptr[471] = (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___V476*/ curfptr[475]) /*_.VALDATA___V476*/ curfptr[475] = (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___V484*/ curfptr[483]) /*_.VALDATA___V484*/ curfptr[483] = (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___V490*/ curfptr[489]) /*_.VALDATA___V490*/ curfptr[489] = (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___V492*/ curfptr[491]) /*_.VALDATA___V492*/ curfptr[491] = (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___V494*/ curfptr[493]) /*_.VALDATA___V494*/ curfptr[493] = (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___V500*/ curfptr[499]) /*_.VALDATA___V500*/ curfptr[499] = (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___V502*/ curfptr[501]) /*_.VALDATA___V502*/ curfptr[501] = (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___V509*/ curfptr[508]) /*_.VALDATA___V509*/ curfptr[508] = (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___V511*/ curfptr[510]) /*_.VALDATA___V511*/ curfptr[510] = (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___V513*/ curfptr[512]) /*_.VALDATA___V513*/ curfptr[512] = (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___V515*/ curfptr[514]) /*_.VALDATA___V515*/ curfptr[514] = (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___V517*/ curfptr[516]) /*_.VALDATA___V517*/ curfptr[516] = (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___V519*/ curfptr[518]) /*_.VALDATA___V519*/ curfptr[518] = (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___V521*/ curfptr[520]) /*_.VALDATA___V521*/ curfptr[520] = (void*) sy_CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*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___V523*/ curfptr[522]) /*_.VALDATA___V523*/ curfptr[522] = (void*) sy_INITIAL_ENVIRONMENT; } /*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___V525*/ curfptr[524]) /*_.VALDATA___V525*/ curfptr[524] = (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___V527*/ curfptr[526]) /*_.VALDATA___V527*/ curfptr[526] = (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___V529*/ curfptr[528]) /*_.VALDATA___V529*/ curfptr[528] = (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___V531*/ curfptr[530]) /*_.VALDATA___V531*/ curfptr[530] = (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___V533*/ curfptr[532]) /*_.VALDATA___V533*/ curfptr[532] = (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___V535*/ curfptr[534]) /*_.VALDATA___V535*/ curfptr[534] = (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___V537*/ curfptr[536]) /*_.VALDATA___V537*/ curfptr[536] = (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___V539*/ curfptr[538]) /*_.VALDATA___V539*/ curfptr[538] = (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___V541*/ curfptr[540]) /*_.VALDATA___V541*/ curfptr[540] = (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___V545*/ curfptr[544]) /*_.VALDATA___V545*/ curfptr[544] = (void*) sy_INITIAL_SYSTEM_DATA; } /*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___V553*/ curfptr[552]) /*_.VALDATA___V553*/ curfptr[552] = (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___V566*/ curfptr[565]) /*_.VALDATA___V566*/ curfptr[565] = (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___V568*/ curfptr[567]) /*_.VALDATA___V568*/ curfptr[567] = (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___V572*/ curfptr[571]) /*_.VALDATA___V572*/ curfptr[571] = (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___V574*/ curfptr[573]) /*_.VALDATA___V574*/ curfptr[573] = (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___V576*/ curfptr[575]) /*_.VALDATA___V576*/ curfptr[575] = (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___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]; /*_.CLASS_SYMBOL__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___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]; /*_.CLASS_ROOT__V10*/ curfptr[9] = 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]; /*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_OBJINITELEM__V12*/ curfptr[11] = 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_CODE__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.OUTPUT_C_INITFILL__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V145*/ curfptr[144]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V149*/ curfptr[148]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V153*/ curfptr[152]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V157*/ curfptr[156]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V161*/ curfptr[160]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V169*/ curfptr[168]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V173*/ curfptr[172]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V177*/ curfptr[176]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V183*/ curfptr[182]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V189*/ curfptr[188]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___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_NAMED__V26*/ curfptr[25] = 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_NREP_ROUTPROC__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V201*/ curfptr[200]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V207*/ curfptr[206]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V211*/ curfptr[210]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V215*/ curfptr[214]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___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]; /*_.LIST_EVERY__V33*/ curfptr[32] = 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_OBJLOCV__V34*/ curfptr[33] = 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_CTYPE__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___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]; /*_.CTYPE_VALUE__V37*/ curfptr[36] = 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_OBJVALUE__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___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]; /*_.DISCR_STRING__V40*/ curfptr[39] = 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]; /*_.MULTIPLE_EVERY__V41*/ curfptr[40] = 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_OBJPUREVALUE__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___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]; /*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V267*/ curfptr[266]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V271*/ curfptr[270]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V275*/ curfptr[274]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V279*/ curfptr[278]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___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]; /*_.DISCR_INTEGER__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___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_CITERATOR__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___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]; /*_.DISCR_STRBUF__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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___V306*/ curfptr[305]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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_OBJLABELINSTR__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V310*/ curfptr[309]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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_OBJGOTOINSTR__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_CLONEDSYMBOL__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_OBJLOOP__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V61*/ curfptr[60] = 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_OBJCPPIF__V62*/ curfptr[61] = 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_OBJINTERNSYMBOL__V63*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V64*/ curfptr[63] = 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_OBJINTERNKEYWORD__V65*/ curfptr[64] = 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_NREP_DATAKEYWORD__V66*/ curfptr[65] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V67*/ curfptr[66] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V68*/ curfptr[67] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V69*/ curfptr[68] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V70*/ curfptr[69] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V372*/ curfptr[371]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V71*/ curfptr[70] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V72*/ curfptr[71] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V73*/ curfptr[72] = 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_OBJMULTIAPPLY__V74*/ curfptr[73] = 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_OBJMULTIMSEND__V75*/ curfptr[74] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__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_OBJRAWALLOCOBJ__V77*/ curfptr[76] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V78*/ curfptr[77] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V79*/ curfptr[78] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V421*/ curfptr[420]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V80*/ curfptr[79] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V425*/ curfptr[424]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V81*/ curfptr[80] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V82*/ curfptr[81] = 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_OBJPUTSLOT__V83*/ curfptr[82] = 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_NREP__V84*/ curfptr[83] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V85*/ curfptr[84] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V442*/ curfptr[441]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V86*/ curfptr[85] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V446*/ curfptr[445]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V87*/ curfptr[86] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V88*/ curfptr[87] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V454*/ curfptr[453]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V89*/ curfptr[88] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__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]; /*_.CLASS_OBJEXPV__V91*/ curfptr[90] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V467*/ curfptr[466]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V92*/ curfptr[91] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V472*/ curfptr[471]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISCR_VERBATIMSTRING__V93*/ curfptr[92] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V94*/ curfptr[93] = 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]; /*_.MAPSTRING_EVERY__V95*/ curfptr[94] = 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]; /*_.LIST_TO_MULTIPLE__V96*/ curfptr[95] = 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]; /*_.DISCR_MULTIPLE__V97*/ curfptr[96] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V98*/ curfptr[97] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V99*/ curfptr[98] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V100*/ curfptr[99] = 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]; /*_.DISCR_MAPSTRINGS__V101*/ curfptr[100] = 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]; /*_.CREATE_NORMCONTEXT__V102*/ curfptr[101] = 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_NORMCONTEXT__V103*/ curfptr[102] = 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]; /*_.MACROEXPAND_TOPLEVEL_LIST__V104*/ curfptr[103] = 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]; /*_.CLASS_SRC__V105*/ curfptr[104] = 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_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105] = 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]; /*_.INITIAL_ENVIRONMENT__V107*/ curfptr[106] = 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]; /*_.CLASS_NREP_INITPROC__V108*/ curfptr[107] = 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]; /*_.CLASS_LOCATED__V109*/ curfptr[108] = 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]; /*_.CLASS_SRC_COMMENT__V110*/ curfptr[109] = 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]; /*_.NORMAL_EXP__V111*/ curfptr[110] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V112*/ curfptr[111] = 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]; /*_.WRAP_NORMAL_LET1__V113*/ curfptr[112] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V114*/ curfptr[113] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V115*/ curfptr[114] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V116*/ curfptr[115] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V117*/ curfptr[116] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V118*/ curfptr[117] = 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]; /*_.FIND_ENV__V119*/ curfptr[118] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_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__V120*/ curfptr[119] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567]), (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___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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122])))); ((basilysobject_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V124*/ curfptr[123]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V123*/ curfptr[122]); BASILYS_LOCATION("warmelt-outobj.melt:36:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V125*/ curfptr[124])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_5__OUTDECLINIT_ROOT#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V125*/ curfptr[124])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:36:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V125*/ curfptr[124]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V126*/ curfptr[125])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V125*/ curfptr[124])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V126*/ curfptr[125])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V125*/ curfptr[124]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V126*/ curfptr[125]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130])))); ((basilysobject_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V132*/ curfptr[131]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V131*/ curfptr[130]); BASILYS_LOCATION("warmelt-outobj.melt:43:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V133*/ curfptr[132])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_13__OUTPUCOD_OBJINIELEM#0", NULL != (/*_.CLASS_OBJINITELEM__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V133*/ curfptr[132])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITELEM__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-outobj.melt:43:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V133*/ curfptr[132])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_13__OUTPUCOD_OBJINIELEM#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V133*/ curfptr[132])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:43:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V133*/ curfptr[132]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V134*/ curfptr[133])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V133*/ curfptr[132])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V134*/ curfptr[133])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V133*/ curfptr[132]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V134*/ curfptr[133]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])))); ((basilysobject_ptr_t)(/*_.VALDATA___V135*/ curfptr[134]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V136*/ curfptr[135]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V135*/ curfptr[134]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136])))); ((basilysobject_ptr_t)(/*_.VALDATA___V137*/ curfptr[136]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V138*/ curfptr[137]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V137*/ curfptr[136]); BASILYS_LOCATION("warmelt-outobj.melt:54:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V139*/ curfptr[138])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_19__OUTCINITFILL_ROOT#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V139*/ curfptr[138])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:54:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V139*/ curfptr[138]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V140*/ curfptr[139])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V139*/ curfptr[138])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V140*/ curfptr[139])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V139*/ curfptr[138]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V140*/ curfptr[139]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140])))); ((basilysobject_ptr_t)(/*_.VALDATA___V141*/ curfptr[140]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V142*/ curfptr[141]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V141*/ curfptr[140]); BASILYS_LOCATION("warmelt-outobj.melt:62:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V143*/ curfptr[142])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_23__OUTCINITPREDEF_ROOT#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V143*/ curfptr[142])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:62:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V143*/ curfptr[142]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V144*/ curfptr[143])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V143*/ curfptr[142])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V144*/ curfptr[143])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V143*/ curfptr[142]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V144*/ curfptr[143]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V145*/ curfptr[144])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V145*/ curfptr[144])))); ((basilysobject_ptr_t)(/*_.VALDATA___V145*/ curfptr[144]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V146*/ curfptr[145]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V145*/ curfptr[144]); BASILYS_LOCATION("warmelt-outobj.melt:69:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V147*/ curfptr[146])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_27__OUTPUT_PREDEF#0", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V147*/ curfptr[146])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-outobj.melt:69:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V147*/ curfptr[146])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_27__OUTPUT_PREDEF#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V147*/ curfptr[146])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:69:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V147*/ curfptr[146])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_27__OUTPUT_PREDEF#2", NULL != (/*_.OBPREDEF__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V147*/ curfptr[146])->tabval[2] = (basilys_ptr_t)(/*_.OBPREDEF__V16*/ curfptr[15]); BASILYS_LOCATION("warmelt-outobj.melt:69:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V147*/ curfptr[146]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V148*/ curfptr[147])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V147*/ curfptr[146])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V148*/ curfptr[147])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V147*/ curfptr[146]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V148*/ curfptr[147]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])))); ((basilysobject_ptr_t)(/*_.VALDATA___V149*/ curfptr[148]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V150*/ curfptr[149]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V149*/ curfptr[148]); BASILYS_LOCATION("warmelt-outobj.melt:88:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V151*/ curfptr[150])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_31__OUTPUCOD_PREDEF#0", NULL != (/*_.CLASS_OBJPREDEF__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V151*/ curfptr[150])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPREDEF__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-outobj.melt:88:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V151*/ curfptr[150])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V148*/ curfptr[147]); ((basilysroutine_ptr_t)/*_.VALROUT___V151*/ curfptr[150])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V148*/ curfptr[147]); BASILYS_LOCATION("warmelt-outobj.melt:88:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V151*/ curfptr[150]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V152*/ curfptr[151])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V151*/ curfptr[150])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V152*/ curfptr[151])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V151*/ curfptr[150]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V152*/ curfptr[151]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152])))); ((basilysobject_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V154*/ curfptr[153]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V153*/ curfptr[152]); BASILYS_LOCATION("warmelt-outobj.melt:95:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V155*/ curfptr[154])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_35__OUTPUCOD_NIL#0", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V155*/ curfptr[154])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-outobj.melt:95:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V155*/ curfptr[154]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V156*/ curfptr[155])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V155*/ curfptr[154])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V156*/ curfptr[155])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V155*/ curfptr[154]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V156*/ curfptr[155]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156])))); ((basilysobject_ptr_t)(/*_.VALDATA___V157*/ curfptr[156]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V158*/ curfptr[157]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V157*/ curfptr[156]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V160*/ curfptr[159])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V159*/ curfptr[158])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V160*/ curfptr[159])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V159*/ curfptr[158]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V160*/ curfptr[159]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160])))); ((basilysobject_ptr_t)(/*_.VALDATA___V161*/ curfptr[160]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V162*/ curfptr[161]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V161*/ curfptr[160]); BASILYS_LOCATION("warmelt-outobj.melt:111:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V163*/ curfptr[162])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_43__OUTCINITFILL_OBJINITOBJECT#0", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V163*/ curfptr[162])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]); BASILYS_LOCATION("warmelt-outobj.melt:111:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V163*/ curfptr[162])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_43__OUTCINITFILL_OBJINITOBJECT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V163*/ curfptr[162])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:111:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V163*/ curfptr[162])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_43__OUTCINITFILL_OBJINITOBJECT#2", NULL != (/*_.CLASS_NREP_DATAINSTANCE__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V163*/ curfptr[162])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V20*/ curfptr[19]); /*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___V167*/ curfptr[166])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V166*/ curfptr[165])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V167*/ curfptr[166]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V166*/ curfptr[165]); BASILYS_LOCATION("warmelt-outobj.melt:591:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V165*/ curfptr[164])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V166*/ curfptr[165]); ((basilysroutine_ptr_t)/*_.VALROUT___V165*/ curfptr[164])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V166*/ curfptr[165]); BASILYS_LOCATION("warmelt-outobj.melt:591:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V165*/ curfptr[164]); /*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.melt:111:/ 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[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:111:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V163*/ curfptr[162])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V148*/ curfptr[147]); ((basilysroutine_ptr_t)/*_.VALROUT___V163*/ curfptr[162])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V148*/ curfptr[147]); BASILYS_LOCATION("warmelt-outobj.melt:111:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V163*/ curfptr[162])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_43__OUTCINITFILL_OBJINITOBJECT#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V163*/ curfptr[162])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:111:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V163*/ curfptr[162])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_43__OUTCINITFILL_OBJINITOBJECT#6", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V163*/ curfptr[162])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-outobj.melt:111:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V163*/ curfptr[162]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V168*/ curfptr[167])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V163*/ curfptr[162])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V168*/ curfptr[167])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V163*/ curfptr[162]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V168*/ curfptr[167]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168])))); ((basilysobject_ptr_t)(/*_.VALDATA___V169*/ curfptr[168]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V170*/ curfptr[169]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V169*/ curfptr[168]); BASILYS_LOCATION("warmelt-outobj.melt:231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V171*/ curfptr[170])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#0", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V171*/ curfptr[170])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]); BASILYS_LOCATION("warmelt-outobj.melt:231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V171*/ curfptr[170])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V171*/ curfptr[170])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V171*/ curfptr[170])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#2", NULL != (/*_.CLASS_NREP_DATAINSTANCE__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V171*/ curfptr[170])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-outobj.melt:231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V171*/ curfptr[170])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#3", NULL != (/*_.CLASS_NREP_NIL__V21*/ curfptr[20])); ((basilysroutine_ptr_t)/*_.VALROUT___V171*/ curfptr[170])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_NIL__V21*/ curfptr[20]); BASILYS_LOCATION("warmelt-outobj.melt:231:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V171*/ curfptr[170])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V171*/ curfptr[170])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V171*/ curfptr[170])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#5", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V171*/ curfptr[170])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-outobj.melt:231:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V171*/ curfptr[170]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V172*/ curfptr[171])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V171*/ curfptr[170])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V172*/ curfptr[171])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V171*/ curfptr[170]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V172*/ curfptr[171]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172])))); ((basilysobject_ptr_t)(/*_.VALDATA___V173*/ curfptr[172]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V174*/ curfptr[173]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V173*/ curfptr[172]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V176*/ curfptr[175])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V175*/ curfptr[174])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V176*/ curfptr[175])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V175*/ curfptr[174]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V176*/ curfptr[175]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V177*/ curfptr[176])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V177*/ curfptr[176])))); ((basilysobject_ptr_t)(/*_.VALDATA___V177*/ curfptr[176]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V178*/ curfptr[177]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V177*/ curfptr[176]); BASILYS_LOCATION("warmelt-outobj.melt:321:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V179*/ curfptr[178])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_55__OUTCINITFILL_OBJINITMULTIPLE#0", NULL != (/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21])); ((basilysroutine_ptr_t)/*_.VALROUT___V179*/ curfptr[178])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21]); BASILYS_LOCATION("warmelt-outobj.melt:321:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V179*/ curfptr[178])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_55__OUTCINITFILL_OBJINITMULTIPLE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V179*/ curfptr[178])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:321:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V179*/ curfptr[178])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_55__OUTCINITFILL_OBJINITMULTIPLE#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V179*/ curfptr[178])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:321:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V179*/ curfptr[178]); /*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]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V182*/ curfptr[181])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V181*/ curfptr[180])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V182*/ curfptr[181])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V181*/ curfptr[180]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V182*/ curfptr[181]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182])))); ((basilysobject_ptr_t)(/*_.VALDATA___V183*/ curfptr[182]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V184*/ curfptr[183]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V183*/ curfptr[182]); BASILYS_LOCATION("warmelt-outobj.melt:362:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V185*/ curfptr[184])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_61__OUTCINITFILL_OBJINITCLOSURE#0", NULL != (/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V185*/ curfptr[184])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-outobj.melt:362:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V185*/ curfptr[184])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_61__OUTCINITFILL_OBJINITCLOSURE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V185*/ curfptr[184])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:362:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V185*/ curfptr[184])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_61__OUTCINITFILL_OBJINITCLOSURE#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V185*/ curfptr[184])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:362:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V185*/ curfptr[184]); /*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]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V188*/ curfptr[187])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V187*/ curfptr[186])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V188*/ curfptr[187])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V187*/ curfptr[186]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V188*/ curfptr[187]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V189*/ curfptr[188])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V189*/ curfptr[188])))); ((basilysobject_ptr_t)(/*_.VALDATA___V189*/ curfptr[188]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V190*/ curfptr[189]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V189*/ curfptr[188]); BASILYS_LOCATION("warmelt-outobj.melt:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#0", NULL != (/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-outobj.melt:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#3", NULL != (/*_.CLASS_NREP_DATAROUTINE__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAROUTINE__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-outobj.melt:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.melt:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#5", NULL != (/*_.CLASS_NREP_ROUTPROC__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-outobj.melt:407:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V191*/ curfptr[190]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V192*/ curfptr[191])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V192*/ curfptr[191])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V191*/ curfptr[190]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V192*/ curfptr[191]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196])))); ((basilysobject_ptr_t)(/*_.VALDATA___V197*/ curfptr[196]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V198*/ curfptr[197]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V197*/ curfptr[196]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V200*/ curfptr[199])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V199*/ curfptr[198])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V200*/ curfptr[199])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V199*/ curfptr[198]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V200*/ curfptr[199]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200])))); ((basilysobject_ptr_t)(/*_.VALDATA___V201*/ curfptr[200]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V202*/ curfptr[201]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V201*/ curfptr[200]); BASILYS_LOCATION("warmelt-outobj.melt:496:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V203*/ curfptr[202])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_79__OUTCINITFILL_OBJINITSTRING#0", NULL != (/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V203*/ curfptr[202])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-outobj.melt:496:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V203*/ curfptr[202])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_79__OUTCINITFILL_OBJINITSTRING#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V203*/ curfptr[202])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:496:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V203*/ curfptr[202])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_79__OUTCINITFILL_OBJINITSTRING#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V203*/ curfptr[202])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:496:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V203*/ curfptr[202]); /*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]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V206*/ curfptr[205])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V205*/ curfptr[204])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V206*/ curfptr[205])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V205*/ curfptr[204]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V206*/ curfptr[205]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V207*/ curfptr[206])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V207*/ curfptr[206])))); ((basilysobject_ptr_t)(/*_.VALDATA___V207*/ curfptr[206]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V208*/ curfptr[207]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V207*/ curfptr[206]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V210*/ curfptr[209])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V209*/ curfptr[208])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V210*/ curfptr[209])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V209*/ curfptr[208]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V210*/ curfptr[209]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])))); ((basilysobject_ptr_t)(/*_.VALDATA___V211*/ curfptr[210]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V212*/ curfptr[211]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V211*/ curfptr[210]); BASILYS_LOCATION("warmelt-outobj.melt:547:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V213*/ curfptr[212])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_89__OUTPUCOD_CATCHALL_ROOT#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V213*/ curfptr[212])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:547:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V213*/ curfptr[212])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_89__OUTPUCOD_CATCHALL_ROOT#1", NULL != (/*_.DISPLAYDEBUGMSG__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V213*/ curfptr[212])->tabval[1] = (basilys_ptr_t)(/*_.DISPLAYDEBUGMSG__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-outobj.melt:547:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V213*/ curfptr[212]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V214*/ curfptr[213])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V213*/ curfptr[212])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V214*/ curfptr[213])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V213*/ curfptr[212]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V214*/ curfptr[213]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V215*/ curfptr[214])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V215*/ curfptr[214])))); ((basilysobject_ptr_t)(/*_.VALDATA___V215*/ curfptr[214]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V216*/ curfptr[215]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V215*/ curfptr[214]); BASILYS_LOCATION("warmelt-outobj.melt:621:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V217*/ curfptr[216])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#0", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V217*/ curfptr[216])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-outobj.melt:621:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V217*/ curfptr[216])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#1", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V217*/ curfptr[216])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.melt:621:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V217*/ curfptr[216])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#2", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V217*/ curfptr[216])->tabval[2] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:621:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V217*/ curfptr[216])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#3", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V217*/ curfptr[216])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.melt:621:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V217*/ curfptr[216])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#4", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V217*/ curfptr[216])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:692:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V218*/ curfptr[217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_103__LAMBDA_#0", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V218*/ curfptr[217])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.melt:692:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V218*/ curfptr[217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_103__LAMBDA_#1", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V218*/ curfptr[217])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:692:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V218*/ curfptr[217]); BASILYS_LOCATION("warmelt-outobj.melt:621:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V217*/ curfptr[216])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#5", NULL != (/*_.VALROUT___V218*/ curfptr[217])); ((basilysroutine_ptr_t)/*_.VALROUT___V217*/ curfptr[216])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V218*/ curfptr[217]); BASILYS_LOCATION("warmelt-outobj.melt:621:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V217*/ curfptr[216]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V219*/ curfptr[218])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V217*/ curfptr[216])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V219*/ curfptr[218])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V217*/ curfptr[216]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V219*/ curfptr[218]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225])))); ((basilysobject_ptr_t)(/*_.VALDATA___V226*/ curfptr[225]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V227*/ curfptr[226]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V226*/ curfptr[225]); BASILYS_LOCATION("warmelt-outobj.melt:716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V228*/ curfptr[227])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#0", NULL != (/*_.CLASS_ROUTINEOBJ__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V228*/ curfptr[227])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROUTINEOBJ__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-outobj.melt:716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V228*/ curfptr[227])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#1", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V228*/ curfptr[227])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-outobj.melt:716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V228*/ curfptr[227])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#2", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V228*/ curfptr[227])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V228*/ curfptr[227])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#3", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V228*/ curfptr[227])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V228*/ curfptr[227])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#4", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V228*/ curfptr[227])->tabval[4] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V228*/ curfptr[227])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#5", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V228*/ curfptr[227])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.melt:716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V228*/ curfptr[227])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#6", NULL != (/*_.CLASS_OBJVALUE__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V228*/ curfptr[227])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_OBJVALUE__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-outobj.melt:716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V228*/ curfptr[227])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#7", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V228*/ curfptr[227])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V228*/ curfptr[227])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#8", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V228*/ curfptr[227])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.melt:737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V229*/ curfptr[228])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_114__LAMBDA_#0", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V229*/ curfptr[228])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.melt:737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V229*/ curfptr[228])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_114__LAMBDA_#1", NULL != (/*_.CLASS_OBJVALUE__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V229*/ curfptr[228])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJVALUE__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-outobj.melt:737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V229*/ curfptr[228])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_114__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V229*/ curfptr[228])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V229*/ curfptr[228])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_114__LAMBDA_#3", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V229*/ curfptr[228])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.melt:737:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V229*/ curfptr[228]); BASILYS_LOCATION("warmelt-outobj.melt:716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V228*/ curfptr[227])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#9", NULL != (/*_.VALROUT___V229*/ curfptr[228])); ((basilysroutine_ptr_t)/*_.VALROUT___V228*/ curfptr[227])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V229*/ curfptr[228]); BASILYS_LOCATION("warmelt-outobj.melt:716:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V228*/ curfptr[227]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V230*/ curfptr[229])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V228*/ curfptr[227])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V230*/ curfptr[229])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V228*/ curfptr[227]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V230*/ curfptr[229]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234])))); ((basilysobject_ptr_t)(/*_.VALDATA___V235*/ curfptr[234]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V236*/ curfptr[235]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V235*/ curfptr[234]); BASILYS_LOCATION("warmelt-outobj.melt:770:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT#0", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-outobj.melt:770:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V230*/ curfptr[229]); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V230*/ curfptr[229]); BASILYS_LOCATION("warmelt-outobj.melt:770:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V237*/ curfptr[236]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V238*/ curfptr[237])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V238*/ curfptr[237])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V237*/ curfptr[236]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V238*/ curfptr[237]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#0", NULL != (/*_.CLASS_PROCROUTINEOBJ__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_PROCROUTINEOBJ__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#1", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V166*/ curfptr[165]); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V166*/ curfptr[165]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V238*/ curfptr[237]); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V238*/ curfptr[237]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V219*/ curfptr[218]); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V219*/ curfptr[218]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#6", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[6] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:896:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V240*/ curfptr[239])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_127__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V240*/ curfptr[239])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:896:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V240*/ curfptr[239]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#7", NULL != (/*_.VALROUT___V240*/ curfptr[239])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V240*/ curfptr[239]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#8", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[8] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#9", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#10", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[10] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:917:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V241*/ curfptr[240])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_128__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V241*/ curfptr[240])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:917:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V241*/ curfptr[240])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_128__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V241*/ curfptr[240])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:917:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V241*/ curfptr[240]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#11", NULL != (/*_.VALROUT___V241*/ curfptr[240])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V241*/ curfptr[240]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#12", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[12] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:834:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V239*/ curfptr[238]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V242*/ curfptr[241])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V242*/ curfptr[241])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V239*/ curfptr[238]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V242*/ curfptr[241]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])))); ((basilysobject_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V250*/ curfptr[249]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V249*/ curfptr[248]); BASILYS_LOCATION("warmelt-outobj.melt:958:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V251*/ curfptr[250])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_131__OUTPUT_CURFRAME_CDAT_STRUCT#0", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V251*/ curfptr[250])->tabval[0] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.melt:958:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V251*/ curfptr[250])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_131__OUTPUT_CURFRAME_CDAT_STRUCT#1", NULL != (/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V251*/ curfptr[250])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-outobj.melt:963:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V252*/ curfptr[251])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_133__LAMBDA_#0", NULL != (/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V252*/ curfptr[251])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-outobj.melt:963:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V252*/ curfptr[251]); BASILYS_LOCATION("warmelt-outobj.melt:958:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V251*/ curfptr[250])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_131__OUTPUT_CURFRAME_CDAT_STRUCT#2", NULL != (/*_.VALROUT___V252*/ curfptr[251])); ((basilysroutine_ptr_t)/*_.VALROUT___V251*/ curfptr[250])->tabval[2] = (basilys_ptr_t)(/*_.VALROUT___V252*/ curfptr[251]); BASILYS_LOCATION("warmelt-outobj.melt:958:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V251*/ curfptr[250]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V253*/ curfptr[252])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V251*/ curfptr[250])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V253*/ curfptr[252])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V251*/ curfptr[250]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V253*/ curfptr[252]); BASILYS_LOCATION("warmelt-outobj.melt:974:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_134__OUTPUT_CURFRAME_CDAT_FILL#0", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[0] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.melt:974:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_134__OUTPUT_CURFRAME_CDAT_FILL#1", NULL != (/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-outobj.melt:986:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V255*/ curfptr[254])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_136__LAMBDA_#0", NULL != (/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V255*/ curfptr[254])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-outobj.melt:986:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V255*/ curfptr[254]); BASILYS_LOCATION("warmelt-outobj.melt:974:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_134__OUTPUT_CURFRAME_CDAT_FILL#2", NULL != (/*_.VALROUT___V255*/ curfptr[254])); ((basilysroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[2] = (basilys_ptr_t)(/*_.VALROUT___V255*/ curfptr[254]); BASILYS_LOCATION("warmelt-outobj.melt:974:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_134__OUTPUT_CURFRAME_CDAT_FILL#3", NULL != (/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-outobj.melt:995:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_137__LAMBDA_#0", NULL != (/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-outobj.melt:995:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V256*/ curfptr[255]); BASILYS_LOCATION("warmelt-outobj.melt:974:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_134__OUTPUT_CURFRAME_CDAT_FILL#4", NULL != (/*_.VALROUT___V256*/ curfptr[255])); ((basilysroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255]); BASILYS_LOCATION("warmelt-outobj.melt:974:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V254*/ curfptr[253]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V257*/ curfptr[256])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V257*/ curfptr[256])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V254*/ curfptr[253]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V257*/ curfptr[256]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#0", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V219*/ curfptr[218]); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V219*/ curfptr[218]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V253*/ curfptr[252]); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V253*/ curfptr[252]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V257*/ curfptr[256]); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V257*/ curfptr[256]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V238*/ curfptr[237]); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V238*/ curfptr[237]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#5", NULL != (/*_.VALROUT___V259*/ curfptr[258])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V259*/ curfptr[258]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#6", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[6] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#7", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#8", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[8] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1079:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V260*/ curfptr[259])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_141__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V260*/ curfptr[259])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:1079:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V260*/ curfptr[259])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_141__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V260*/ curfptr[259])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1079:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V260*/ curfptr[259]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#9", NULL != (/*_.VALROUT___V260*/ curfptr[259])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V260*/ curfptr[259]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#10", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#11", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[11] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1103:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V261*/ curfptr[260])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_142__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V261*/ curfptr[260])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:1103:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V261*/ curfptr[260])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_142__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V261*/ curfptr[260])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1103:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V261*/ curfptr[260]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#12", NULL != (/*_.VALROUT___V261*/ curfptr[260])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V261*/ curfptr[260]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#13", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[13] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V230*/ curfptr[229]); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V230*/ curfptr[229]); BASILYS_LOCATION("warmelt-outobj.melt:1013:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V258*/ curfptr[257]); /*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___V258*/ curfptr[257])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V262*/ curfptr[261])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V258*/ curfptr[257]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V262*/ curfptr[261]); BASILYS_LOCATION("warmelt-outobj.melt:1153:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V263*/ curfptr[262])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#0", NULL != (/*_.CLASS_OBJGETARG__V43*/ curfptr[42])); ((basilysroutine_ptr_t)/*_.VALROUT___V263*/ curfptr[262])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJGETARG__V43*/ curfptr[42]); BASILYS_LOCATION("warmelt-outobj.melt:1153:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V263*/ curfptr[262])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#1", NULL != (/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V263*/ curfptr[262])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]); BASILYS_LOCATION("warmelt-outobj.melt:1153:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V263*/ curfptr[262])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V263*/ curfptr[262])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1153:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V263*/ curfptr[262])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#3", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V263*/ curfptr[262])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.melt:1153:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V263*/ curfptr[262])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#4", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V263*/ curfptr[262])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:1153:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V263*/ curfptr[262])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#5", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V263*/ curfptr[262])->tabval[5] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:1153:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V263*/ curfptr[262])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#6", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V263*/ curfptr[262])->tabval[6] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1153:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V263*/ curfptr[262]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V264*/ curfptr[263])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V263*/ curfptr[262])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V264*/ curfptr[263])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V263*/ curfptr[262]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V264*/ curfptr[263]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V267*/ curfptr[266])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V267*/ curfptr[266])))); ((basilysobject_ptr_t)(/*_.VALDATA___V267*/ curfptr[266]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V268*/ curfptr[267]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V267*/ curfptr[266]); BASILYS_LOCATION("warmelt-outobj.melt:1219:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V269*/ curfptr[268])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_149__OUTPUCOD_OBJLOCV#0", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V269*/ curfptr[268])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.melt:1219:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V269*/ curfptr[268])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_149__OUTPUCOD_OBJLOCV#1", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V269*/ curfptr[268])->tabval[1] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:1219:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V269*/ curfptr[268])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_149__OUTPUCOD_OBJLOCV#2", NULL != (/*_.CTYPE_LONG__V45*/ curfptr[44])); ((basilysroutine_ptr_t)/*_.VALROUT___V269*/ curfptr[268])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_LONG__V45*/ curfptr[44]); BASILYS_LOCATION("warmelt-outobj.melt:1219:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V269*/ curfptr[268]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V270*/ curfptr[269])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V269*/ curfptr[268])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V270*/ curfptr[269])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V269*/ curfptr[268]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V270*/ curfptr[269]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])))); ((basilysobject_ptr_t)(/*_.VALDATA___V271*/ curfptr[270]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V272*/ curfptr[271]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V271*/ curfptr[270]); BASILYS_LOCATION("warmelt-outobj.melt:1249:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V273*/ curfptr[272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_153__OUTPUCOD_OBJCLOCCV#0", NULL != (/*_.CLASS_OBJCLOCCV__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V273*/ curfptr[272])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCLOCCV__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-outobj.melt:1249:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V273*/ curfptr[272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_153__OUTPUCOD_OBJCLOCCV#1", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V273*/ curfptr[272])->tabval[1] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:1249:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V273*/ curfptr[272]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V274*/ curfptr[273])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V273*/ curfptr[272])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V274*/ curfptr[273])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V273*/ curfptr[272]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V274*/ curfptr[273]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V275*/ curfptr[274])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V275*/ curfptr[274])))); ((basilysobject_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V276*/ curfptr[275]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V275*/ curfptr[274]); BASILYS_LOCATION("warmelt-outobj.melt:1266:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V277*/ curfptr[276])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_157__OUTPUCOD_OBJCONSTV#0", NULL != (/*_.CLASS_OBJCONSTV__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V277*/ curfptr[276])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCONSTV__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-outobj.melt:1266:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V277*/ curfptr[276])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_157__OUTPUCOD_OBJCONSTV#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V277*/ curfptr[276])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1266:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V277*/ curfptr[276])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_157__OUTPUCOD_OBJCONSTV#2", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V277*/ curfptr[276])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:1266:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V277*/ curfptr[276]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V278*/ curfptr[277])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V277*/ curfptr[276])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V278*/ curfptr[277])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V277*/ curfptr[276]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V278*/ curfptr[277]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278])))); ((basilysobject_ptr_t)(/*_.VALDATA___V279*/ curfptr[278]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V280*/ curfptr[279]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V279*/ curfptr[278]); BASILYS_LOCATION("warmelt-outobj.melt:1284:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V281*/ curfptr[280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST#0", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V281*/ curfptr[280])->tabval[0] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:1284:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V281*/ curfptr[280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST#1", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V281*/ curfptr[280])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:1284:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V281*/ curfptr[280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V281*/ curfptr[280])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1289:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V282*/ curfptr[281])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_163__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V282*/ curfptr[281])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:1289:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V282*/ curfptr[281])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_163__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V282*/ curfptr[281])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1289:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V282*/ curfptr[281]); BASILYS_LOCATION("warmelt-outobj.melt:1284:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V281*/ curfptr[280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST#3", NULL != (/*_.VALROUT___V282*/ curfptr[281])); ((basilysroutine_ptr_t)/*_.VALROUT___V281*/ curfptr[280])->tabval[3] = (basilys_ptr_t)(/*_.VALROUT___V282*/ curfptr[281]); BASILYS_LOCATION("warmelt-outobj.melt:1284:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V281*/ curfptr[280]); /*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___V281*/ curfptr[280])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V283*/ curfptr[282])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V281*/ curfptr[280]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V283*/ curfptr[282]); BASILYS_LOCATION("warmelt-outobj.melt:1301:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V284*/ curfptr[283])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_164__OUTPUCOD_OBJBLOCK#0", NULL != (/*_.CLASS_OBJBLOCK__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V284*/ curfptr[283])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJBLOCK__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-outobj.melt:1301:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V284*/ curfptr[283])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_164__OUTPUCOD_OBJBLOCK#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V284*/ curfptr[283])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1301:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V284*/ curfptr[283])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V284*/ curfptr[283])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1301:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V284*/ curfptr[283])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_164__OUTPUCOD_OBJBLOCK#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V284*/ curfptr[283])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:1301:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V284*/ curfptr[283])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V283*/ curfptr[282]); ((basilysroutine_ptr_t)/*_.VALROUT___V284*/ curfptr[283])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V283*/ curfptr[282]); BASILYS_LOCATION("warmelt-outobj.melt:1301:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V284*/ curfptr[283]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V285*/ curfptr[284])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V284*/ curfptr[283])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V285*/ curfptr[284])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V284*/ curfptr[283]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V285*/ curfptr[284]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])))); ((basilysobject_ptr_t)(/*_.VALDATA___V288*/ curfptr[287]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V289*/ curfptr[288]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V288*/ curfptr[287]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#0", NULL != (/*_.CLASS_OBJCITERBLOCK__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCITERBLOCK__V50*/ curfptr[49]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#3", NULL != (/*_.CLASS_CITERATOR__V51*/ curfptr[50])); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V51*/ curfptr[50]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#6", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[6] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1345:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V291*/ curfptr[290])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_176__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V291*/ curfptr[290])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1345:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V291*/ curfptr[290]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#7", NULL != (/*_.VALROUT___V291*/ curfptr[290])); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V291*/ curfptr[290]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V283*/ curfptr[282]); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V283*/ curfptr[282]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#9", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[9] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1356:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V292*/ curfptr[291])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_177__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V292*/ curfptr[291])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1356:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V292*/ curfptr[291]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#10", NULL != (/*_.VALROUT___V292*/ curfptr[291])); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[10] = (basilys_ptr_t)(/*_.VALROUT___V292*/ curfptr[291]); BASILYS_LOCATION("warmelt-outobj.melt:1325:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V290*/ curfptr[289]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V293*/ curfptr[292])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V293*/ curfptr[292])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V290*/ curfptr[289]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V293*/ curfptr[292]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293])))); ((basilysobject_ptr_t)(/*_.VALDATA___V294*/ curfptr[293]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V295*/ curfptr[294]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V294*/ curfptr[293]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295])))); ((basilysobject_ptr_t)(/*_.VALDATA___V296*/ curfptr[295]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V297*/ curfptr[296]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V296*/ curfptr[295]); BASILYS_LOCATION("warmelt-outobj.melt:1375:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V298*/ curfptr[297])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_178__OUTPUCOD_OBJCOMMENTINSTR#0", NULL != (/*_.CLASS_OBJCOMMENTINSTR__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V298*/ curfptr[297])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCOMMENTINSTR__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-outobj.melt:1375:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V298*/ curfptr[297])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_178__OUTPUCOD_OBJCOMMENTINSTR#1", NULL != (/*_.DISCR_STRBUF__V53*/ curfptr[52])); ((basilysroutine_ptr_t)/*_.VALROUT___V298*/ curfptr[297])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V53*/ curfptr[52]); BASILYS_LOCATION("warmelt-outobj.melt:1375:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V298*/ curfptr[297])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_178__OUTPUCOD_OBJCOMMENTINSTR#2", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V298*/ curfptr[297])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.melt:1375:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V298*/ curfptr[297])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V298*/ curfptr[297])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1375:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V298*/ curfptr[297]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V299*/ curfptr[298])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V298*/ curfptr[297])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V299*/ curfptr[298])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V298*/ curfptr[297]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V299*/ curfptr[298]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])))); ((basilysobject_ptr_t)(/*_.VALDATA___V302*/ curfptr[301]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V303*/ curfptr[302]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V302*/ curfptr[301]); BASILYS_LOCATION("warmelt-outobj.melt:1394:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V304*/ curfptr[303])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK#0", NULL != (/*_.CLASS_OBJCOMMENTEDBLOCK__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V304*/ curfptr[303])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCOMMENTEDBLOCK__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-outobj.melt:1394:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V304*/ curfptr[303])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V304*/ curfptr[303])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1394:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V304*/ curfptr[303])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V304*/ curfptr[303])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1394:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V304*/ curfptr[303])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V304*/ curfptr[303])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:1394:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V304*/ curfptr[303])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK#4", NULL != (/*_.DISCR_STRBUF__V53*/ curfptr[52])); ((basilysroutine_ptr_t)/*_.VALROUT___V304*/ curfptr[303])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V53*/ curfptr[52]); BASILYS_LOCATION("warmelt-outobj.melt:1394:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V304*/ curfptr[303])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK#5", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V304*/ curfptr[303])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.melt:1394:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V304*/ curfptr[303])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V283*/ curfptr[282]); ((basilysroutine_ptr_t)/*_.VALROUT___V304*/ curfptr[303])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V283*/ curfptr[282]); BASILYS_LOCATION("warmelt-outobj.melt:1394:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V304*/ curfptr[303]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V305*/ curfptr[304])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V304*/ curfptr[303])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V305*/ curfptr[304])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V304*/ curfptr[303]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V305*/ curfptr[304]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])))); ((basilysobject_ptr_t)(/*_.VALDATA___V306*/ curfptr[305]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V307*/ curfptr[306]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V306*/ curfptr[305]); BASILYS_LOCATION("warmelt-outobj.melt:1432:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V308*/ curfptr[307])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_188__OUTPUCOD_OBJLABELINSTR#0", NULL != (/*_.CLASS_OBJLABELINSTR__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V308*/ curfptr[307])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJLABELINSTR__V55*/ curfptr[54]); BASILYS_LOCATION("warmelt-outobj.melt:1432:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V308*/ curfptr[307])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_188__OUTPUCOD_OBJLABELINSTR#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V308*/ curfptr[307])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1432:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V308*/ curfptr[307])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V308*/ curfptr[307])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1432:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V308*/ curfptr[307]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V309*/ curfptr[308])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V308*/ curfptr[307])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V309*/ curfptr[308])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V308*/ curfptr[307]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V309*/ curfptr[308]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V310*/ curfptr[309])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V310*/ curfptr[309])))); ((basilysobject_ptr_t)(/*_.VALDATA___V310*/ curfptr[309]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V311*/ curfptr[310]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V310*/ curfptr[309]); BASILYS_LOCATION("warmelt-outobj.melt:1450:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V312*/ curfptr[311])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJGOTOINSTR#0", NULL != (/*_.CLASS_OBJGOTOINSTR__V56*/ curfptr[55])); ((basilysroutine_ptr_t)/*_.VALROUT___V312*/ curfptr[311])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJGOTOINSTR__V56*/ curfptr[55]); BASILYS_LOCATION("warmelt-outobj.melt:1450:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V312*/ curfptr[311])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJGOTOINSTR#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V312*/ curfptr[311])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1450:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V312*/ curfptr[311])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V312*/ curfptr[311])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1450:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V312*/ curfptr[311]); /*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___V312*/ curfptr[311])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V313*/ curfptr[312])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V312*/ curfptr[311]); /*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.melt:1466:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V316*/ curfptr[315])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_196__ADD2SBUF_CLONSYM#0", NULL != (/*_.CLASS_CLONEDSYMBOL__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V316*/ curfptr[315])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_CLONEDSYMBOL__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-outobj.melt:1466:/ 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.melt:1477:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_200__OUTPUCOD_OBJLOOP#0", NULL != (/*_.CLASS_OBJLOOP__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJLOOP__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_200__OUTPUCOD_OBJLOOP#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_200__OUTPUCOD_OBJLOOP#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_200__OUTPUCOD_OBJLOOP#3", NULL != (/*_.CLASS_CLONEDSYMBOL__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CLONEDSYMBOL__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V317*/ curfptr[316]); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V317*/ curfptr[316]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_200__OUTPUCOD_OBJLOOP#6", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[6] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_200__OUTPUCOD_OBJLOOP#7", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_200__OUTPUCOD_OBJLOOP#8", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[8] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1497:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V321*/ curfptr[320])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_204__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V321*/ curfptr[320])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:1497:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V321*/ curfptr[320])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_204__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V321*/ curfptr[320])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1497:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V321*/ curfptr[320]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_200__OUTPUCOD_OBJLOOP#9", NULL != (/*_.VALROUT___V321*/ curfptr[320])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V321*/ curfptr[320]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_200__OUTPUCOD_OBJLOOP#10", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_200__OUTPUCOD_OBJLOOP#11", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[11] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1519:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V322*/ curfptr[321])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_205__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V322*/ curfptr[321])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:1519:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V322*/ curfptr[321])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_205__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V322*/ curfptr[321])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1519:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V322*/ curfptr[321]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_200__OUTPUCOD_OBJLOOP#12", NULL != (/*_.VALROUT___V322*/ curfptr[321])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V322*/ curfptr[321]); BASILYS_LOCATION("warmelt-outobj.melt:1477:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V320*/ curfptr[319]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V323*/ curfptr[322])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V323*/ curfptr[322])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V320*/ curfptr[319]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V323*/ curfptr[322]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323])))); ((basilysobject_ptr_t)(/*_.VALDATA___V324*/ curfptr[323]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V325*/ curfptr[324]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V324*/ curfptr[323]); BASILYS_LOCATION("warmelt-outobj.melt:1534:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V326*/ curfptr[325])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_206__OUTPUCOD_OBJEXIT#0", NULL != (/*_.CLASS_OBJEXIT__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V326*/ curfptr[325])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJEXIT__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-outobj.melt:1534:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V326*/ curfptr[325])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_206__OUTPUCOD_OBJEXIT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V326*/ curfptr[325])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1534:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V326*/ curfptr[325])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_206__OUTPUCOD_OBJEXIT#2", NULL != (/*_.CLASS_CLONEDSYMBOL__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V326*/ curfptr[325])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CLONEDSYMBOL__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-outobj.melt:1534:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V326*/ curfptr[325])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V326*/ curfptr[325])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1534:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V326*/ curfptr[325])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V317*/ curfptr[316]); ((basilysroutine_ptr_t)/*_.VALROUT___V326*/ curfptr[325])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V317*/ curfptr[316]); BASILYS_LOCATION("warmelt-outobj.melt:1534:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V326*/ curfptr[325]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V327*/ curfptr[326])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V326*/ curfptr[325])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V327*/ curfptr[326])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V326*/ curfptr[325]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V327*/ curfptr[326]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327])))); ((basilysobject_ptr_t)(/*_.VALDATA___V328*/ curfptr[327]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V329*/ curfptr[328]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V328*/ curfptr[327]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#0", NULL != (/*_.CLASS_OBJCOMPUTE__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCOMPUTE__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#2", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#4", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[4] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1564:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V331*/ curfptr[330])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_214__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V331*/ curfptr[330])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1564:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V331*/ curfptr[330]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#6", NULL != (/*_.VALROUT___V331*/ curfptr[330])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V331*/ curfptr[330]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[7] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1573:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V332*/ curfptr[331])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_215__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V332*/ curfptr[331])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1573:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V332*/ curfptr[331]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#8", NULL != (/*_.VALROUT___V332*/ curfptr[331])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V332*/ curfptr[331]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#9", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[9] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#10", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[10] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1580:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V333*/ curfptr[332])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_216__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V333*/ curfptr[332])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1580:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V333*/ curfptr[332]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#11", NULL != (/*_.VALROUT___V333*/ curfptr[332])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V333*/ curfptr[332]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_210__OUTPUCOD_OBJCOMPUTE#12", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V330*/ curfptr[329])->tabval[12] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1552:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V330*/ curfptr[329]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V334*/ curfptr[333])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V330*/ curfptr[329])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V334*/ curfptr[333])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V330*/ curfptr[329]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V334*/ curfptr[333]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])))); ((basilysobject_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V336*/ curfptr[335]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V335*/ curfptr[334]); BASILYS_LOCATION("warmelt-outobj.melt:1591:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V337*/ curfptr[336])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJCOND#0", NULL != (/*_.CLASS_OBJCOND__V61*/ curfptr[60])); ((basilysroutine_ptr_t)/*_.VALROUT___V337*/ curfptr[336])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCOND__V61*/ curfptr[60]); BASILYS_LOCATION("warmelt-outobj.melt:1591:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V337*/ curfptr[336])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJCOND#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V337*/ curfptr[336])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1591:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V337*/ curfptr[336])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V337*/ curfptr[336])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1591:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V337*/ curfptr[336])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJCOND#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V337*/ curfptr[336])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1591:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V337*/ curfptr[336])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJCOND#4", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V337*/ curfptr[336])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.melt:1591:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V337*/ curfptr[336]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V338*/ curfptr[337])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V337*/ curfptr[336])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V338*/ curfptr[337])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V337*/ curfptr[336]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V338*/ curfptr[337]); /*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.melt:1633:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V341*/ curfptr[340])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCPPIF#0", NULL != (/*_.CLASS_OBJCPPIF__V62*/ curfptr[61])); ((basilysroutine_ptr_t)/*_.VALROUT___V341*/ curfptr[340])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCPPIF__V62*/ curfptr[61]); BASILYS_LOCATION("warmelt-outobj.melt:1633:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V341*/ curfptr[340])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCPPIF#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.melt:1633:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V341*/ curfptr[340])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V166*/ curfptr[165]); ((basilysroutine_ptr_t)/*_.VALROUT___V341*/ curfptr[340])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V166*/ curfptr[165]); BASILYS_LOCATION("warmelt-outobj.melt:1633:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V341*/ curfptr[340])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V341*/ curfptr[340])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1633:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V341*/ curfptr[340])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCPPIF#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.melt:1633:/ 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]); BASILYS_LOCATION("warmelt-outobj.melt:1665:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V345*/ curfptr[344])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_225__OUTPUCOD_OBJINTERNSYMBOL#0", NULL != (/*_.CLASS_OBJINTERNSYMBOL__V63*/ curfptr[62])); ((basilysroutine_ptr_t)/*_.VALROUT___V345*/ curfptr[344])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINTERNSYMBOL__V63*/ curfptr[62]); BASILYS_LOCATION("warmelt-outobj.melt:1665:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V345*/ curfptr[344])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_225__OUTPUCOD_OBJINTERNSYMBOL#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V345*/ curfptr[344])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1665:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V345*/ curfptr[344])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_225__OUTPUCOD_OBJINTERNSYMBOL#2", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V345*/ curfptr[344])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]); BASILYS_LOCATION("warmelt-outobj.melt:1665:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V345*/ curfptr[344])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_225__OUTPUCOD_OBJINTERNSYMBOL#3", NULL != (/*_.CLASS_NREP_DATASYMBOL__V64*/ curfptr[63])); ((basilysroutine_ptr_t)/*_.VALROUT___V345*/ curfptr[344])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V64*/ curfptr[63]); BASILYS_LOCATION("warmelt-outobj.melt:1665:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V345*/ curfptr[344])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V345*/ curfptr[344])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1665:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V345*/ curfptr[344])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_225__OUTPUCOD_OBJINTERNSYMBOL#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V345*/ curfptr[344])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1665:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V345*/ curfptr[344]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V346*/ curfptr[345])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V345*/ curfptr[344])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V346*/ curfptr[345])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V345*/ curfptr[344]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V346*/ curfptr[345]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346])))); ((basilysobject_ptr_t)(/*_.VALDATA___V347*/ curfptr[346]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V348*/ curfptr[347]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V347*/ curfptr[346]); /*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.melt:1689:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_231__OUTPUCOD_OBJINTERNKEYWORD#0", NULL != (/*_.CLASS_OBJINTERNKEYWORD__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINTERNKEYWORD__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-outobj.melt:1689:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_231__OUTPUCOD_OBJINTERNKEYWORD#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.melt:1689:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_231__OUTPUCOD_OBJINTERNKEYWORD#2", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V66*/ curfptr[65])); ((basilysroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V66*/ curfptr[65]); BASILYS_LOCATION("warmelt-outobj.melt:1689:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1689:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_231__OUTPUCOD_OBJINTERNKEYWORD#4", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[4] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1689:/ 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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354])))); ((basilysobject_ptr_t)(/*_.VALDATA___V355*/ curfptr[354]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V356*/ curfptr[355]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V355*/ curfptr[354]); BASILYS_LOCATION("warmelt-outobj.melt:1712:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL#0", NULL != (/*_.CLASS_OBJGETNAMEDSYMBOL__V67*/ curfptr[66])); ((basilysroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJGETNAMEDSYMBOL__V67*/ curfptr[66]); BASILYS_LOCATION("warmelt-outobj.melt:1712:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1712:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL#2", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]); BASILYS_LOCATION("warmelt-outobj.melt:1712:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL#3", NULL != (/*_.CLASS_NREP_DATASYMBOL__V64*/ curfptr[63])); ((basilysroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V64*/ curfptr[63]); BASILYS_LOCATION("warmelt-outobj.melt:1712:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1712:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJGETNAMEDSYMBOL#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1712:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V357*/ curfptr[356]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V358*/ curfptr[357])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V358*/ curfptr[357])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V357*/ curfptr[356]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V358*/ curfptr[357]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358])))); ((basilysobject_ptr_t)(/*_.VALDATA___V359*/ curfptr[358]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V360*/ curfptr[359]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V359*/ curfptr[358]); BASILYS_LOCATION("warmelt-outobj.melt:1750:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD#0", NULL != (/*_.CLASS_OBJGETNAMEDKEYWORD__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJGETNAMEDKEYWORD__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-outobj.melt:1750:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1750:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD#2", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]); BASILYS_LOCATION("warmelt-outobj.melt:1750:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD#3", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V66*/ curfptr[65])); ((basilysroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V66*/ curfptr[65]); BASILYS_LOCATION("warmelt-outobj.melt:1750:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1750:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_241__OUTPUCOD_OBJGETNAMEDKEYWORD#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1750:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V361*/ curfptr[360]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V362*/ curfptr[361])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V362*/ curfptr[361])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V361*/ curfptr[360]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V362*/ curfptr[361]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])))); ((basilysobject_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V364*/ curfptr[363]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V363*/ curfptr[362]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#0", NULL != (/*_.CLASS_OBJAPPLY__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJAPPLY__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#2", NULL != (/*_.DISCR_LIST__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#6", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[6] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#7", NULL != (/*_.CLASS_OBJINSTR__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_OBJINSTR__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#8", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[8] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#9", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#11", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#12", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[12] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#13", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[13] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1811:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V366*/ curfptr[365])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_251__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V366*/ curfptr[365])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1811:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V366*/ curfptr[365])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_251__LAMBDA_#1", NULL != (/*_.CLASS_OBJINSTR__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V366*/ curfptr[365])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJINSTR__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-outobj.melt:1811:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V366*/ curfptr[365])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_251__LAMBDA_#2", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V366*/ curfptr[365])->tabval[2] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:1811:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V366*/ curfptr[365])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_251__LAMBDA_#3", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V366*/ curfptr[365])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:1811:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V366*/ curfptr[365])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V366*/ curfptr[365])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1811:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V366*/ curfptr[365])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_251__LAMBDA_#5", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V366*/ curfptr[365])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-outobj.melt:1811:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V366*/ curfptr[365])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_251__LAMBDA_#6", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V366*/ curfptr[365])->tabval[6] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:1811:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V366*/ curfptr[365])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_251__LAMBDA_#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V366*/ curfptr[365])->tabval[7] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1811:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V366*/ curfptr[365]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#14", NULL != (/*_.VALROUT___V366*/ curfptr[365])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V366*/ curfptr[365]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#15", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[15] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#16", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[16] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1844:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V367*/ curfptr[366])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_256__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V367*/ curfptr[366])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1844:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V367*/ curfptr[366]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#17", NULL != (/*_.VALROUT___V367*/ curfptr[366])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[17] = (basilys_ptr_t)(/*_.VALROUT___V367*/ curfptr[366]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#18", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[18] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_245__OUTPUCOD_OBJAPPLY#19", NULL != (/*_.VALROUT___V368*/ curfptr[367])); ((basilysroutine_ptr_t)/*_.VALROUT___V365*/ curfptr[364])->tabval[19] = (basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367]); BASILYS_LOCATION("warmelt-outobj.melt:1785:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V365*/ curfptr[364]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V369*/ curfptr[368])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V365*/ curfptr[364])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V369*/ curfptr[368])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V365*/ curfptr[364]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V369*/ curfptr[368]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])))); ((basilysobject_ptr_t)(/*_.VALDATA___V370*/ curfptr[369]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V371*/ curfptr[370]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V370*/ curfptr[369]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V372*/ curfptr[371])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V372*/ curfptr[371])))); ((basilysobject_ptr_t)(/*_.VALDATA___V372*/ curfptr[371]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V373*/ curfptr[372]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V372*/ curfptr[371]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373])))); ((basilysobject_ptr_t)(/*_.VALDATA___V374*/ curfptr[373]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V375*/ curfptr[374]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V374*/ curfptr[373]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])))); ((basilysobject_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V377*/ curfptr[376]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V376*/ curfptr[375]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#0", NULL != (/*_.CLASS_OBJMSEND__V73*/ curfptr[72])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJMSEND__V73*/ curfptr[72]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#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.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#2", NULL != (/*_.DISCR_LIST__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#6", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[6] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#7", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[7] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#8", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#10", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#11", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[11] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#12", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[12] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1908:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V379*/ curfptr[378])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_262__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V379*/ curfptr[378])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:1908:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V379*/ curfptr[378])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_262__LAMBDA_#1", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V379*/ curfptr[378])->tabval[1] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:1908:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V379*/ curfptr[378])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_262__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V379*/ curfptr[378])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:1908:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V379*/ curfptr[378])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V379*/ curfptr[378])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1908:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V379*/ curfptr[378])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_262__LAMBDA_#4", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V379*/ curfptr[378])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-outobj.melt:1908:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V379*/ curfptr[378])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_262__LAMBDA_#5", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V379*/ curfptr[378])->tabval[5] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:1908:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V379*/ curfptr[378])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_262__LAMBDA_#6", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V379*/ curfptr[378])->tabval[6] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1908:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V379*/ curfptr[378]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#13", NULL != (/*_.VALROUT___V379*/ curfptr[378])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[13] = (basilys_ptr_t)(/*_.VALROUT___V379*/ curfptr[378]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#14", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[14] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#15", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[15] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1940:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V380*/ curfptr[379])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_263__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V380*/ curfptr[379])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1940:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V380*/ curfptr[379]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#16", NULL != (/*_.VALROUT___V380*/ curfptr[379])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[16] = (basilys_ptr_t)(/*_.VALROUT___V380*/ curfptr[379]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#17", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[17] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_258__OUTPUCOD_OBJMSEND#18", NULL != (/*_.VALROUT___V381*/ curfptr[380])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[18] = (basilys_ptr_t)(/*_.VALROUT___V381*/ curfptr[380]); BASILYS_LOCATION("warmelt-outobj.melt:1879:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V378*/ curfptr[377]); /*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___V378*/ curfptr[377])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V382*/ curfptr[381])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V378*/ curfptr[377]); /*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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#0", NULL != (/*_.CLASS_OBJMULTIAPPLY__V74*/ curfptr[73])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJMULTIAPPLY__V74*/ curfptr[73]); BASILYS_LOCATION("warmelt-outobj.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#2", NULL != (/*_.DISCR_LIST__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#6", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[6] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:2017:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V386*/ curfptr[385])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_269__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V386*/ curfptr[385])->tabval[0] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:2017:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V386*/ curfptr[385]); BASILYS_LOCATION("warmelt-outobj.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#9", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[9] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:2027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_270__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.melt:2027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_270__LAMBDA_#1", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V387*/ curfptr[386])->tabval[1] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:2027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_270__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.melt:2027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V387*/ curfptr[386])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_270__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.melt:2027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_270__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.melt:2027:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V387*/ curfptr[386]); BASILYS_LOCATION("warmelt-outobj.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#15", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[15] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:2059:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_271__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[0] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:2059:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_271__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.melt:2059:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_271__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.melt:2059:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2059:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_271__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.melt:2059:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_271__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.melt:2059:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V388*/ curfptr[387]); BASILYS_LOCATION("warmelt-outobj.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:2088:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V389*/ curfptr[388])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_272__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.melt:2088:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V389*/ curfptr[388]); BASILYS_LOCATION("warmelt-outobj.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_265__OUTPUCOD_OBJMULTIAPPLY#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.melt:1970:/ 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.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#0", NULL != (/*_.CLASS_OBJMULTIMSEND__V75*/ curfptr[74])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJMULTIMSEND__V75*/ curfptr[74]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#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.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#2", NULL != (/*_.DISCR_LIST__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#6", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[6] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:2168:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_279__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[0] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:2168:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V396*/ curfptr[395]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#7", NULL != (/*_.VALROUT___V396*/ curfptr[395])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V396*/ curfptr[395]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#8", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[8] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#9", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[9] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#10", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#12", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[12] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#13", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[13] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2186:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_280__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2186:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_280__LAMBDA_#1", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[1] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:2186:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_280__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:2186:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2186:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_280__LAMBDA_#4", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:2186:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_280__LAMBDA_#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2186:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V397*/ curfptr[396]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#14", NULL != (/*_.VALROUT___V397*/ curfptr[396])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V397*/ curfptr[396]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#15", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[15] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#16", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[16] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#17", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#19", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[19] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#20", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[20] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2217:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V398*/ curfptr[397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_281__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V398*/ curfptr[397])->tabval[0] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:2217:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V398*/ curfptr[397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_281__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V398*/ curfptr[397])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2217:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V398*/ curfptr[397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_281__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V398*/ curfptr[397])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:2217:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V398*/ curfptr[397])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V398*/ curfptr[397])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2217:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V398*/ curfptr[397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_281__LAMBDA_#4", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V398*/ curfptr[397])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:2217:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V398*/ curfptr[397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_281__LAMBDA_#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V398*/ curfptr[397])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2217:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V398*/ curfptr[397]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#21", NULL != (/*_.VALROUT___V398*/ curfptr[397])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V398*/ curfptr[397]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#22", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[22] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#23", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[23] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2246:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_282__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V399*/ curfptr[398])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2246:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V399*/ curfptr[398]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#24", NULL != (/*_.VALROUT___V399*/ curfptr[398])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[24] = (basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#25", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[25] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#26", NULL != (/*_.VALROUT___V400*/ curfptr[399])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[26] = (basilys_ptr_t)(/*_.VALROUT___V400*/ curfptr[399]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_OBJMULTIMSEND#27", NULL != (/*_.VALROUT___V401*/ curfptr[400])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[27] = (basilys_ptr_t)(/*_.VALROUT___V401*/ curfptr[400]); BASILYS_LOCATION("warmelt-outobj.melt:2134:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V395*/ curfptr[394]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V402*/ curfptr[401])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V402*/ curfptr[401])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V395*/ curfptr[394]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V402*/ curfptr[401]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402])))); ((basilysobject_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V404*/ curfptr[403]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V403*/ curfptr[402]); BASILYS_LOCATION("warmelt-outobj.melt:2288:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V405*/ curfptr[404])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_285__OUTPUCOD_OBJCLEAR#0", NULL != (/*_.CLASS_OBJCLEAR__V76*/ curfptr[75])); ((basilysroutine_ptr_t)/*_.VALROUT___V405*/ curfptr[404])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCLEAR__V76*/ curfptr[75]); BASILYS_LOCATION("warmelt-outobj.melt:2288:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V405*/ curfptr[404])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_285__OUTPUCOD_OBJCLEAR#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V405*/ curfptr[404])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2288:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V405*/ curfptr[404])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V405*/ curfptr[404])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2288:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V405*/ curfptr[404])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_285__OUTPUCOD_OBJCLEAR#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V405*/ curfptr[404])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2288:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V405*/ curfptr[404]); /*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___V405*/ curfptr[404])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V406*/ curfptr[405])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V405*/ curfptr[404]); /*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.melt:2303:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_289__OUTPUCOD_OBJRAWALLOCOBJ#0", NULL != (/*_.CLASS_OBJRAWALLOCOBJ__V77*/ curfptr[76])); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJRAWALLOCOBJ__V77*/ curfptr[76]); BASILYS_LOCATION("warmelt-outobj.melt:2303:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_289__OUTPUCOD_OBJRAWALLOCOBJ#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2303:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_289__OUTPUCOD_OBJRAWALLOCOBJ#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:2303:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_289__OUTPUCOD_OBJRAWALLOCOBJ#3", NULL != (/*_.CLASS_OBJVALUE__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_OBJVALUE__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-outobj.melt:2303:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2303:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_289__OUTPUCOD_OBJRAWALLOCOBJ#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2303:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_289__OUTPUCOD_OBJRAWALLOCOBJ#6", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[6] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:2303:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_289__OUTPUCOD_OBJRAWALLOCOBJ#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[7] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2326:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V410*/ curfptr[409])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_293__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V410*/ curfptr[409])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2326:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V410*/ curfptr[409]); BASILYS_LOCATION("warmelt-outobj.melt:2303:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_289__OUTPUCOD_OBJRAWALLOCOBJ#8", NULL != (/*_.VALROUT___V410*/ curfptr[409])); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V410*/ curfptr[409]); BASILYS_LOCATION("warmelt-outobj.melt:2303:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V409*/ curfptr[408]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V411*/ curfptr[410])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V411*/ curfptr[410])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V409*/ curfptr[408]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V411*/ curfptr[410]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])))); ((basilysobject_ptr_t)(/*_.VALDATA___V412*/ curfptr[411]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V413*/ curfptr[412]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V412*/ curfptr[411]); BASILYS_LOCATION("warmelt-outobj.melt:2337:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_294__OUTPUCOD_OBJNEWCLOSURE#0", NULL != (/*_.CLASS_OBJNEWCLOSURE__V78*/ curfptr[77])); ((basilysroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJNEWCLOSURE__V78*/ curfptr[77]); BASILYS_LOCATION("warmelt-outobj.melt:2337:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_294__OUTPUCOD_OBJNEWCLOSURE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2337:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_294__OUTPUCOD_OBJNEWCLOSURE#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:2337:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2337:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_294__OUTPUCOD_OBJNEWCLOSURE#4", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[4] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:2337:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_294__OUTPUCOD_OBJNEWCLOSURE#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V415*/ curfptr[414])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_298__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V415*/ curfptr[414])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2351:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V415*/ curfptr[414]); BASILYS_LOCATION("warmelt-outobj.melt:2337:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_294__OUTPUCOD_OBJNEWCLOSURE#6", NULL != (/*_.VALROUT___V415*/ curfptr[414])); ((basilysroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V415*/ curfptr[414]); BASILYS_LOCATION("warmelt-outobj.melt:2337:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_294__OUTPUCOD_OBJNEWCLOSURE#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[7] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2337:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V414*/ curfptr[413]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V416*/ curfptr[415])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V416*/ curfptr[415])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V414*/ curfptr[413]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V416*/ curfptr[415]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416])))); ((basilysobject_ptr_t)(/*_.VALDATA___V417*/ curfptr[416]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V418*/ curfptr[417]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V417*/ curfptr[416]); BASILYS_LOCATION("warmelt-outobj.melt:2367:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V419*/ curfptr[418])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_299__OUTPUCOD_OBJTOUCH#0", NULL != (/*_.CLASS_OBJTOUCH__V79*/ curfptr[78])); ((basilysroutine_ptr_t)/*_.VALROUT___V419*/ curfptr[418])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJTOUCH__V79*/ curfptr[78]); BASILYS_LOCATION("warmelt-outobj.melt:2367:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V419*/ curfptr[418])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V419*/ curfptr[418])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2367:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V419*/ curfptr[418])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_299__OUTPUCOD_OBJTOUCH#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V419*/ curfptr[418])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2367:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V419*/ curfptr[418]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V420*/ curfptr[419])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V419*/ curfptr[418])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V420*/ curfptr[419])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V419*/ curfptr[418]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V420*/ curfptr[419]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V421*/ curfptr[420])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V421*/ curfptr[420])))); ((basilysobject_ptr_t)(/*_.VALDATA___V421*/ curfptr[420]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V422*/ curfptr[421]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V421*/ curfptr[420]); BASILYS_LOCATION("warmelt-outobj.melt:2392:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V423*/ curfptr[422])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_303__OUTPUCOD_OBJPUTUPLE#0", NULL != (/*_.CLASS_OBJPUTUPLE__V80*/ curfptr[79])); ((basilysroutine_ptr_t)/*_.VALROUT___V423*/ curfptr[422])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTUPLE__V80*/ curfptr[79]); BASILYS_LOCATION("warmelt-outobj.melt:2392:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V423*/ curfptr[422])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_303__OUTPUCOD_OBJPUTUPLE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V423*/ curfptr[422])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2392:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V423*/ curfptr[422])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V423*/ curfptr[422])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2392:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V423*/ curfptr[422])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_303__OUTPUCOD_OBJPUTUPLE#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V423*/ curfptr[422])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2392:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V423*/ curfptr[422]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V424*/ curfptr[423])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V423*/ curfptr[422])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V424*/ curfptr[423])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V423*/ curfptr[422]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V424*/ curfptr[423]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V425*/ curfptr[424])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V425*/ curfptr[424])))); ((basilysobject_ptr_t)(/*_.VALDATA___V425*/ curfptr[424]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V426*/ curfptr[425]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V425*/ curfptr[424]); BASILYS_LOCATION("warmelt-outobj.melt:2427:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_307__OUTPUCOD_OBJGETSLOT#0", NULL != (/*_.CLASS_OBJGETSLOT__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJGETSLOT__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-outobj.melt:2427:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_307__OUTPUCOD_OBJGETSLOT#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:2427:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_307__OUTPUCOD_OBJGETSLOT#2", NULL != (/*_.CLASS_FIELD__V82*/ curfptr[81])); ((basilysroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_FIELD__V82*/ curfptr[81]); BASILYS_LOCATION("warmelt-outobj.melt:2427:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_307__OUTPUCOD_OBJGETSLOT#3", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2427:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2427:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_307__OUTPUCOD_OBJGETSLOT#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2427:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_307__OUTPUCOD_OBJGETSLOT#6", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[6] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:2427:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_307__OUTPUCOD_OBJGETSLOT#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[7] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2449:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V428*/ curfptr[427])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_313__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V428*/ curfptr[427])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2449:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V428*/ curfptr[427]); BASILYS_LOCATION("warmelt-outobj.melt:2427:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_307__OUTPUCOD_OBJGETSLOT#8", NULL != (/*_.VALROUT___V428*/ curfptr[427])); ((basilysroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V428*/ curfptr[427]); BASILYS_LOCATION("warmelt-outobj.melt:2427:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V427*/ curfptr[426]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V429*/ curfptr[428])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V429*/ curfptr[428])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V427*/ curfptr[426]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V429*/ curfptr[428]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])))); ((basilysobject_ptr_t)(/*_.VALDATA___V430*/ curfptr[429]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V431*/ curfptr[430]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V430*/ curfptr[429]); /*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.melt:2458:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_314__OUTPUCOD_OBJPUTSLOT#0", NULL != (/*_.CLASS_OBJPUTSLOT__V83*/ curfptr[82])); ((basilysroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTSLOT__V83*/ curfptr[82]); BASILYS_LOCATION("warmelt-outobj.melt:2458:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_314__OUTPUCOD_OBJPUTSLOT#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.melt:2458:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_314__OUTPUCOD_OBJPUTSLOT#2", NULL != (/*_.CLASS_NREP__V84*/ curfptr[83])); ((basilysroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NREP__V84*/ curfptr[83]); BASILYS_LOCATION("warmelt-outobj.melt:2458:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2458:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_314__OUTPUCOD_OBJPUTSLOT#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.melt:2458:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_314__OUTPUCOD_OBJPUTSLOT#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2458:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_314__OUTPUCOD_OBJPUTSLOT#6", NULL != (/*_.CLASS_FIELD__V82*/ curfptr[81])); ((basilysroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_FIELD__V82*/ curfptr[81]); BASILYS_LOCATION("warmelt-outobj.melt:2458:/ 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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])))); ((basilysobject_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V439*/ curfptr[438]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V438*/ curfptr[437]); BASILYS_LOCATION("warmelt-outobj.melt:2518:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V440*/ curfptr[439])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_320__OUTPUCOD_OBJPUTCLOSUROUT#0", NULL != (/*_.CLASS_OBJPUTCLOSUROUT__V85*/ curfptr[84])); ((basilysroutine_ptr_t)/*_.VALROUT___V440*/ curfptr[439])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSUROUT__V85*/ curfptr[84]); BASILYS_LOCATION("warmelt-outobj.melt:2518:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V440*/ curfptr[439])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_320__OUTPUCOD_OBJPUTCLOSUROUT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V440*/ curfptr[439])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2518:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V440*/ curfptr[439])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V440*/ curfptr[439])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2518:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V440*/ curfptr[439])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_320__OUTPUCOD_OBJPUTCLOSUROUT#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V440*/ curfptr[439])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2518:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V440*/ curfptr[439]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V441*/ curfptr[440])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V440*/ curfptr[439])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V441*/ curfptr[440])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V440*/ curfptr[439]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V441*/ curfptr[440]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V442*/ curfptr[441])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V442*/ curfptr[441])))); ((basilysobject_ptr_t)(/*_.VALDATA___V442*/ curfptr[441]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V443*/ curfptr[442]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V442*/ curfptr[441]); BASILYS_LOCATION("warmelt-outobj.melt:2546:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V444*/ curfptr[443])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_324__OUTPUCOD_OBJPUTCLOSEDV#0", NULL != (/*_.CLASS_OBJPUTCLOSEDV__V86*/ curfptr[85])); ((basilysroutine_ptr_t)/*_.VALROUT___V444*/ curfptr[443])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSEDV__V86*/ curfptr[85]); BASILYS_LOCATION("warmelt-outobj.melt:2546:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V444*/ curfptr[443])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_324__OUTPUCOD_OBJPUTCLOSEDV#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V444*/ curfptr[443])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2546:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V444*/ curfptr[443])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V444*/ curfptr[443])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2546:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V444*/ curfptr[443])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_324__OUTPUCOD_OBJPUTCLOSEDV#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V444*/ curfptr[443])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2546:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V444*/ curfptr[443]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V445*/ curfptr[444])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V444*/ curfptr[443])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V445*/ curfptr[444])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V444*/ curfptr[443]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V445*/ curfptr[444]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V446*/ curfptr[445])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V446*/ curfptr[445])))); ((basilysobject_ptr_t)(/*_.VALDATA___V446*/ curfptr[445]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V447*/ curfptr[446]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V446*/ curfptr[445]); BASILYS_LOCATION("warmelt-outobj.melt:2581:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V448*/ curfptr[447])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_328__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#0", NULL != (/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V87*/ curfptr[86])); ((basilysroutine_ptr_t)/*_.VALROUT___V448*/ curfptr[447])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V87*/ curfptr[86]); BASILYS_LOCATION("warmelt-outobj.melt:2581:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V448*/ curfptr[447])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_328__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V448*/ curfptr[447])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2581:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V448*/ curfptr[447])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V448*/ curfptr[447])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2581:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V448*/ curfptr[447])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_328__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V448*/ curfptr[447])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2581:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V448*/ curfptr[447]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V449*/ curfptr[448])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V448*/ curfptr[447])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V449*/ curfptr[448])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V448*/ curfptr[447]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V449*/ curfptr[448]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449])))); ((basilysobject_ptr_t)(/*_.VALDATA___V450*/ curfptr[449]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V451*/ curfptr[450]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V450*/ curfptr[449]); BASILYS_LOCATION("warmelt-outobj.melt:2620:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V452*/ curfptr[451])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJPUTROUTCONST#0", NULL != (/*_.CLASS_OBJPUTROUTCONST__V88*/ curfptr[87])); ((basilysroutine_ptr_t)/*_.VALROUT___V452*/ curfptr[451])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTROUTCONST__V88*/ curfptr[87]); BASILYS_LOCATION("warmelt-outobj.melt:2620:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V452*/ curfptr[451])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJPUTROUTCONST#1", NULL != (/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V452*/ curfptr[451])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-outobj.melt:2620:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V452*/ curfptr[451])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V452*/ curfptr[451])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2620:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V452*/ curfptr[451])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJPUTROUTCONST#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V452*/ curfptr[451])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2620:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V452*/ curfptr[451]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V453*/ curfptr[452])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V452*/ curfptr[451])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V453*/ curfptr[452])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V452*/ curfptr[451]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V453*/ curfptr[452]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V454*/ curfptr[453])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V454*/ curfptr[453])))); ((basilysobject_ptr_t)(/*_.VALDATA___V454*/ curfptr[453]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V455*/ curfptr[454]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V454*/ curfptr[453]); BASILYS_LOCATION("warmelt-outobj.melt:2657:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJPUTROUTCONSTNOTNULL#0", NULL != (/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V89*/ curfptr[88])); ((basilysroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V89*/ curfptr[88]); BASILYS_LOCATION("warmelt-outobj.melt:2657:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2657:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJPUTROUTCONSTNOTNULL#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2657:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V456*/ curfptr[455]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V457*/ curfptr[456])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V457*/ curfptr[456])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V456*/ curfptr[455]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V457*/ curfptr[456]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457])))); ((basilysobject_ptr_t)(/*_.VALDATA___V458*/ curfptr[457]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V459*/ curfptr[458]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V458*/ curfptr[457]); BASILYS_LOCATION("warmelt-outobj.melt:2690:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V460*/ curfptr[459])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJPUTXTRARESULT#0", NULL != (/*_.CLASS_OBJPUTXTRARESULT__V90*/ curfptr[89])); ((basilysroutine_ptr_t)/*_.VALROUT___V460*/ curfptr[459])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTXTRARESULT__V90*/ curfptr[89]); BASILYS_LOCATION("warmelt-outobj.melt:2690:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V460*/ curfptr[459])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJPUTXTRARESULT#1", NULL != (/*_.GET_CTYPE__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V460*/ curfptr[459])->tabval[1] = (basilys_ptr_t)(/*_.GET_CTYPE__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.melt:2690:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V460*/ curfptr[459])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V460*/ curfptr[459])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2690:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V460*/ curfptr[459])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJPUTXTRARESULT#3", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V460*/ curfptr[459])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.melt:2690:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V460*/ curfptr[459])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJPUTXTRARESULT#4", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V460*/ curfptr[459])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.melt:2690:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V460*/ curfptr[459])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJPUTXTRARESULT#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V460*/ curfptr[459])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2690:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V460*/ curfptr[459]); /*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___V460*/ curfptr[459])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V461*/ curfptr[460])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V460*/ curfptr[459]); /*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.melt:2725:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V464*/ curfptr[463])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_344__OUTPUCOD_OBJEXPV#0", NULL != (/*_.CLASS_OBJEXPV__V91*/ curfptr[90])); ((basilysroutine_ptr_t)/*_.VALROUT___V464*/ curfptr[463])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJEXPV__V91*/ curfptr[90]); BASILYS_LOCATION("warmelt-outobj.melt:2725:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V464*/ curfptr[463])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_344__OUTPUCOD_OBJEXPV#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V464*/ curfptr[463])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:2725:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V464*/ curfptr[463])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_344__OUTPUCOD_OBJEXPV#2", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V464*/ curfptr[463])->tabval[2] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.melt:2725:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V464*/ curfptr[463])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_344__OUTPUCOD_OBJEXPV#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V464*/ curfptr[463])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2733:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V465*/ curfptr[464])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_348__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V465*/ curfptr[464])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2733:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V465*/ curfptr[464]); BASILYS_LOCATION("warmelt-outobj.melt:2725:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V464*/ curfptr[463])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_344__OUTPUCOD_OBJEXPV#4", NULL != (/*_.VALROUT___V465*/ curfptr[464])); ((basilysroutine_ptr_t)/*_.VALROUT___V464*/ curfptr[463])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V465*/ curfptr[464]); BASILYS_LOCATION("warmelt-outobj.melt:2725:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V464*/ curfptr[463]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V466*/ curfptr[465])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V464*/ curfptr[463])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V466*/ curfptr[465])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V464*/ curfptr[463]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V466*/ curfptr[465]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V467*/ curfptr[466])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V467*/ curfptr[466])))); ((basilysobject_ptr_t)(/*_.VALDATA___V467*/ curfptr[466]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V468*/ curfptr[467]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V467*/ curfptr[466]); BASILYS_LOCATION("warmelt-outobj.melt:2739:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V469*/ curfptr[468])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_349__OUTPUCOD_OBJLOCATEDEXPV#0", NULL != (/*_.CLASS_OBJLOCATEDEXPV__V92*/ curfptr[91])); ((basilysroutine_ptr_t)/*_.VALROUT___V469*/ curfptr[468])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJLOCATEDEXPV__V92*/ curfptr[91]); BASILYS_LOCATION("warmelt-outobj.melt:2739:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V469*/ curfptr[468])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_349__OUTPUCOD_OBJLOCATEDEXPV#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V469*/ curfptr[468])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:2739:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V469*/ curfptr[468])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V166*/ curfptr[165]); ((basilysroutine_ptr_t)/*_.VALROUT___V469*/ curfptr[468])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V166*/ curfptr[165]); BASILYS_LOCATION("warmelt-outobj.melt:2739:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V469*/ curfptr[468])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_349__OUTPUCOD_OBJLOCATEDEXPV#3", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V469*/ curfptr[468])->tabval[3] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.melt:2739:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V469*/ curfptr[468])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_349__OUTPUCOD_OBJLOCATEDEXPV#4", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V469*/ curfptr[468])->tabval[4] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2751:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V470*/ curfptr[469])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_353__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V470*/ curfptr[469])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2751:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V470*/ curfptr[469]); BASILYS_LOCATION("warmelt-outobj.melt:2739:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V469*/ curfptr[468])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_349__OUTPUCOD_OBJLOCATEDEXPV#5", NULL != (/*_.VALROUT___V470*/ curfptr[469])); ((basilysroutine_ptr_t)/*_.VALROUT___V469*/ curfptr[468])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V470*/ curfptr[469]); BASILYS_LOCATION("warmelt-outobj.melt:2739:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___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___V469*/ curfptr[468])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V471*/ curfptr[470])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V469*/ curfptr[468]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V471*/ curfptr[470]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V472*/ curfptr[471])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V472*/ curfptr[471])))); ((basilysobject_ptr_t)(/*_.VALDATA___V472*/ curfptr[471]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V473*/ curfptr[472]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V472*/ curfptr[471]); BASILYS_LOCATION("warmelt-outobj.melt:2757:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V474*/ curfptr[473])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_354__OUTPUCOD_VERBATIMSTRING#0", NULL != (/*_.DISCR_VERBATIMSTRING__V93*/ curfptr[92])); ((basilysroutine_ptr_t)/*_.VALROUT___V474*/ curfptr[473])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V93*/ curfptr[92]); BASILYS_LOCATION("warmelt-outobj.melt:2757:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V474*/ curfptr[473]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V475*/ curfptr[474])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V474*/ curfptr[473])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V475*/ curfptr[474])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V474*/ curfptr[473]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V475*/ curfptr[474]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475])))); ((basilysobject_ptr_t)(/*_.VALDATA___V476*/ curfptr[475]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V477*/ curfptr[476]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V476*/ curfptr[475]); BASILYS_LOCATION("warmelt-outobj.melt:2768:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V478*/ curfptr[477])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_358__OUTPUCOD_STRING#0", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V478*/ curfptr[477])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.melt:2768:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V478*/ curfptr[477]); /*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___V478*/ curfptr[477])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V479*/ curfptr[478])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V478*/ curfptr[477]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V479*/ curfptr[478]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V481*/ curfptr[480])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V480*/ curfptr[479])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V481*/ curfptr[480])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V480*/ curfptr[479]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V481*/ curfptr[480]); BASILYS_LOCATION("warmelt-outobj.melt:2787:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V482*/ curfptr[481])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_362__OUTPUCOD_FINALRETURN#0", NULL != (/*_.CLASS_OBJFINALRETURN__V94*/ curfptr[93])); ((basilysroutine_ptr_t)/*_.VALROUT___V482*/ curfptr[481])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJFINALRETURN__V94*/ curfptr[93]); BASILYS_LOCATION("warmelt-outobj.melt:2787:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V482*/ curfptr[481])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V482*/ curfptr[481])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.melt:2787:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V482*/ curfptr[481]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V483*/ curfptr[482])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V482*/ curfptr[481])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V483*/ curfptr[482])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V482*/ curfptr[481]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V483*/ curfptr[482]); /*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.melt:2798:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_366__SORTED_NAMED_DICT_TUPLE#0", NULL != (/*_.DISCR_LIST__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_LIST__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.melt:2798:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_366__SORTED_NAMED_DICT_TUPLE#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:2798:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_366__SORTED_NAMED_DICT_TUPLE#2", NULL != (/*_.MAPSTRING_EVERY__V95*/ curfptr[94])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[2] = (basilys_ptr_t)(/*_.MAPSTRING_EVERY__V95*/ curfptr[94]); BASILYS_LOCATION("warmelt-outobj.melt:2798:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_366__SORTED_NAMED_DICT_TUPLE#3", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.melt:2806:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V487*/ curfptr[486])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_370__LAMBDA_#0", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V487*/ curfptr[486])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.melt:2806:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V487*/ curfptr[486]); BASILYS_LOCATION("warmelt-outobj.melt:2798:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_366__SORTED_NAMED_DICT_TUPLE#4", NULL != (/*_.VALROUT___V487*/ curfptr[486])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V487*/ curfptr[486]); BASILYS_LOCATION("warmelt-outobj.melt:2798:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_366__SORTED_NAMED_DICT_TUPLE#5", NULL != (/*_.LIST_TO_MULTIPLE__V96*/ curfptr[95])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[5] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V96*/ curfptr[95]); BASILYS_LOCATION("warmelt-outobj.melt:2798:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_366__SORTED_NAMED_DICT_TUPLE#6", NULL != (/*_.VALROUT___V488*/ curfptr[487])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V488*/ curfptr[487]); BASILYS_LOCATION("warmelt-outobj.melt:2798:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_366__SORTED_NAMED_DICT_TUPLE#7", NULL != (/*_.DISCR_MULTIPLE__V97*/ curfptr[96])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V97*/ curfptr[96]); BASILYS_LOCATION("warmelt-outobj.melt:2798:/ 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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])))); ((basilysobject_ptr_t)(/*_.VALDATA___V494*/ curfptr[493]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V495*/ curfptr[494]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V494*/ curfptr[493]); BASILYS_LOCATION("warmelt-outobj.melt:2822:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_376__OUTPUT_EXPORTED_OFFSETS#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V496*/ curfptr[495])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2822:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_376__OUTPUT_EXPORTED_OFFSETS#1", NULL != (/*_.CLASS_MODULCONTEXT__V98*/ curfptr[97])); ((basilysroutine_ptr_t)/*_.VALROUT___V496*/ curfptr[495])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_MODULCONTEXT__V98*/ curfptr[97]); BASILYS_LOCATION("warmelt-outobj.melt:2822:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V489*/ curfptr[488]); ((basilysroutine_ptr_t)/*_.VALROUT___V496*/ curfptr[495])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V489*/ curfptr[488]); BASILYS_LOCATION("warmelt-outobj.melt:2822:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_376__OUTPUT_EXPORTED_OFFSETS#3", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V496*/ curfptr[495])->tabval[3] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.melt:2822:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_376__OUTPUT_EXPORTED_OFFSETS#4", NULL != (/*_.CLASS_FIELD__V82*/ curfptr[81])); ((basilysroutine_ptr_t)/*_.VALROUT___V496*/ curfptr[495])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_FIELD__V82*/ curfptr[81]); BASILYS_LOCATION("warmelt-outobj.melt:2834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V497*/ curfptr[496])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_380__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V82*/ curfptr[81])); ((basilysroutine_ptr_t)/*_.VALROUT___V497*/ curfptr[496])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIELD__V82*/ curfptr[81]); BASILYS_LOCATION("warmelt-outobj.melt:2834:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V497*/ curfptr[496]); BASILYS_LOCATION("warmelt-outobj.melt:2822:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_376__OUTPUT_EXPORTED_OFFSETS#5", NULL != (/*_.VALROUT___V497*/ curfptr[496])); ((basilysroutine_ptr_t)/*_.VALROUT___V496*/ curfptr[495])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V497*/ curfptr[496]); BASILYS_LOCATION("warmelt-outobj.melt:2822:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_376__OUTPUT_EXPORTED_OFFSETS#6", NULL != (/*_.CLASS_CLASS__V99*/ curfptr[98])); ((basilysroutine_ptr_t)/*_.VALROUT___V496*/ curfptr[495])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS__V99*/ curfptr[98]); BASILYS_LOCATION("warmelt-outobj.melt:2848:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V498*/ curfptr[497])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_381__LAMBDA_#0", NULL != (/*_.CLASS_CLASS__V99*/ curfptr[98])); ((basilysroutine_ptr_t)/*_.VALROUT___V498*/ curfptr[497])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_CLASS__V99*/ curfptr[98]); BASILYS_LOCATION("warmelt-outobj.melt:2848:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V498*/ curfptr[497]); BASILYS_LOCATION("warmelt-outobj.melt:2822:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_376__OUTPUT_EXPORTED_OFFSETS#7", NULL != (/*_.VALROUT___V498*/ curfptr[497])); ((basilysroutine_ptr_t)/*_.VALROUT___V496*/ curfptr[495])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V498*/ curfptr[497]); BASILYS_LOCATION("warmelt-outobj.melt:2822:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V496*/ curfptr[495]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V499*/ curfptr[498])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V499*/ curfptr[498])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V496*/ curfptr[495]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V499*/ curfptr[498]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499])))); ((basilysobject_ptr_t)(/*_.VALDATA___V500*/ curfptr[499]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V501*/ curfptr[500]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V500*/ curfptr[499]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])))); ((basilysobject_ptr_t)(/*_.VALDATA___V502*/ curfptr[501]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V503*/ curfptr[502]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V502*/ curfptr[501]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V100*/ curfptr[99])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V100*/ curfptr[99]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#2", NULL != (/*_.CLASS_MODULCONTEXT__V98*/ curfptr[97])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_MODULCONTEXT__V98*/ curfptr[97]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#3", NULL != (/*_.DISCR_MAPSTRINGS__V101*/ curfptr[100])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_MAPSTRINGS__V101*/ curfptr[100]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#4", NULL != (/*_.CREATE_NORMCONTEXT__V102*/ curfptr[101])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[4] = (basilys_ptr_t)(/*_.CREATE_NORMCONTEXT__V102*/ curfptr[101]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#5", NULL != (/*_.CLASS_NORMCONTEXT__V103*/ curfptr[102])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V103*/ curfptr[102]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#6", NULL != (/*_.MACROEXPAND_TOPLEVEL_LIST__V104*/ curfptr[103])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[6] = (basilys_ptr_t)(/*_.MACROEXPAND_TOPLEVEL_LIST__V104*/ curfptr[103]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#7", NULL != (/*_.CLASS_SRC__V105*/ curfptr[104])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_SRC__V105*/ curfptr[104]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#8", NULL != (/*_.DISCR_STRBUF__V53*/ curfptr[52])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V53*/ curfptr[52]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#9", NULL != (/*_.CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#10", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#11", NULL != (/*_.INITIAL_ENVIRONMENT__V107*/ curfptr[106])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[11] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V107*/ curfptr[106]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#12", NULL != (/*_.CLASS_NREP_INITPROC__V108*/ curfptr[107])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_NREP_INITPROC__V108*/ curfptr[107]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#13", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[13] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#14", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[14] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#15", NULL != (/*_.CLASS_LOCATED__V109*/ curfptr[108])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_LOCATED__V109*/ curfptr[108]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#16", NULL != (/*_.CLASS_SRC_COMMENT__V110*/ curfptr[109])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_SRC_COMMENT__V110*/ curfptr[109]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#17", NULL != (/*_.NORMAL_EXP__V111*/ curfptr[110])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[17] = (basilys_ptr_t)(/*_.NORMAL_EXP__V111*/ curfptr[110]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#18", NULL != (/*_.CLASS_NREP__V84*/ curfptr[83])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_NREP__V84*/ curfptr[83]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#19", NULL != (/*_.CLASS_NREP_ANYPROC__V112*/ curfptr[111])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[19] = (basilys_ptr_t)(/*_.CLASS_NREP_ANYPROC__V112*/ curfptr[111]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#20", NULL != (/*_.WRAP_NORMAL_LET1__V113*/ curfptr[112])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[20] = (basilys_ptr_t)(/*_.WRAP_NORMAL_LET1__V113*/ curfptr[112]); BASILYS_LOCATION("warmelt-outobj.melt:2906:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V505*/ curfptr[504])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_404__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V505*/ curfptr[504])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2906:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V505*/ curfptr[504])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_404__LAMBDA_#1", NULL != (/*_.CLASS_LOCATED__V109*/ curfptr[108])); ((basilysroutine_ptr_t)/*_.VALROUT___V505*/ curfptr[504])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_LOCATED__V109*/ curfptr[108]); BASILYS_LOCATION("warmelt-outobj.melt:2906:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V505*/ curfptr[504])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_404__LAMBDA_#2", NULL != (/*_.CLASS_SRC_COMMENT__V110*/ curfptr[109])); ((basilysroutine_ptr_t)/*_.VALROUT___V505*/ curfptr[504])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SRC_COMMENT__V110*/ curfptr[109]); BASILYS_LOCATION("warmelt-outobj.melt:2906:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V505*/ curfptr[504])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_404__LAMBDA_#3", NULL != (/*_.NORMAL_EXP__V111*/ curfptr[110])); ((basilysroutine_ptr_t)/*_.VALROUT___V505*/ curfptr[504])->tabval[3] = (basilys_ptr_t)(/*_.NORMAL_EXP__V111*/ curfptr[110]); BASILYS_LOCATION("warmelt-outobj.melt:2906:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V505*/ curfptr[504])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_404__LAMBDA_#4", NULL != (/*_.CLASS_NREP__V84*/ curfptr[83])); ((basilysroutine_ptr_t)/*_.VALROUT___V505*/ curfptr[504])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NREP__V84*/ curfptr[83]); BASILYS_LOCATION("warmelt-outobj.melt:2906:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V505*/ curfptr[504])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_404__LAMBDA_#5", NULL != (/*_.CLASS_NREP_ANYPROC__V112*/ curfptr[111])); ((basilysroutine_ptr_t)/*_.VALROUT___V505*/ curfptr[504])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NREP_ANYPROC__V112*/ curfptr[111]); BASILYS_LOCATION("warmelt-outobj.melt:2906:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V505*/ curfptr[504])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_404__LAMBDA_#6", NULL != (/*_.WRAP_NORMAL_LET1__V113*/ curfptr[112])); ((basilysroutine_ptr_t)/*_.VALROUT___V505*/ curfptr[504])->tabval[6] = (basilys_ptr_t)(/*_.WRAP_NORMAL_LET1__V113*/ curfptr[112]); BASILYS_LOCATION("warmelt-outobj.melt:2906:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V505*/ curfptr[504]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#21", NULL != (/*_.VALROUT___V505*/ curfptr[504])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V505*/ curfptr[504]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#22", NULL != (/*_.DISCR_LIST__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[22] = (basilys_ptr_t)(/*_.DISCR_LIST__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#23", NULL != (/*_.DISCR_MAPOBJECTS__V114*/ curfptr[113])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[23] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V114*/ curfptr[113]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#24", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[24] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#25", NULL != (/*_.CLASS_NREP_ANYPROC__V112*/ curfptr[111])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[25] = (basilys_ptr_t)(/*_.CLASS_NREP_ANYPROC__V112*/ curfptr[111]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#26", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[26] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#27", NULL != (/*_.COMPILE2OBJ_PROCEDURE__V115*/ curfptr[114])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[27] = (basilys_ptr_t)(/*_.COMPILE2OBJ_PROCEDURE__V115*/ curfptr[114]); BASILYS_LOCATION("warmelt-outobj.melt:2945:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V506*/ curfptr[505])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_417__LAMBDA_#0", NULL != (/*_.CLASS_NREP_ANYPROC__V112*/ curfptr[111])); ((basilysroutine_ptr_t)/*_.VALROUT___V506*/ curfptr[505])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_ANYPROC__V112*/ curfptr[111]); BASILYS_LOCATION("warmelt-outobj.melt:2945:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V506*/ curfptr[505])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_417__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V506*/ curfptr[505])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2945:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V506*/ curfptr[505])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_417__LAMBDA_#2", NULL != (/*_.COMPILE2OBJ_PROCEDURE__V115*/ curfptr[114])); ((basilysroutine_ptr_t)/*_.VALROUT___V506*/ curfptr[505])->tabval[2] = (basilys_ptr_t)(/*_.COMPILE2OBJ_PROCEDURE__V115*/ curfptr[114]); BASILYS_LOCATION("warmelt-outobj.melt:2945:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V506*/ curfptr[505]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#28", NULL != (/*_.VALROUT___V506*/ curfptr[505])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[28] = (basilys_ptr_t)(/*_.VALROUT___V506*/ curfptr[505]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#29", NULL != (/*_.COMPILE2OBJ_INITPROC__V116*/ curfptr[115])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[29] = (basilys_ptr_t)(/*_.COMPILE2OBJ_INITPROC__V116*/ curfptr[115]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#30", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[30] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#31", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[31] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2978:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V507*/ curfptr[506])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_422__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V507*/ curfptr[506])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2978:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V507*/ curfptr[506])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_422__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V507*/ curfptr[506])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2978:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V507*/ curfptr[506]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#32", NULL != (/*_.VALROUT___V507*/ curfptr[506])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[32] = (basilys_ptr_t)(/*_.VALROUT___V507*/ curfptr[506]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_384__COMPILE_LIST_SEXPR#33", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[33] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V499*/ curfptr[498]); ((basilysroutine_ptr_t)/*_.VALROUT___V504*/ curfptr[503])->tabval[34] = (basilys_ptr_t)(/*_.VALCLO___V499*/ curfptr[498]); BASILYS_LOCATION("warmelt-outobj.melt:2864:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V504*/ curfptr[503]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V508*/ curfptr[507])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V504*/ curfptr[503])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V508*/ curfptr[507])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V504*/ curfptr[503]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V508*/ curfptr[507]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530])))); ((basilysobject_ptr_t)(/*_.VALDATA___V531*/ curfptr[530]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V532*/ curfptr[531]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V531*/ curfptr[530]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532])))); ((basilysobject_ptr_t)(/*_.VALDATA___V533*/ curfptr[532]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V534*/ curfptr[533]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V533*/ curfptr[532]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534])))); ((basilysobject_ptr_t)(/*_.VALDATA___V535*/ curfptr[534]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V536*/ curfptr[535]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V535*/ curfptr[534]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])))); ((basilysobject_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V538*/ curfptr[537]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V537*/ curfptr[536]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])))); ((basilysobject_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V540*/ curfptr[539]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V539*/ curfptr[538]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])))); ((basilysobject_ptr_t)(/*_.VALDATA___V541*/ curfptr[540]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V542*/ curfptr[541]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V541*/ curfptr[540]); BASILYS_LOCATION("warmelt-outobj.melt:2993:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V543*/ curfptr[542])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_423__INSTALL_INITIAL_COMMAND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V543*/ curfptr[542])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:2993:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V543*/ curfptr[542])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_423__INSTALL_INITIAL_COMMAND#1", NULL != (/*_.INITIAL_SYSTEM_DATA__V117*/ curfptr[116])); ((basilysroutine_ptr_t)/*_.VALROUT___V543*/ curfptr[542])->tabval[1] = (basilys_ptr_t)(/*_.INITIAL_SYSTEM_DATA__V117*/ curfptr[116]); BASILYS_LOCATION("warmelt-outobj.melt:2993:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V543*/ curfptr[542]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V544*/ curfptr[543])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V543*/ curfptr[542])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V544*/ curfptr[543])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V543*/ curfptr[542]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V544*/ curfptr[543]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544])))); ((basilysobject_ptr_t)(/*_.VALDATA___V545*/ curfptr[544]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V546*/ curfptr[545]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V545*/ curfptr[544]); BASILYS_LOCATION("warmelt-outobj.melt:3000:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V547*/ curfptr[546])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_427__INITIAL_COMMAND_INSTALL#0", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V547*/ curfptr[546])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.melt:3000:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V547*/ curfptr[546])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V544*/ curfptr[543]); ((basilysroutine_ptr_t)/*_.VALROUT___V547*/ curfptr[546])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V544*/ curfptr[543]); BASILYS_LOCATION("warmelt-outobj.melt:3000:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V547*/ curfptr[546]); /*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___V547*/ curfptr[546])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V548*/ curfptr[547])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V547*/ curfptr[546]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V548*/ curfptr[547]); BASILYS_LOCATION("warmelt-outobj.melt:3008:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V549*/ curfptr[548])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_429__READSEQ_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.melt:3008:/ 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.melt:3026:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V551*/ curfptr[550])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_431__COMPILE_ONE_OR_MORE_FILES#0", NULL != (/*_.CLASS_ENVIRONMENT__V100*/ curfptr[99])); ((basilysroutine_ptr_t)/*_.VALROUT___V551*/ curfptr[550])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V100*/ curfptr[99]); BASILYS_LOCATION("warmelt-outobj.melt:3026:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V551*/ curfptr[550])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_431__COMPILE_ONE_OR_MORE_FILES#1", NULL != (/*_.DISCR_LIST__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V551*/ curfptr[550])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_LIST__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.melt:3026:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V551*/ curfptr[550])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_431__COMPILE_ONE_OR_MORE_FILES#2", NULL != (/*_.LIST_APPEND2LIST__V118*/ curfptr[117])); ((basilysroutine_ptr_t)/*_.VALROUT___V551*/ curfptr[550])->tabval[2] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V118*/ curfptr[117]); BASILYS_LOCATION("warmelt-outobj.melt:3026:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V551*/ curfptr[550])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_431__COMPILE_ONE_OR_MORE_FILES#3", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V551*/ curfptr[550])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:3026:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V551*/ curfptr[550])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V508*/ curfptr[507]); ((basilysroutine_ptr_t)/*_.VALROUT___V551*/ curfptr[550])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V508*/ curfptr[507]); BASILYS_LOCATION("warmelt-outobj.melt:3026:/ 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]); BASILYS_LOCATION("warmelt-outobj.melt:3054:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V555*/ curfptr[554])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_435__COMPILEFILE_COMMAND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V555*/ curfptr[554])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:3054:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V555*/ curfptr[554])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_435__COMPILEFILE_COMMAND#1", NULL != (/*_.PREVENV___V4*/ curfptr[3])); ((basilysroutine_ptr_t)/*_.VALROUT___V555*/ curfptr[554])->tabval[1] = (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]); BASILYS_LOCATION("warmelt-outobj.melt:3054:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V555*/ curfptr[554])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_435__COMPILEFILE_COMMAND#2", NULL != (/*_.INITIAL_ENVIRONMENT__V107*/ curfptr[106])); ((basilysroutine_ptr_t)/*_.VALROUT___V555*/ curfptr[554])->tabval[2] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V107*/ curfptr[106]); BASILYS_LOCATION("warmelt-outobj.melt:3054:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V555*/ curfptr[554])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_435__COMPILEFILE_COMMAND#3", NULL != (/*_.CLASS_ENVIRONMENT__V100*/ curfptr[99])); ((basilysroutine_ptr_t)/*_.VALROUT___V555*/ curfptr[554])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V100*/ curfptr[99]); BASILYS_LOCATION("warmelt-outobj.melt:3054:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V555*/ curfptr[554])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_435__COMPILEFILE_COMMAND#4", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V555*/ curfptr[554])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.melt:3054:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V555*/ curfptr[554])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V552*/ curfptr[551]); ((basilysroutine_ptr_t)/*_.VALROUT___V555*/ curfptr[554])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V552*/ curfptr[551]); BASILYS_LOCATION("warmelt-outobj.melt:3054:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V555*/ curfptr[554]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V556*/ curfptr[555])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V555*/ curfptr[554])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V556*/ curfptr[555])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V555*/ curfptr[554]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V556*/ curfptr[555]); BASILYS_LOCATION("warmelt-outobj.melt:3082:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V557*/ curfptr[556])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_437__RUNFILE_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.melt:3082:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V557*/ curfptr[556])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_437__RUNFILE_COMMAND#1", NULL != (/*_.PREVENV___V4*/ curfptr[3])); ((basilysroutine_ptr_t)/*_.VALROUT___V557*/ curfptr[556])->tabval[1] = (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]); BASILYS_LOCATION("warmelt-outobj.melt:3082:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V557*/ curfptr[556])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_437__RUNFILE_COMMAND#2", NULL != (/*_.INITIAL_ENVIRONMENT__V107*/ curfptr[106])); ((basilysroutine_ptr_t)/*_.VALROUT___V557*/ curfptr[556])->tabval[2] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V107*/ curfptr[106]); BASILYS_LOCATION("warmelt-outobj.melt:3082:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V557*/ curfptr[556])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_437__RUNFILE_COMMAND#3", NULL != (/*_.CLASS_ENVIRONMENT__V100*/ curfptr[99])); ((basilysroutine_ptr_t)/*_.VALROUT___V557*/ curfptr[556])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V100*/ curfptr[99]); BASILYS_LOCATION("warmelt-outobj.melt:3082:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V557*/ curfptr[556])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_437__RUNFILE_COMMAND#4", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V557*/ curfptr[556])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.melt:3082:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V557*/ curfptr[556])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V552*/ curfptr[551]); ((basilysroutine_ptr_t)/*_.VALROUT___V557*/ curfptr[556])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V552*/ curfptr[551]); BASILYS_LOCATION("warmelt-outobj.melt:3082:/ 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]); BASILYS_LOCATION("warmelt-outobj.melt:3118:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V559*/ curfptr[558])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_439__COMPILEINIT_COMMAND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V559*/ curfptr[558])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:3118:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V559*/ curfptr[558])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_439__COMPILEINIT_COMMAND#1", NULL != (/*_.INITIAL_ENVIRONMENT__V107*/ curfptr[106])); ((basilysroutine_ptr_t)/*_.VALROUT___V559*/ curfptr[558])->tabval[1] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V107*/ curfptr[106]); BASILYS_LOCATION("warmelt-outobj.melt:3118:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V559*/ curfptr[558])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_439__COMPILEINIT_COMMAND#2", NULL != (/*_.DISCR_LIST__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V559*/ curfptr[558])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.melt:3118:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V559*/ curfptr[558])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_439__COMPILEINIT_COMMAND#3", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V559*/ curfptr[558])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.melt:3118:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V559*/ curfptr[558])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_439__COMPILEINIT_COMMAND#4", NULL != (/*_.LIST_APPEND2LIST__V118*/ curfptr[117])); ((basilysroutine_ptr_t)/*_.VALROUT___V559*/ curfptr[558])->tabval[4] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V118*/ curfptr[117]); BASILYS_LOCATION("warmelt-outobj.melt:3118:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V559*/ curfptr[558])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_439__COMPILEINIT_COMMAND#5", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V559*/ curfptr[558])->tabval[5] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.melt:3118:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V559*/ curfptr[558])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_439__COMPILEINIT_COMMAND#6", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V559*/ curfptr[558])->tabval[6] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:3118:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V559*/ curfptr[558])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_439__COMPILEINIT_COMMAND#7", NULL != (/*_.LIST_APPEND2LIST__V118*/ curfptr[117])); ((basilysroutine_ptr_t)/*_.VALROUT___V559*/ curfptr[558])->tabval[7] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V118*/ curfptr[117]); BASILYS_LOCATION("warmelt-outobj.melt:3138:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V560*/ curfptr[559])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_441__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V560*/ curfptr[559])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:3138:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V560*/ curfptr[559])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_441__LAMBDA_#1", NULL != (/*_.LIST_APPEND2LIST__V118*/ curfptr[117])); ((basilysroutine_ptr_t)/*_.VALROUT___V560*/ curfptr[559])->tabval[1] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V118*/ curfptr[117]); BASILYS_LOCATION("warmelt-outobj.melt:3138:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V560*/ curfptr[559]); BASILYS_LOCATION("warmelt-outobj.melt:3118:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V559*/ curfptr[558])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_439__COMPILEINIT_COMMAND#8", NULL != (/*_.VALROUT___V560*/ curfptr[559])); ((basilysroutine_ptr_t)/*_.VALROUT___V559*/ curfptr[558])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V560*/ curfptr[559]); BASILYS_LOCATION("warmelt-outobj.melt:3118:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V559*/ curfptr[558])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V508*/ curfptr[507]); ((basilysroutine_ptr_t)/*_.VALROUT___V559*/ curfptr[558])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V508*/ curfptr[507]); BASILYS_LOCATION("warmelt-outobj.melt:3118:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V559*/ curfptr[558]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V561*/ curfptr[560])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V559*/ curfptr[558])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V561*/ curfptr[560])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V559*/ curfptr[558]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V561*/ curfptr[560]); BASILYS_LOCATION("warmelt-outobj.melt:3164:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V562*/ curfptr[561])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_442__SHOWMDATA_COMMAND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V562*/ curfptr[561])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:3164:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V562*/ curfptr[561]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V563*/ curfptr[562])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V562*/ curfptr[561])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V563*/ curfptr[562])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V562*/ curfptr[561]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V563*/ curfptr[562]); BASILYS_LOCATION("warmelt-outobj.melt:3175:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V564*/ curfptr[563])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_444__SHOWVAR_COMMAND#0", NULL != (/*_.FIND_ENV__V119*/ curfptr[118])); ((basilysroutine_ptr_t)/*_.VALROUT___V564*/ curfptr[563])->tabval[0] = (basilys_ptr_t)(/*_.FIND_ENV__V119*/ curfptr[118]); BASILYS_LOCATION("warmelt-outobj.melt:3175:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V564*/ curfptr[563])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_444__SHOWVAR_COMMAND#1", NULL != (/*_.CLASS_VALUE_BINDING__V120*/ curfptr[119])); ((basilysroutine_ptr_t)/*_.VALROUT___V564*/ curfptr[563])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V120*/ curfptr[119]); BASILYS_LOCATION("warmelt-outobj.melt:3175:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V564*/ curfptr[563])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_444__SHOWVAR_COMMAND#2", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V564*/ curfptr[563])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:3175:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V564*/ curfptr[563]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V565*/ curfptr[564])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V564*/ curfptr[563])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V565*/ curfptr[564])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V564*/ curfptr[563]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V565*/ curfptr[564]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])))); ((basilysobject_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V567*/ curfptr[566]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V566*/ curfptr[565]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567])))); ((basilysobject_ptr_t)(/*_.VALDATA___V568*/ curfptr[567]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V569*/ curfptr[568]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V568*/ curfptr[567]); BASILYS_LOCATION("warmelt-outobj.melt:3192:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V570*/ curfptr[569])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_450__HELP_COMMAND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V570*/ curfptr[569])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.melt:3192:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V570*/ curfptr[569])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_450__HELP_COMMAND#1", NULL != (/*_.INITIAL_SYSTEM_DATA__V117*/ curfptr[116])); ((basilysroutine_ptr_t)/*_.VALROUT___V570*/ curfptr[569])->tabval[1] = (basilys_ptr_t)(/*_.INITIAL_SYSTEM_DATA__V117*/ curfptr[116]); BASILYS_LOCATION("warmelt-outobj.melt:3192:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V570*/ curfptr[569]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V571*/ curfptr[570])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V570*/ curfptr[569])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V571*/ curfptr[570])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V570*/ curfptr[569]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V571*/ curfptr[570]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571])))); ((basilysobject_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V573*/ curfptr[572]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V572*/ curfptr[571]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573])))); ((basilysobject_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V575*/ curfptr[574]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V574*/ curfptr[573]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575])))); ((basilysobject_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V577*/ curfptr[576]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V576*/ curfptr[575]); /**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___V578*/ curfptr[577] = /*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__V579*/ curfptr[578] = slot; }; ; /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_cstring = "warmelt-outobj-3.c"; /*_.FUN___V580*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V579*/ curfptr[578]), (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OR___V578*/ curfptr[577] = /*_.FUN___V580*/ curfptr[579];; /*epilog*/ /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V579*/ curfptr[578] = 0 ; /*clear*/ /*_.FUN___V580*/ curfptr[579] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.melt:3:/ block"); /*com.block:upd.cur.mod.env.cont : at very start*/{}/*com.end block:upd.cur.mod.env.cont : at very start*/ ; /*epilog*/ /*clear*/ /*_.OR___V578*/ curfptr[577] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:33:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:33:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:33:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:33:/ apply.arg"); argtab[0].bp_cstring = "at start of warmelt-outobj Class_Symbol"; BASILYS_LOCATION("warmelt-outobj.melt:33:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:33:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:33:/ apply.arg"); argtab[3].bp_long = 33; /*_.DEBUG_MSG_FUN__V582*/ curfptr[579] = 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___V581*/ curfptr[578] = /*_.DEBUG_MSG_FUN__V582*/ curfptr[579];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:33:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:33:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V582*/ curfptr[579] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:33:/ cppif.else"); /*_.IFCPP___V581*/ curfptr[578] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V581*/ curfptr[578] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.melt:34:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.melt:34:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.melt:34:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:34:/ apply.arg"); argtab[0].bp_cstring = "start of warmelt-outobj predefined Class_Symbol"; BASILYS_LOCATION("warmelt-outobj.melt:34:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.melt:34:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.melt"; BASILYS_LOCATION("warmelt-outobj.melt:34:/ apply.arg"); argtab[3].bp_long = 34; /*_.DEBUG_MSG_FUN__V584*/ curfptr[579] = 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___V583*/ curfptr[577] = /*_.DEBUG_MSG_FUN__V584*/ curfptr[579];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.melt:34:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.melt:34:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V584*/ curfptr[579] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.melt:34:/ cppif.else"); /*_.IFCPP___V583*/ curfptr[577] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V583*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:40:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:40:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.melt:40:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V126*/ curfptr[125]; /*_.INSTALL_METHOD__V585*/ curfptr[578] = 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__V585*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:52:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:52:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:52:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V134*/ curfptr[133]; /*_.INSTALL_METHOD__V586*/ curfptr[579] = 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__V586*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:58:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:58:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.melt:58:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V140*/ curfptr[139]; /*_.INSTALL_METHOD__V587*/ curfptr[577] = 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__V587*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:66:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:66:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-outobj.melt:66:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V144*/ curfptr[143]; /*_.INSTALL_METHOD__V588*/ curfptr[578] = 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__V588*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:92:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:92:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:92:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V152*/ curfptr[151]; /*_.INSTALL_METHOD__V589*/ curfptr[579] = 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__V589*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:98:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:98:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:98:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V156*/ curfptr[155]; /*_.INSTALL_METHOD__V590*/ curfptr[577] = 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__V590*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:108:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:108:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.melt:108:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V160*/ curfptr[159]; /*_.INSTALL_METHOD__V591*/ curfptr[578] = 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__V591*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:226:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:226:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.melt:226:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V168*/ curfptr[167]; /*_.INSTALL_METHOD__V592*/ curfptr[579] = 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__V592*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:307:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:307:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-outobj.melt:307:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V172*/ curfptr[171]; /*_.INSTALL_METHOD__V593*/ curfptr[577] = 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__V593*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:318:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:318:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.melt:318:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V176*/ curfptr[175]; /*_.INSTALL_METHOD__V594*/ curfptr[578] = 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__V594*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:351:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:351:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.melt:351:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V180*/ curfptr[179]; /*_.INSTALL_METHOD__V595*/ curfptr[579] = 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__V595*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:360:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:360:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.melt:360:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V182*/ curfptr[181]; /*_.INSTALL_METHOD__V596*/ curfptr[577] = 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__V596*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:394:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:394:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.melt:394:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V186*/ curfptr[185]; /*_.INSTALL_METHOD__V597*/ curfptr[578] = 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__V597*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:404:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:404:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.melt:404:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V188*/ curfptr[187]; /*_.INSTALL_METHOD__V598*/ curfptr[579] = 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__V598*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:484:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:484:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.melt:484:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V192*/ curfptr[191]; /*_.INSTALL_METHOD__V599*/ curfptr[577] = 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__V599*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:493:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:493:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.melt:493:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V200*/ curfptr[199]; /*_.INSTALL_METHOD__V600*/ curfptr[578] = 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__V600*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:529:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:529:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.melt:529:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V204*/ curfptr[203]; /*_.INSTALL_METHOD__V601*/ curfptr[579] = 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__V601*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:539:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:539:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:539:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V206*/ curfptr[205]; /*_.INSTALL_METHOD__V602*/ curfptr[577] = 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__V602*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:544:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:544:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:544:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V210*/ curfptr[209]; /*_.INSTALL_METHOD__V603*/ curfptr[578] = 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__V603*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:555:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:555:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:555:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V214*/ curfptr[213]; /*_.INSTALL_METHOD__V604*/ curfptr[579] = 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__V604*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:952:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:952:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:952:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V242*/ curfptr[241]; /*_.INSTALL_METHOD__V605*/ curfptr[577] = 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__V605*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1149:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1149:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1149:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V262*/ curfptr[261]; /*_.INSTALL_METHOD__V606*/ curfptr[578] = 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__V606*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1214:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1214:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1214:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V264*/ curfptr[263]; /*_.INSTALL_METHOD__V607*/ curfptr[579] = 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__V607*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1245:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1245:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1245:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V270*/ curfptr[269]; /*_.INSTALL_METHOD__V608*/ curfptr[577] = 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__V608*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1261:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1261:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1261:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V274*/ curfptr[273]; /*_.INSTALL_METHOD__V609*/ curfptr[578] = 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__V609*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1280:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1280:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1280:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V278*/ curfptr[277]; /*_.INSTALL_METHOD__V610*/ curfptr[579] = 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__V610*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1322:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1322:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1322:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V285*/ curfptr[284]; /*_.INSTALL_METHOD__V611*/ curfptr[577] = 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__V611*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1372:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1372:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1372:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V293*/ curfptr[292]; /*_.INSTALL_METHOD__V612*/ curfptr[578] = 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__V612*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1390:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1390:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1390:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V299*/ curfptr[298]; /*_.INSTALL_METHOD__V613*/ curfptr[579] = 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__V613*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1427:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1427:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1427:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V305*/ curfptr[304]; /*_.INSTALL_METHOD__V614*/ curfptr[577] = 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__V614*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1445:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1445:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1445:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V309*/ curfptr[308]; /*_.INSTALL_METHOD__V615*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJLABELINSTR__V55*/ curfptr[54]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V615*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1462:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1462:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1462:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V313*/ curfptr[312]; /*_.INSTALL_METHOD__V616*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJGOTOINSTR__V56*/ curfptr[55]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V616*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1530:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1530:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1530:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V323*/ curfptr[322]; /*_.INSTALL_METHOD__V617*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJLOOP__V58*/ curfptr[57]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V617*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1549:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1549:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1549:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V327*/ curfptr[326]; /*_.INSTALL_METHOD__V618*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJEXIT__V59*/ curfptr[58]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V618*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1587:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1587:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1587:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V334*/ curfptr[333]; /*_.INSTALL_METHOD__V619*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCOMPUTE__V60*/ curfptr[59]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V619*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1629:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1629:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1629:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V338*/ curfptr[337]; /*_.INSTALL_METHOD__V620*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCOND__V61*/ curfptr[60]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V620*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1662:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1662:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1662:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V342*/ curfptr[341]; /*_.INSTALL_METHOD__V621*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCPPIF__V62*/ curfptr[61]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V621*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1686:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1686:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1686:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V346*/ curfptr[345]; /*_.INSTALL_METHOD__V622*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINTERNSYMBOL__V63*/ curfptr[62]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V622*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1709:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1709:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1709:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V352*/ curfptr[351]; /*_.INSTALL_METHOD__V623*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINTERNKEYWORD__V65*/ curfptr[64]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V623*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1747:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1747:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1747:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V358*/ curfptr[357]; /*_.INSTALL_METHOD__V624*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJGETNAMEDSYMBOL__V67*/ curfptr[66]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V624*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1781:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1781:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1781:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V362*/ curfptr[361]; /*_.INSTALL_METHOD__V625*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJGETNAMEDKEYWORD__V68*/ curfptr[67]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V625*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1875:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1875:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1875:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V369*/ curfptr[368]; /*_.INSTALL_METHOD__V626*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJAPPLY__V69*/ curfptr[68]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V626*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:1965:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:1965:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:1965:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V382*/ curfptr[381]; /*_.INSTALL_METHOD__V627*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJMSEND__V73*/ curfptr[72]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V627*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2128:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2128:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2128:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V392*/ curfptr[391]; /*_.INSTALL_METHOD__V628*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJMULTIAPPLY__V74*/ curfptr[73]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V628*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2283:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2283:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2283:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V402*/ curfptr[401]; /*_.INSTALL_METHOD__V629*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJMULTIMSEND__V75*/ curfptr[74]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V629*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2300:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2300:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2300:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V406*/ curfptr[405]; /*_.INSTALL_METHOD__V630*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCLEAR__V76*/ curfptr[75]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V630*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2333:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2333:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2333:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V411*/ curfptr[410]; /*_.INSTALL_METHOD__V631*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJRAWALLOCOBJ__V77*/ curfptr[76]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V631*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2364:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2364:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2364:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V416*/ curfptr[415]; /*_.INSTALL_METHOD__V632*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJNEWCLOSURE__V78*/ curfptr[77]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V632*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2387:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2387:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2387:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V420*/ curfptr[419]; /*_.INSTALL_METHOD__V633*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJTOUCH__V79*/ curfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V633*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2424:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2424:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2424:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V424*/ curfptr[423]; /*_.INSTALL_METHOD__V634*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTUPLE__V80*/ curfptr[79]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V634*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2455:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2455:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2455:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V429*/ curfptr[428]; /*_.INSTALL_METHOD__V635*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJGETSLOT__V81*/ curfptr[80]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V635*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2514:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2514:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2514:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V435*/ curfptr[434]; /*_.INSTALL_METHOD__V636*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTSLOT__V83*/ curfptr[82]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V636*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2543:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2543:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2543:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V441*/ curfptr[440]; /*_.INSTALL_METHOD__V637*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSUROUT__V85*/ curfptr[84]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V637*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2577:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2577:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2577:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V445*/ curfptr[444]; /*_.INSTALL_METHOD__V638*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSEDV__V86*/ curfptr[85]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V638*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2616:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2616:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2616:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V449*/ curfptr[448]; /*_.INSTALL_METHOD__V639*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V87*/ curfptr[86]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V639*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2654:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2654:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2654:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V453*/ curfptr[452]; /*_.INSTALL_METHOD__V640*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTROUTCONST__V88*/ curfptr[87]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V640*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2685:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2685:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2685:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V457*/ curfptr[456]; /*_.INSTALL_METHOD__V641*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V89*/ curfptr[88]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V641*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2722:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2722:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2722:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V461*/ curfptr[460]; /*_.INSTALL_METHOD__V642*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTXTRARESULT__V90*/ curfptr[89]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V642*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2736:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2736:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2736:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V466*/ curfptr[465]; /*_.INSTALL_METHOD__V643*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJEXPV__V91*/ curfptr[90]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V643*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2754:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2754:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2754:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V471*/ curfptr[470]; /*_.INSTALL_METHOD__V644*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJLOCATEDEXPV__V92*/ curfptr[91]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V644*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2763:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2763:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2763:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V475*/ curfptr[474]; /*_.INSTALL_METHOD__V645*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V93*/ curfptr[92]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V645*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2774:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2774:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2774:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V479*/ curfptr[478]; /*_.INSTALL_METHOD__V646*/ curfptr[579] = 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__V646*/ curfptr[579] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2784:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2784:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2784:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V481*/ curfptr[480]; /*_.INSTALL_METHOD__V647*/ curfptr[577] = 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__V647*/ curfptr[577] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:2794:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:2794:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.melt:2794:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V483*/ curfptr[482]; /*_.INSTALL_METHOD__V648*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJFINALRETURN__V94*/ curfptr[93]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V648*/ curfptr[578] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V649*/ curfptr[579] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "readseq"));; BASILYS_LOCATION("warmelt-outobj.melt:3017:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3017:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V550*/ curfptr[549]; /*_.INSTALL_INITIAL_COMMAND__V650*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V544*/ curfptr[543]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V649*/ curfptr[579]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V649*/ curfptr[579] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V650*/ curfptr[577] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V651*/ curfptr[578] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "compilefile"));; BASILYS_LOCATION("warmelt-outobj.melt:3077:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3077:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V556*/ curfptr[555]; /*_.INSTALL_INITIAL_COMMAND__V652*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V544*/ curfptr[543]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V651*/ curfptr[578]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V651*/ curfptr[578] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V652*/ curfptr[579] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V653*/ curfptr[577] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "translatefile"));; BASILYS_LOCATION("warmelt-outobj.melt:3078:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3078:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V556*/ curfptr[555]; /*_.INSTALL_INITIAL_COMMAND__V654*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V544*/ curfptr[543]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V653*/ curfptr[577]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V653*/ curfptr[577] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V654*/ curfptr[578] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V655*/ curfptr[579] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "runfile"));; BASILYS_LOCATION("warmelt-outobj.melt:3114:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3114:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V558*/ curfptr[557]; /*_.INSTALL_INITIAL_COMMAND__V656*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V544*/ curfptr[543]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V655*/ curfptr[579]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V655*/ curfptr[579] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V656*/ curfptr[577] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V657*/ curfptr[578] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "compileinit"));; BASILYS_LOCATION("warmelt-outobj.melt:3160:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3160:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V561*/ curfptr[560]; /*_.INSTALL_INITIAL_COMMAND__V658*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V544*/ curfptr[543]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V657*/ curfptr[578]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V657*/ curfptr[578] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V658*/ curfptr[579] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V659*/ curfptr[577] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "translateinit"));; BASILYS_LOCATION("warmelt-outobj.melt:3161:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3161:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V561*/ curfptr[560]; /*_.INSTALL_INITIAL_COMMAND__V660*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V544*/ curfptr[543]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V659*/ curfptr[577]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V659*/ curfptr[577] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V660*/ curfptr[578] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V661*/ curfptr[579] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "showmdata"));; BASILYS_LOCATION("warmelt-outobj.melt:3171:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3171:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V563*/ curfptr[562]; /*_.INSTALL_INITIAL_COMMAND__V662*/ curfptr[577] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V544*/ curfptr[543]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V661*/ curfptr[579]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V661*/ curfptr[579] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V662*/ curfptr[577] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V663*/ curfptr[578] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "showvar"));; BASILYS_LOCATION("warmelt-outobj.melt:3188:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3188:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V565*/ curfptr[564]; /*_.INSTALL_INITIAL_COMMAND__V664*/ curfptr[579] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V544*/ curfptr[543]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V663*/ curfptr[578]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V663*/ curfptr[578] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V664*/ curfptr[579] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V665*/ curfptr[577] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "help"));; BASILYS_LOCATION("warmelt-outobj.melt:3197:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3197:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V571*/ curfptr[570]; /*_.INSTALL_INITIAL_COMMAND__V666*/ curfptr[578] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V544*/ curfptr[543]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V665*/ curfptr[577]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V665*/ curfptr[577] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V666*/ curfptr[578] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.melt:3202:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V667*/ curfptr[579] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.melt:3202:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3202:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V548*/ curfptr[547]; BASILYS_LOCATION("warmelt-outobj.melt:3202:/ 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___V667*/ curfptr[579]), (basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.melt:3202:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3202:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V544*/ curfptr[543]; BASILYS_LOCATION("warmelt-outobj.melt:3202:/ 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___V667*/ curfptr[579]), (basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.melt:3202:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.melt:3202:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V508*/ curfptr[507]; BASILYS_LOCATION("warmelt-outobj.melt:3202:/ 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___V667*/ curfptr[579]), (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.VALUEXPORTER___V667*/ curfptr[579] = 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___V121*/ curfptr[120])); /*internsym:CLASS_SYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122])); /*internsym:INSTALL_METHOD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V127*/ curfptr[126])); /*internsym:CLASS_ROOT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V129*/ curfptr[128])); /*internsym:OUTPUT_C_DECLINIT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130])); /*internsym:CLASS_OBJINITELEM*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])); /*internsym:OUTPUT_C_CODE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136])); /*internsym:OUTPUT_C_INITFILL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140])); /*internsym:OUTPUT_C_INITPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V145*/ curfptr[144])); /*internsym:OBPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])); /*internsym:CLASS_OBJPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152])); /*internsym:CLASS_OBJNIL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156])); /*internsym:CLASS_OBJINITOBJECT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160])); /*internsym:CLASS_NREP_DATAINSTANCE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V169*/ curfptr[168])); /*internsym:CLASS_NREP_NIL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172])); /*internsym:CLASS_OBJINITMULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V177*/ curfptr[176])); /*internsym:CLASS_OBJINITCLOSURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V183*/ curfptr[182])); /*internsym:CLASS_OBJINITROUTINE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V189*/ curfptr[188])); /*internsym:CLASS_NREP_DATAROUTINE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])); /*internsym:CLASS_NAMED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V195*/ curfptr[194])); /*internsym:CLASS_NREP_ROUTPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196])); /*internsym:CLASS_OBJINITSTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200])); /*internsym:DISCR_ANYRECV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V207*/ curfptr[206])); /*internsym:DISCR_NULLRECV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])); /*internsym:DISPLAYDEBUGMSG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V215*/ curfptr[214])); /*internsym:CLASS_INITIALROUTINEOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V220*/ curfptr[219])); /*internsym:LIST_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221])); /*internsym:CLASS_OBJLOCV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])); /*internsym:CLASS_CTYPE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225])); /*internsym:CLASS_ROUTINEOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V231*/ curfptr[230])); /*internsym:CTYPE_VALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V233*/ curfptr[232])); /*internsym:CLASS_OBJVALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234])); /*internsym:CLASS_PROCROUTINEOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V243*/ curfptr[242])); /*internsym:DISCR_STRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244])); /*internsym:MULTIPLE_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V247*/ curfptr[246])); /*internsym:CLASS_OBJPUREVALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])); /*internsym:CLASS_OBJGETARG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V265*/ curfptr[264])); /*internsym:CLASS_FORMAL_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V267*/ curfptr[266])); /*internsym:CTYPE_LONG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])); /*internsym:CLASS_OBJCLOCCV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V275*/ curfptr[274])); /*internsym:CLASS_OBJCONSTV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V279*/ curfptr[278])); /*internsym:CLASS_OBJBLOCK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])); /*internsym:DISCR_INTEGER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])); /*internsym:CLASS_OBJCITERBLOCK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293])); /*internsym:CLASS_CITERATOR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295])); /*internsym:CLASS_OBJCOMMENTINSTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V300*/ curfptr[299])); /*internsym:DISCR_STRBUF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])); /*internsym:CLASS_OBJCOMMENTEDBLOCK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])); /*internsym:CLASS_OBJLABELINSTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V310*/ curfptr[309])); /*internsym:CLASS_OBJGOTOINSTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V314*/ curfptr[313])); /*internsym:CLASS_CLONEDSYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])); /*internsym:CLASS_OBJLOOP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323])); /*internsym:CLASS_OBJEXIT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327])); /*internsym:CLASS_OBJCOMPUTE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])); /*internsym:CLASS_OBJCOND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])); /*internsym:CLASS_OBJCPPIF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342])); /*internsym:CLASS_OBJINTERNSYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346])); /*internsym:CLASS_NREP_DATASYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])); /*internsym:CLASS_OBJINTERNKEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])); /*internsym:CLASS_NREP_DATAKEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354])); /*internsym:CLASS_OBJGETNAMEDSYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358])); /*internsym:CLASS_OBJGETNAMEDKEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])); /*internsym:CLASS_OBJAPPLY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])); /*internsym:DISCR_LIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V372*/ curfptr[371])); /*internsym:CLASS_OBJINSTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373])); /*internsym:GET_CTYPE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])); /*internsym:CLASS_OBJMSEND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V383*/ curfptr[382])); /*internsym:CLASS_OBJMULTIAPPLY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])); /*internsym:CLASS_OBJMULTIMSEND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402])); /*internsym:CLASS_OBJCLEAR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V407*/ curfptr[406])); /*internsym:CLASS_OBJRAWALLOCOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])); /*internsym:CLASS_OBJNEWCLOSURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416])); /*internsym:CLASS_OBJTOUCH*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V421*/ curfptr[420])); /*internsym:CLASS_OBJPUTUPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V425*/ curfptr[424])); /*internsym:CLASS_OBJGETSLOT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])); /*internsym:CLASS_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V432*/ curfptr[431])); /*internsym:CLASS_OBJPUTSLOT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435])); /*internsym:CLASS_NREP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])); /*internsym:CLASS_OBJPUTCLOSUROUT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V442*/ curfptr[441])); /*internsym:CLASS_OBJPUTCLOSEDV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V446*/ curfptr[445])); /*internsym:CLASS_OBJPUTCLOSEDNOTNULLV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V450*/ curfptr[449])); /*internsym:CLASS_OBJPUTROUTCONST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V454*/ curfptr[453])); /*internsym:CLASS_OBJPUTROUTCONSTNOTNULL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457])); /*internsym:CLASS_OBJPUTXTRARESULT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])); /*internsym:CLASS_OBJEXPV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V467*/ curfptr[466])); /*internsym:CLASS_OBJLOCATEDEXPV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V472*/ curfptr[471])); /*internsym:DISCR_VERBATIMSTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475])); /*internsym:CLASS_OBJFINALRETURN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])); /*internsym:MAPSTRING_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V490*/ curfptr[489])); /*internsym:LIST_TO_MULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V492*/ curfptr[491])); /*internsym:DISCR_MULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])); /*internsym:CLASS_MODULCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499])); /*internsym:CLASS_CLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])); /*internsym:CLASS_ENVIRONMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508])); /*internsym:DISCR_MAPSTRINGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510])); /*internsym:CREATE_NORMCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512])); /*internsym:CLASS_NORMCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V515*/ curfptr[514])); /*internsym:MACROEXPAND_TOPLEVEL_LIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V517*/ curfptr[516])); /*internsym:CLASS_SRC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V519*/ curfptr[518])); /*internsym:CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V521*/ curfptr[520])); /*internsym:INITIAL_ENVIRONMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])); /*internsym:CLASS_NREP_INITPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V525*/ curfptr[524])); /*internsym:CLASS_LOCATED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])); /*internsym:CLASS_SRC_COMMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V529*/ curfptr[528])); /*internsym:NORMAL_EXP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530])); /*internsym:CLASS_NREP_ANYPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532])); /*internsym:WRAP_NORMAL_LET1*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534])); /*internsym:DISCR_MAPOBJECTS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])); /*internsym:COMPILE2OBJ_PROCEDURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])); /*internsym:COMPILE2OBJ_INITPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])); /*internsym:INITIAL_SYSTEM_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544])); /*internsym:LIST_APPEND2LIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552])); /*internsym:FIND_ENV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])); /*internsym:CLASS_VALUE_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567])); /*internsym:INITIAL_COMMAND_INSTALL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571])); /*internsym:INSTALL_INITIAL_COMMAND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573])); /*internsym:COMPILE_LIST_SEXPR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575])); /**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<667; 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 ****/