lolevel.c

Scheme跨平台编译器

/* Generated from lolevel.scm by the CHICKEN compiler
   http://www.call-with-current-continuation.org
   2008-09-23 22:55
   Version 3.3.0 - linux-unix-gnu-x86	[ manyargs dload ptables applyhook ]
   SVN rev. 11106	compiled 2008-07-08 on galinha (Linux)
   command line: lolevel.scm -quiet -no-trace -optimize-level 2 -include-path . -include-path ./ -explicit-use -output-file lolevel.c
   unit: lolevel
*/

#include "chicken.h"

#if defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__)
# include <sys/types.h>
#endif
#ifndef C_NONUNIX
# include <sys/mman.h>
#endif

#define C_pointer_to_object(ptr)   ((C_word*)C_block_item(ptr, 0))
#define C_w2b(x)                   C_fix(C_wordstobytes(C_unfix(x)))
#define C_pointer_eqp(x, y)        C_mk_bool(C_c_pointer_nn(x) == C_c_pointer_nn(y))
#define C_memmove_o(to, from, n, toff, foff) C_memmove((char *)(to) + (toff), (char *)(from) + (foff), (n))

static C_PTABLE_ENTRY *create_ptable(void);

static C_TLS C_word lf[161];
static double C_possibly_force_alignment;
static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,5),40,101,114,114,41,0,0,0};
static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,10),40,120,101,114,114,32,120,57,48,41,0,0,0,0,0,0};
static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,25),40,99,104,101,99,107,110,32,110,57,49,32,110,109,97,120,57,50,32,111,102,102,57,51,41,0,0,0,0,0,0,0};
static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,42),40,99,104,101,99,107,110,50,32,110,57,52,32,110,109,97,120,57,53,32,110,109,97,120,50,57,54,32,111,102,102,49,57,55,32,111,102,102,50,57,56,41,0,0,0,0,0,0};
static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,20),40,109,111,118,101,32,102,114,111,109,49,48,48,32,116,111,49,48,49,41,0,0,0,0};
static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,32),40,98,111,100,121,55,54,32,110,56,51,32,102,111,102,102,115,101,116,56,52,32,116,111,102,102,115,101,116,56,53,41};
static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,37),40,100,101,102,45,116,111,102,102,115,101,116,56,48,32,37,110,55,51,49,50,57,32,37,102,111,102,102,115,101,116,55,52,49,51,48,41,0,0,0};
static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,23),40,100,101,102,45,102,111,102,102,115,101,116,55,57,32,37,110,55,51,49,51,50,41,0};
static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,9),40,100,101,102,45,110,55,56,41,0,0,0,0,0,0,0};
static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,34),40,109,111,118,101,45,109,101,109,111,114,121,33,32,102,114,111,109,55,48,32,116,111,55,49,32,46,32,103,54,57,55,50,41,0,0,0,0,0,0};
static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,112,111,105,110,116,101,114,32,112,116,114,49,52,49,32,108,111,99,49,52,50,41,0,0,0,0,0};
static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,15),40,112,111,105,110,116,101,114,63,32,120,49,52,55,41,0};
static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,26),40,97,100,100,114,101,115,115,45,62,112,111,105,110,116,101,114,32,97,100,100,114,49,53,48,41,0,0,0,0,0,0};
static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,25),40,112,111,105,110,116,101,114,45,62,97,100,100,114,101,115,115,32,112,116,114,49,53,50,41,0,0,0,0,0,0,0};
static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,22),40,110,117,108,108,45,112,111,105,110,116,101,114,63,32,112,116,114,49,53,52,41,0,0};
static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,16),40,102,95,49,50,51,57,32,97,49,53,55,49,54,48,41};
static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,22),40,111,98,106,101,99,116,45,62,112,111,105,110,116,101,114,32,120,49,53,54,41,0,0};
static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,24),40,112,111,105,110,116,101,114,45,62,111,98,106,101,99,116,32,112,116,114,49,54,50,41};
static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,23),40,112,111,105,110,116,101,114,61,63,32,112,49,49,54,52,32,112,50,49,54,53,41,0};
static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,18),40,97,108,108,111,99,97,116,101,32,97,49,54,56,49,55,49,41,0,0,0,0,0,0};
static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,14),40,102,114,101,101,32,97,49,55,51,49,55,55,41,0,0};
static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,7),40,97,108,105,103,110,41,0};
static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,20),40,97,108,105,103,110,45,116,111,45,119,111,114,100,32,120,49,56,53,41,0,0,0,0};
static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,32),40,112,111,105,110,116,101,114,45,111,102,102,115,101,116,32,97,49,56,55,49,57,49,32,97,49,56,54,49,57,50,41};
static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,33),40,112,111,105,110,116,101,114,45,117,56,45,115,101,116,33,32,97,49,57,54,50,48,48,32,97,49,57,53,50,48,49,41,0,0,0,0,0,0,0};
static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,33),40,112,111,105,110,116,101,114,45,115,56,45,115,101,116,33,32,97,50,48,52,50,48,56,32,97,50,48,51,50,48,57,41,0,0,0,0,0,0,0};
static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,34),40,112,111,105,110,116,101,114,45,117,49,54,45,115,101,116,33,32,97,50,49,50,50,49,54,32,97,50,49,49,50,49,55,41,0,0,0,0,0,0};
static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,34),40,112,111,105,110,116,101,114,45,115,49,54,45,115,101,116,33,32,97,50,50,48,50,50,52,32,97,50,49,57,50,50,53,41,0,0,0,0,0,0};
static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,34),40,112,111,105,110,116,101,114,45,117,51,50,45,115,101,116,33,32,97,50,50,56,50,51,50,32,97,50,50,55,50,51,51,41,0,0,0,0,0,0};
static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,34),40,112,111,105,110,116,101,114,45,115,51,50,45,115,101,116,33,32,97,50,51,54,50,52,48,32,97,50,51,53,50,52,49,41,0,0,0,0,0,0};
static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,34),40,112,111,105,110,116,101,114,45,102,51,50,45,115,101,116,33,32,97,50,52,52,50,52,56,32,97,50,52,51,50,52,57,41,0,0,0,0,0,0};
static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,34),40,112,111,105,110,116,101,114,45,102,54,52,45,115,101,116,33,32,97,50,53,50,50,53,54,32,97,50,53,49,50,53,55,41,0,0,0,0,0,0};
static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,27),40,116,97,103,45,112,111,105,110,116,101,114,32,112,116,114,51,49,49,32,116,97,103,51,49,50,41,0,0,0,0,0};
static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,29),40,116,97,103,103,101,100,45,112,111,105,110,116,101,114,63,32,120,51,49,53,32,116,97,103,51,49,54,41,0,0,0};
static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,18),40,112,111,105,110,116,101,114,45,116,97,103,32,120,51,49,55,41,0,0,0,0,0,0};
static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,12),40,97,49,53,51,49,32,120,51,50,48,41,0,0,0,0};
static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,17),40,97,49,53,52,55,32,120,51,50,49,32,105,51,50,50,41,0,0,0,0,0,0,0};
static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,34),40,101,120,116,101,110,100,45,112,114,111,99,101,100,117,114,101,32,112,114,111,99,51,49,56,32,100,97,116,97,51,49,57,41,0,0,0,0,0,0};
static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,12),40,97,49,53,55,53,32,120,51,50,54,41,0,0,0,0};
static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,26),40,101,120,116,101,110,100,101,100,45,112,114,111,99,101,100,117,114,101,63,32,120,51,50,53,41,0,0,0,0,0,0};
static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,12),40,97,49,54,48,57,32,120,51,50,57,41,0,0,0,0};
static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,21),40,112,114,111,99,101,100,117,114,101,45,100,97,116,97,32,120,51,50,55,41,0,0,0};
static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,34),40,115,101,116,45,112,114,111,99,101,100,117,114,101,45,100,97,116,97,33,32,112,114,111,99,51,51,49,32,120,51,51,50,41,0,0,0,0,0,0};
static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,7),40,100,111,51,51,55,41,0};
static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,30),40,98,121,116,101,45,118,101,99,116,111,114,45,102,105,108,108,33,32,98,118,51,51,52,32,110,51,51,53,41,0,0};
static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,36),40,109,97,107,101,45,98,121,116,101,45,118,101,99,116,111,114,32,115,105,122,101,51,52,52,32,46,32,105,110,105,116,51,52,53,41,0,0,0,0};
static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,16),40,100,111,51,53,49,32,98,121,116,101,115,51,53,52,41};
static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,24),40,98,121,116,101,45,118,101,99,116,111,114,32,46,32,98,121,116,101,115,51,52,56,41};
static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,34),40,98,121,116,101,45,118,101,99,116,111,114,45,115,101,116,33,32,98,118,51,53,55,32,105,51,53,56,32,120,51,53,57,41,0,0,0,0,0,0};
static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,51,55,54,41,0,0,0,0,0};
static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,25),40,98,121,116,101,45,118,101,99,116,111,114,45,62,108,105,115,116,32,98,118,51,55,51,41,0,0,0,0,0,0,0};
static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,17),40,100,111,51,56,50,32,112,51,56,52,32,105,51,56,53,41,0,0,0,0,0,0,0};
static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,26),40,108,105,115,116,45,62,98,121,116,101,45,118,101,99,116,111,114,32,108,115,116,51,55,57,41,0,0,0,0,0,0};
static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,43),40,109,97,107,101,45,115,116,97,116,105,99,45,98,121,116,101,45,118,101,99,116,111,114,32,115,105,122,101,52,48,52,32,46,32,105,110,105,116,52,48,53,41,0,0,0,0,0};
static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,35),40,115,116,97,116,105,99,45,98,121,116,101,45,118,101,99,116,111,114,45,62,112,111,105,110,116,101,114,32,98,118,52,48,55,41,0,0,0,0,0};
static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,70),40,98,121,116,101,45,118,101,99,116,111,114,45,109,111,118,101,33,32,115,114,99,52,49,49,32,115,114,99,45,115,116,97,114,116,52,49,50,32,115,114,99,45,101,110,100,52,49,51,32,100,115,116,52,49,52,32,100,115,116,45,115,116,97,114,116,52,49,53,41,0,0};
static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,32),40,97,112,112,101,110,100,45,114,101,115,116,45,97,116,32,105,52,50,48,32,118,101,99,116,111,114,115,52,50,49,41};
static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,33),40,98,121,116,101,45,118,101,99,116,111,114,45,97,112,112,101,110,100,32,46,32,118,101,99,116,111,114,115,52,49,56,41,0,0,0,0,0,0,0};
static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,22),40,110,117,109,98,101,114,45,111,102,45,115,108,111,116,115,32,120,52,50,55,41,0,0};
static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,22),40,110,117,109,98,101,114,45,111,102,45,98,121,116,101,115,32,120,52,51,51,41,0,0};
static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,40),40,109,97,107,101,45,114,101,99,111,114,100,45,105,110,115,116,97,110,99,101,32,116,121,112,101,52,51,52,32,46,32,97,114,103,115,52,51,53,41};
static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,23),40,114,101,99,111,114,100,45,105,110,115,116,97,110,99,101,63,32,120,52,51,55,41,0};
static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,7),40,100,111,52,52,49,41,0};
static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,21),40,114,101,99,111,114,100,45,62,118,101,99,116,111,114,32,120,52,51,56,41,0,0,0};
static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,12),40,100,111,52,53,52,32,105,52,53,54,41,0,0,0,0};
static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,11),40,99,111,112,121,32,120,52,52,56,41,0,0,0,0,0};
static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,18),40,111,98,106,101,99,116,45,99,111,112,121,32,120,52,52,54,41,0,0,0,0,0,0};
static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,22),40,111,98,106,101,99,116,45,101,118,105,99,116,101,100,63,32,120,52,54,49,41,0,0};
static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,16),40,102,95,50,50,56,54,32,97,52,54,54,52,54,57,41};
static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,12),40,100,111,52,55,56,32,105,52,56,48,41,0,0,0,0};
static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,12),40,101,118,105,99,116,32,120,52,55,50,41,0,0,0,0};
static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,34),40,111,98,106,101,99,116,45,101,118,105,99,116,32,120,52,54,50,32,46,32,97,108,108,111,99,97,116,111,114,52,54,51,41,0,0,0,0,0,0};
static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,16),40,102,95,50,51,55,53,32,97,52,57,51,52,57,55,41};
static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,12),40,100,111,53,48,50,32,105,53,48,52,41,0,0,0,0};
static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,14),40,114,101,108,101,97,115,101,32,120,53,48,48,41,0,0};
static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,35),40,111,98,106,101,99,116,45,114,101,108,101,97,115,101,32,120,52,56,57,32,46,32,114,101,108,101,97,115,101,114,52,57,48,41,0,0,0,0,0};
static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,12),40,100,111,53,50,55,32,105,53,50,57,41,0,0,0,0};
static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,12),40,101,118,105,99,116,32,120,53,50,48,41,0,0,0,0};
static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,49),40,111,98,106,101,99,116,45,101,118,105,99,116,45,116,111,45,108,111,99,97,116,105,111,110,32,120,53,49,48,32,112,116,114,53,49,49,32,46,32,108,105,109,105,116,53,49,50,41,0,0,0,0,0,0,0};
static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,12),40,100,111,53,52,55,32,105,53,52,57,41,0,0,0,0};
static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,12),40,101,118,105,99,116,32,120,53,52,52,41,0,0,0,0};
static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,18),40,111,98,106,101,99,116,45,115,105,122,101,32,120,53,52,49,41,0,0,0,0,0,0};
static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,12),40,100,111,53,55,54,32,105,53,55,56,41,0,0,0,0};
static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,11),40,99,111,112,121,32,120,53,54,55,41,0,0,0,0,0};
static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,31),40,111,98,106,101,99,116,45,117,110,101,118,105,99,116,32,120,53,53,56,32,46,32,103,53,53,55,53,53,57,41,0};
static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,53,56,55,41,0,0,0};
static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,23),40,111,98,106,101,99,116,45,98,101,99,111,109,101,33,32,108,115,116,53,56,53,41,0};
static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,33),40,109,117,116,97,116,101,45,112,114,111,99,101,100,117,114,101,32,111,108,100,53,57,55,32,112,114,111,99,53,57,56,41,0,0,0,0,0,0,0};
static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,33),40,109,97,107,101,45,108,111,99,97,116,105,118,101,32,111,98,106,54,48,52,32,46,32,105,110,100,101,120,54,48,53,41,0,0,0,0,0,0,0};
static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,38),40,109,97,107,101,45,119,101,97,107,45,108,111,99,97,116,105,118,101,32,111,98,106,54,48,56,32,46,32,105,110,100,101,120,54,48,57,41,0,0};
static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,25),40,108,111,99,97,116,105,118,101,45,115,101,116,33,32,120,54,49,50,32,121,54,49,51,41,0,0,0,0,0,0,0};
static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,23),40,108,111,99,97,116,105,118,101,45,62,111,98,106,101,99,116,32,120,54,49,52,41,0};
static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,16),40,108,111,99,97,116,105,118,101,63,32,120,54,49,53,41};
static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,45),40,35,35,115,121,115,35,105,110,118,97,108,105,100,45,112,114,111,99,101,100,117,114,101,45,99,97,108,108,45,104,111,111,107,32,46,32,97,114,103,115,54,49,55,41,0,0,0};
static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,45),40,115,101,116,45,105,110,118,97,108,105,100,45,112,114,111,99,101,100,117,114,101,45,99,97,108,108,45,104,97,110,100,108,101,114,33,32,112,114,111,99,54,49,54,41,0,0,0};
static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,33),40,117,110,98,111,117,110,100,45,118,97,114,105,97,98,108,101,45,118,97,108,117,101,32,46,32,118,97,108,54,50,48,41,0,0,0,0,0,0,0};
static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,19),40,103,108,111,98,97,108,45,114,101,102,32,115,121,109,54,50,49,41,0,0,0,0,0};
static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,25),40,103,108,111,98,97,108,45,115,101,116,33,32,115,121,109,54,50,51,32,120,54,50,52,41,0,0,0,0,0,0,0};
static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,22),40,103,108,111,98,97,108,45,98,111,117,110,100,63,32,115,121,109,54,50,54,41,0,0};
static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,29),40,103,108,111,98,97,108,45,109,97,107,101,45,117,110,98,111,117,110,100,33,32,115,121,109,54,50,56,41,0,0,0};
static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,14),67,95,108,111,99,97,116,105,118,101,95,114,101,102,0,0};
static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,18),40,97,51,48,49,57,32,98,118,51,54,54,32,105,51,54,55,41,0,0,0,0,0,0};
static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,15),40,97,51,48,52,57,32,97,51,48,52,51,48,56,41,0};
static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,15),40,97,51,48,53,57,32,97,50,57,55,51,48,49,41,0};
static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,15),40,97,51,48,54,57,32,97,50,57,48,50,57,52,41,0};
static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,15),40,97,51,48,55,57,32,97,50,56,51,50,56,55,41,0};
static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,15),40,97,51,48,56,57,32,97,50,55,55,50,56,49,41,0};
static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,15),40,97,51,48,57,57,32,97,50,55,49,50,55,53,41,0};
static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,15),40,97,51,49,48,57,32,97,50,54,53,50,54,57,41,0};
static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,15),40,97,51,49,49,57,32,97,50,53,57,50,54,51,41,0};
static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};


