{
{
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)
