// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: init_typers
static void init_typers(s7_scheme *sc)
                {
                    sc->type_to_typers[T_FREE] =                sc->F;
                    sc->type_to_typers[T_PAIR] =                sc->is_pair_symbol;
                    sc->type_to_typers[T_NIL] =                 sc->is_null_symbol;
                    sc->type_to_typers[T_EOF_OBJECT] =          sc->is_eof_object_symbol;
                    sc->type_to_typers[T_UNDEFINED] =           sc->is_undefined_symbol;
                    sc->type_to_typers[T_UNSPECIFIED] =         sc->is_unspecified_symbol;
                    sc->type_to_typers[T_BOOLEAN] =             sc->is_boolean_symbol;
                    sc->type_to_typers[T_CHARACTER] =           sc->is_char_symbol;
                    sc->type_to_typers[T_SYMBOL] =              sc->is_symbol_symbol;      /* and keyword? */
                    sc->type_to_typers[T_SYNTAX] =              sc->is_syntax_symbol;
                    sc->type_to_typers[T_INTEGER] =             sc->is_integer_symbol;
                    sc->type_to_typers[T_RATIO] =               sc->is_rational_symbol;
                    sc->type_to_typers[T_REAL] =                sc->is_float_symbol;
                    sc->type_to_typers[T_COMPLEX] =             sc->is_complex_symbol;
                    sc->type_to_typers[T_BIG_INTEGER] =         sc->is_integer_symbol;
                    sc->type_to_typers[T_BIG_RATIO] =           sc->is_rational_symbol;
                    sc->type_to_typers[T_BIG_REAL] =            sc->is_float_symbol;
                    sc->type_to_typers[T_BIG_COMPLEX] =         sc->is_complex_symbol;
                    sc->type_to_typers[T_STRING] =              sc->is_string_symbol;
                    sc->type_to_typers[T_BYTE_VECTOR] =         sc->is_byte_vector_symbol;
                    sc->type_to_typers[T_C_OBJECT] =            sc->is_c_object_symbol;
                    sc->type_to_typers[T_VECTOR] =              sc->is_vector_symbol;
                    sc->type_to_typers[T_INT_VECTOR] =          sc->is_int_vector_symbol;
                    sc->type_to_typers[T_FLOAT_VECTOR] =        sc->is_float_vector_symbol;
                    sc->type_to_typers[T_CATCH] =               sc->F;
                    sc->type_to_typers[T_DYNAMIC_WIND] =        sc->F;
                    sc->type_to_typers[T_HASH_TABLE] =          sc->is_hash_table_symbol;
                    sc->type_to_typers[T_LET] =                 sc->is_let_symbol;
                    sc->type_to_typers[T_ITERATOR] =            sc->is_iterator_symbol;
                    sc->type_to_typers[T_STACK] =               sc->F;
                    sc->type_to_typers[T_COUNTER] =             sc->F;
                    sc->type_to_typers[T_SLOT] =                sc->F;
                    sc->type_to_typers[T_C_POINTER] =           sc->is_c_pointer_symbol;
                    sc->type_to_typers[T_OUTPUT_PORT] =         sc->is_output_port_symbol;
                    sc->type_to_typers[T_INPUT_PORT] =          sc->is_input_port_symbol;
                    sc->type_to_typers[T_BAFFLE] =              sc->F;
                    sc->type_to_typers[T_RANDOM_STATE] =        sc->is_random_state_symbol;
                    sc->type_to_typers[T_GOTO] =                sc->F;                       /* (continuation? goto) -> #f -- we need a type indicator for this */
                    sc->type_to_typers[T_CONTINUATION] =        sc->is_continuation_symbol;
                    sc->type_to_typers[T_CLOSURE] =             sc->is_procedure_symbol;
                    sc->type_to_typers[T_CLOSURE_STAR] =        sc->is_procedure_symbol;
                    sc->type_to_typers[T_C_MACRO] =             sc->is_macro_symbol;
                    sc->type_to_typers[T_MACRO] =               sc->is_macro_symbol;
                    sc->type_to_typers[T_MACRO_STAR] =          sc->is_macro_symbol;
                    sc->type_to_typers[T_BACRO] =               sc->is_macro_symbol;
                    sc->type_to_typers[T_BACRO_STAR] =          sc->is_macro_symbol;
                    sc->type_to_typers[T_C_FUNCTION] =          sc->is_procedure_symbol;
                    sc->type_to_typers[T_C_FUNCTION_STAR] =     sc->is_procedure_symbol;
                    sc->type_to_typers[T_C_ANY_ARGS_FUNCTION] = sc->is_procedure_symbol;
                    sc->type_to_typers[T_C_OPT_ARGS_FUNCTION] = sc->is_procedure_symbol;
                    sc->type_to_typers[T_C_RST_ARGS_FUNCTION] = sc->is_procedure_symbol;
                }

