{ { REG0 = get_c_units(); RETURN1(); }} #undef FPLACE_CODE EPILOGUE(get_c_units) BEGIN_BACK(get_c_units) BACK_MONOTONE(get_c_units_0) END_BACK(get_c_units) static struct function_descr get_c_units_descr = { &corelib_part_linkinfo, JUMP_TABLE( get_c_units ), rsfn_get_c_units_name }; #undef FUNCTION /*********************** Raw glue `flush-link-data' ***********************/ static char rsfn_flush_link_data_name[] = "flush-link-data"; #define FUNCTION rsfn_flush_link_data_name PROLOGUE(flush_link_data) BEGIN_FWD(flush_link_data) FWD_MONOTONE(flush_link_data_0) END_FWD(flush_link_data)
var, val, expect ); } _rs_volatile void type_check_failed( const char *fn ) { scheme_error( "type check failed in ~a", 1, make_string(fn) ); } BEGIN_BACK(full_call) BACK_MONOTONE(full_call) BACK_MONOTONE(full_call_done) END_BACK(full_call) static struct function_descr full_call_descr = { &rscheme_runtime_part, JUMP_TABLE(full_call), "full-call" }; static struct function_descr *(fn_tab[]) = { &full_call_descr, NULL }; struct part_descr rscheme_runtime_part = { 9501, &module_rscheme, fn_tab, "rscheme-hasht" };
#undef FPLACE_CODE EPILOGUE(sort_down_heap) BEGIN_BACK(sort_down_heap) BACK_MONOTONE(sort_down_heap_0) BACK_MONOTONE(sort_down_heap_1) BACK_MONOTONE(sort_down_heap_2) BACK_MONOTONE(sort_down_heap_3) BACK_MONOTONE(sort_down_heap_4) BACK_MONOTONE(sort_down_heap_5) END_BACK(sort_down_heap) static struct function_descr sort_down_heap_descr = { &sort_part_sort, JUMP_TABLE( sort_down_heap ), rsfn_sort_down_heap_name }; #undef FUNCTION /******************************* Postamble *******************************/ /**************************** Part Link Table ****************************/ static struct function_descr *(part_sort_tab[]) = { &sort_down_heap_descr, NULL }; struct part_descr sort_part_sort = { 239655936, &module_sort, part_sort_tab, "sort",
HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* sect flags */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 3, /* minimum alignment power */ _do_getl64, _do_putl64, _do_getl32, _do_putl32, _do_getl16, _do_putl16, /* data */ _do_getl64, _do_putl64, _do_getl32, _do_putl32, _do_getl16, _do_putl16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, bfd_false, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, bfd_false, bfd_false}, JUMP_TABLE (coff) }; bfd_target ecoff_big_vec = {"ecoff-bigmips", /* name */ bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* sect flags */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */
{ { REG0 = rb_to_bo(rdln_isa_tty()); RETURN1(); }} #undef FPLACE_CODE EPILOGUE(input_isa_tty) BEGIN_BACK(input_isa_tty) BACK_MONOTONE(input_isa_tty_0) END_BACK(input_isa_tty) static struct function_descr input_isa_tty_descr = { &editinp_part_readlin, JUMP_TABLE( input_isa_tty ), rsfn_input_isa_tty_name }; #undef FUNCTION /********************** Raw glue `readline-enabled?' **********************/ static char rsfn_readline_enabled_name[] = "readline-enabled?"; #define FUNCTION rsfn_readline_enabled_name PROLOGUE(readline_enabled) BEGIN_FWD(readline_enabled) FWD_MONOTONE(readline_enabled_0) END_FWD(readline_enabled)