/* from k2378 */
static C_word C_fcall stub494(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub494(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * t0=(void * )C_c_pointer_or_null(C_a0);
C_free(t0);
return C_r;}

/* from k2289 */
static C_word C_fcall stub467(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub467(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
C_r=C_mpointer_or_false(&C_a,(void*)C_malloc(t0));
return C_r;}

/* from k1865 */
#define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend
static C_word C_fcall stub393(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub393(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int size=(int )C_unfix(C_a0);
char *bv;
           if((bv = (char *)C_malloc(size + 3 + sizeof(C_header))) == NULL) return(C_SCHEME_FALSE);
           bv = (char *)C_align((C_word)bv);
           ((C_SCHEME_BLOCK *)bv)->header = C_BYTEVECTOR_TYPE | size;
           return((C_word)bv);
C_ret:
#undef return

return C_r;}

/* from k3053 */
#define return(x) C_cblock C_r = (C_flonum(&C_a,(x))); goto C_ret; C_cblockend
static C_word C_fcall stub305(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub305(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * p=(void * )C_c_pointer_or_null(C_a0);
return(*((double *)p));
C_ret:
#undef return

return C_r;}

/* from k3063 */
#define return(x) C_cblock C_r = (C_flonum(&C_a,(x))); goto C_ret; C_cblockend
static C_word C_fcall stub298(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub298(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * p=(void * )C_c_pointer_or_null(C_a0);
return(*((float *)p));
C_ret:
#undef return

return C_r;}

/* from k3073 */
#define return(x) C_cblock C_r = (C_int_to_num(&C_a,(x))); goto C_ret; C_cblockend
static C_word C_fcall stub291(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub291(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * p=(void * )C_c_pointer_or_null(C_a0);
return(*((C_s32 *)p));
C_ret:
#undef return

return C_r;}

/* from k3083 */
#define return(x) C_cblock C_r = (C_int_to_num(&C_a,(x))); goto C_ret; C_cblockend
static C_word C_fcall stub284(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub284(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * p=(void * )C_c_pointer_or_null(C_a0);
return(*((C_u32 *)p));
C_ret:
#undef return

return C_r;}

/* from k3093 */
#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend
static C_word C_fcall stub278(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub278(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * p=(void * )C_c_pointer_or_null(C_a0);
return(*((short *)p));
C_ret:
#undef return

return C_r;}

/* from k3103 */
#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend
static C_word C_fcall stub272(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub272(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * p=(void * )C_c_pointer_or_null(C_a0);
return(*((unsigned short *)p));
C_ret:
#undef return

return C_r;}

/* from k3113 */
#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend
static C_word C_fcall stub266(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub266(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * p=(void * )C_c_pointer_or_null(C_a0);
return(*((char *)p));
C_ret:
#undef return

return C_r;}

/* from k3123 */
#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend
static C_word C_fcall stub260(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub260(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * p=(void * )C_c_pointer_or_null(C_a0);
return(*((unsigned char *)p));
C_ret:
#undef return

return C_r;}

/* from k1431 */
#define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend
static C_word C_fcall stub253(C_word C_buf,C_word C_a0,C_word C_a1) C_regparm;
C_regparm static C_word C_fcall stub253(C_word C_buf,C_word C_a0,C_word C_a1){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * p=(void * )C_c_pointer_or_null(C_a0);
float n=(float )C_c_double(C_a1);
*((double *)p) = n;
C_ret:
#undef return

return C_r;}

/* from k1417 */
#define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend
static C_word C_fcall stub245(C_word C_buf,C_word C_a0,C_word C_a1) C_regparm;
C_regparm static C_word C_fcall stub245(C_word C_buf,C_word C_a0,C_word C_a1){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * p=(void * )C_c_pointer_or_null(C_a0);
double n=(double )C_c_double(C_a1);
*((float *)p) = n;