// Assembly:
movq %rdi, -0x8(%rsp)
movq -0x8(%rsp), %rax
movq 0x120(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x8e8(%rax)
movq -0x8(%rsp), %rax
movq 0x1140(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x8f0(%rax)
movq -0x8(%rsp), %rax
movq 0x1118(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x8f8(%rax)
movq -0x8(%rsp), %rax
movq 0x1060(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x918(%rax)
movq -0x8(%rsp), %rax
movq 0x1200(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x908(%rax)
movq -0x8(%rsp), %rax
movq 0x11f8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x910(%rax)
movq -0x8(%rsp), %rax
movq 0xfd8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x920(%rax)
movq -0x8(%rsp), %rax
movq 0x1020(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x928(%rax)
movq -0x8(%rsp), %rax
movq 0x11a0(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x938(%rax)
movq -0x8(%rsp), %rax
movq 0x11a8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x930(%rax)
movq -0x8(%rsp), %rax
movq 0x10d0(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x940(%rax)
movq -0x8(%rsp), %rax
movq 0x1178(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x948(%rax)
movq -0x8(%rsp), %rax
movq 0x11e0(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x950(%rax)
movq -0x8(%rsp), %rax
movq 0x1038(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x958(%rax)
movq -0x8(%rsp), %rax
movq 0x10d0(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x960(%rax)
movq -0x8(%rsp), %rax
movq 0x1178(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x968(%rax)
movq -0x8(%rsp), %rax
movq 0x11e0(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x970(%rax)
movq -0x8(%rsp), %rax
movq 0x1038(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x978(%rax)
movq -0x8(%rsp), %rax
movq 0x1190(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x980(%rax)
movq -0x8(%rsp), %rax
movq 0xfe8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9a8(%rax)
movq -0x8(%rsp), %rax
movq 0xff0(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x988(%rax)
movq -0x8(%rsp), %rax
movq 0x11b0(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x990(%rax)
movq -0x8(%rsp), %rax
movq 0x10c8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x998(%rax)
movq -0x8(%rsp), %rax
movq 0x1090(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9a0(%rax)
movq -0x8(%rsp), %rax
movq 0x120(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9b0(%rax)
movq -0x8(%rsp), %rax
movq 0x120(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9b8(%rax)
movq -0x8(%rsp), %rax
movq 0x10a0(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9c0(%rax)
movq -0x8(%rsp), %rax
movq 0x10e8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9c8(%rax)
movq -0x8(%rsp), %rax
movq 0x10d8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9d0(%rax)
movq -0x8(%rsp), %rax
movq 0x120(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9d8(%rax)
movq -0x8(%rsp), %rax
movq 0x120(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9e0(%rax)
movq -0x8(%rsp), %rax
movq 0x120(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9e8(%rax)
movq -0x8(%rsp), %rax
movq 0x1000(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9f0(%rax)
movq -0x8(%rsp), %rax
movq 0x1138(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0x9f8(%rax)
movq -0x8(%rsp), %rax
movq 0x10c0(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa00(%rax)
movq -0x8(%rsp), %rax
movq 0x120(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa20(%rax)
movq -0x8(%rsp), %rax
movq 0x1170(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa08(%rax)
movq -0x8(%rsp), %rax
movq 0x120(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa18(%rax)
movq -0x8(%rsp), %rax
movq 0x1048(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa10(%rax)
movq -0x8(%rsp), %rax
movq 0x1158(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa28(%rax)
movq -0x8(%rsp), %rax
movq 0x1158(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa30(%rax)
movq -0x8(%rsp), %rax
movq 0x10f8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa58(%rax)
movq -0x8(%rsp), %rax
movq 0x10f8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa38(%rax)
movq -0x8(%rsp), %rax
movq 0x10f8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa40(%rax)
movq -0x8(%rsp), %rax
movq 0x10f8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa48(%rax)
movq -0x8(%rsp), %rax
movq 0x10f8(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa50(%rax)
movq -0x8(%rsp), %rax
movq 0x1158(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa68(%rax)
movq -0x8(%rsp), %rax
movq 0x1158(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa60(%rax)
movq -0x8(%rsp), %rax
movq 0x1158(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa70(%rax)
movq -0x8(%rsp), %rax
movq 0x1158(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa78(%rax)
movq -0x8(%rsp), %rax
movq 0x1158(%rax), %rcx
movq -0x8(%rsp), %rax
movq %rcx, 0xa80(%rax)
retq
nop