// File: /workspace/github_c_makefile_star2_O0/azhai[P]mlite/mlite.c
// Function: init
void init(void) {
	int	i;

	for (i=2; i<MAX_STREAMS; i++)
		Streams[i] = NULL;
	Streams[0] = stdin;
	Streams[1] = stdout;
	Streams[2] = stderr;
	Stream_flags[0] = LOCK_TAG;
	Stream_flags[1] = LOCK_TAG;
	Stream_flags[2] = LOCK_TAG;
	Instream = 0;
	Outstream = 1;
	Errstream = 2;
	Cons_segment_size = INITIAL_SEGMENT_SIZE;
	Vec_segment_size = INITIAL_SEGMENT_SIZE;
	Cons_pool_size = 0,
	Vec_pool_size = 0;
	Car = NULL,
	Cdr = NULL;
	Tag = NULL;
	Free_list = NIL;
	Vectors = NULL;
	Free_vecs = 0;
	Memory_limit_kn = DEFAULT_LIMIT_KN * 1024L;
	Stack = NIL,
	Stack_bottom = NIL;
	State_stack = NIL;
	Tmp_car = NIL;
	Tmp_cdr = NIL;
	Tmp = NIL;
	Symbols = NIL;
	Program = NIL;
	Exnstack = NIL;
	Exceptions = NIL;
	Proc_ptr = 0;
	Proc_max = 3;
	Environment = NIL;
	Acc = NIL;
	Level = 0;
	Guard_lev = 0;
	Line_no = 1;
	Error_flag = 0;
	Load_level = 0;
	Displaying = 0;
	Printer_limit = 0;
	Quiet_mode = 0;
	Command_line = NULL;
	Run_stats = 0;
	new_cons_segment();
	new_vec_segment();
	gc();
	S_also = symbol_ref("also");
	S_begin = symbol_ref("begin");
	S_callcc = symbol_ref("call/cc");
	S_cons = symbol_ref("::");
	S_define = symbol_ref("define");
	S_define_syntax = symbol_ref("define_syntax");
	S_define_type = symbol_ref("define_type");
	S_else = symbol_ref("else");
	S_equal = symbol_ref("=");
	S_fn = symbol_ref("fn");
	S_from = symbol_ref(">>");
	S_greater = symbol_ref(">");
	S_if = symbol_ref("if");
	S_ignore = symbol_ref("_");
	S_less = symbol_ref("<");
	S_letrec = symbol_ref("letrec");
	S_list = symbol_ref("list");
	S_or = symbol_ref("or");
	S_quasiquote = symbol_ref("quasiquote");
	S_quote = symbol_ref("quote");
	S_raise = symbol_ref("%raise");
	S_ref = symbol_ref("ref");
	S_register = symbol_ref("%register");
	S_setb = symbol_ref("set!");
	S_to = symbol_ref("<<");
	S_tuple = symbol_ref("tuple");
	S_typecheck = symbol_ref("%typecheck");
	S_unquote = symbol_ref("unquote");
	S_unquote_splicing = symbol_ref("unquote-splicing");
	S_unregister = symbol_ref("%unregister");
	Tmp = symbol_ref("x");
	S_primlist = node(S_cons, NIL);
	S_primlist = node(Tmp, S_primlist);
	Tmp = NIL;
	S_primlist = node(S_cons, S_primlist);
	S_primlist = node(S_primlist, NIL);
	S_primlist = node(S_quote, S_primlist);
	init_ops();
	make_initial_env();
	reset_calltrace();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x10, %rsp
movl $0x2, -0x4(%rbp)
cmpl $0x20, -0x4(%rbp)
jge 0x1ef83
movslq -0x4(%rbp), %rcx
leaq 0x9220(%rip), %rax      # 0x28190
movq $0x0, (%rax,%rcx,8)
movl -0x4(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x4(%rbp)
jmp 0x1ef5f
movq 0x804e(%rip), %rax      # 0x26fd8
movq (%rax), %rax
movq %rax, 0x91fc(%rip)      # 0x28190
movq 0x8035(%rip), %rax      # 0x26fd0
movq (%rax), %rax
movq %rax, 0x91f3(%rip)      # 0x28198
movq 0x804c(%rip), %rax      # 0x26ff8
movq (%rax), %rax
movq %rax, 0x91ea(%rip)      # 0x281a0
movb $-0x80, 0x9653(%rip)    # 0x28610
movb $-0x80, 0x964d(%rip)    # 0x28611
movb $-0x80, 0x9647(%rip)    # 0x28612
movl $0x0, 0x96d3(%rip)      # 0x286a8
movl $0x1, 0x92b1(%rip)      # 0x28290
movl $0x2, 0x9c3f(%rip)      # 0x28c28
movl $0x8000, 0x95f5(%rip)   # imm = 0x8000
movl $0x8000, 0x9607(%rip)   # imm = 0x8000
movl $0x0, 0x95dd(%rip)      # 0x285e4
movl $0x0, 0x95ef(%rip)      # 0x28600
movq $0x0, 0x9164(%rip) # 0x28180
movq $0x0, 0x95a9(%rip) # 0x285d0
movq $0x0, 0x95be(%rip) # 0x285f0
movq $-0x1, 0x960b(%rip) # 0x28648
movq $0x0, 0x95b0(%rip) # 0x285f8
movq $0x0, 0x9635(%rip) # 0x28688
movq $0xc1a000, 0x9622(%rip) # imm = 0xC1A000
movq $-0x1, 0x90cf(%rip) # 0x28138
movq $-0x1, 0x90cc(%rip) # 0x28140
movq $-0x1, 0x90c9(%rip) # 0x28148
movq $-0x1, 0x909e(%rip) # 0x28128
movq $-0x1, 0x909b(%rip) # 0x28130
movq $-0x1, 0x9080(%rip) # 0x28120
movq $-0x1, 0x9065(%rip) # 0x28110
movq $-0x1, 0x9052(%rip) # 0x28108
movq $-0x1, 0x90b7(%rip) # 0x28178
movq $-0x1, 0x90a4(%rip) # 0x28170
movl $0x0, 0x94ea(%rip)      # 0x285c0
movl $0x3, 0x91bc(%rip)      # 0x2829c
movq $-0x1, 0x902d(%rip) # 0x28118
movq $-0x1, 0x905a(%rip) # 0x28150
movl $0x0, 0x9590(%rip)      # 0x28690
movl $0x0, 0x95e6(%rip)      # 0x286f0
movl $0x1, 0x94cc(%rip)      # 0x285e0
movl $0x0, 0x94a6(%rip)      # 0x285c4
movl $0x0, 0x9570(%rip)      # 0x28698
movl $0x0, 0x959e(%rip)      # 0x286d0
movl $0x0, 0x9158(%rip)      # 0x28294
movl $0x0, 0x9482(%rip)      # 0x285c8
movq $0x0, 0x9a97(%rip) # 0x28be8
movl $0x0, 0x94d5(%rip)      # 0x28630
callq 0x3cd0
callq 0x3e10
callq 0x43d0
leaq 0x15fc(%rip), %rdi      # 0x2076d
callq 0x9420
movq %rax, 0x957b(%rip)      # 0x286f8
leaq 0x23db(%rip), %rdi      # 0x2155f
callq 0x9420
movq %rax, 0x95d8(%rip)      # 0x28768
leaq 0x1f38(%rip), %rdi      # 0x210cf
callq 0x9420
movq %rax, 0x959d(%rip)      # 0x28740
leaq 0x10cb(%rip), %rdi      # 0x20275
callq 0x9420
movq %rax, 0x94ea(%rip)      # 0x286a0
leaq 0x23a8(%rip), %rdi      # 0x21565
callq 0x9420
movq %rax, 0x95a7(%rip)      # 0x28770
leaq 0x239c(%rip), %rdi      # 0x2156c
callq 0x9420
movq %rax, 0x95c4(%rip)      # 0x287a0
leaq 0x2397(%rip), %rdi      # 0x2157a
callq 0x9420
movq %rax, 0x9591(%rip)      # 0x28780
leaq 0x1588(%rip), %rdi      # 0x2077e
callq 0x9420
movq %rax, 0x9a06(%rip)      # 0x28c08
leaq 0x105c(%rip), %rdi      # 0x20265
callq 0x9420
movq %rax, 0x94f3(%rip)      # 0x28708
leaq 0x14a0(%rip), %rdi      # 0x206bc
callq 0x9420
movq %rax, 0x94f0(%rip)      # 0x28718
leaq 0x153b(%rip), %rdi      # 0x2076a
callq 0x9420
movq %rax, 0x951d(%rip)      # 0x28758
leaq 0x1027(%rip), %rdi      # 0x20269
callq 0x9420
movq %rax, 0x9542(%rip)      # 0x28790
leaq 0x1542(%rip), %rdi      # 0x20797
callq 0x9420
movq %rax, 0x94ef(%rip)      # 0x28750
leaq 0x231e(%rip), %rdi      # 0x21586
callq 0x9420
movq %rax, 0x997c(%rip)      # 0x28bf0
leaq 0x14ed(%rip), %rdi      # 0x20768
callq 0x9420
movq %rax, 0x9501(%rip)      # 0x28788
leaq 0x22fa(%rip), %rdi      # 0x21588
callq 0x9420
movq %rax, 0x94de(%rip)      # 0x28778
leaq 0x15a2(%rip), %rdi      # 0x20843
callq 0x9420
movq %rax, 0x947b(%rip)      # 0x28728
leaq 0x1e8b(%rip), %rdi      # 0x2113f
callq 0x9420
movq %rax, 0x9450(%rip)      # 0x28710
leaq 0x22c8(%rip), %rdi      # 0x2158f
callq 0x9420
movq %rax, 0x93dd(%rip)      # 0x286b0
leaq 0x22ba(%rip), %rdi      # 0x21594
callq 0x9420
movq %rax, 0x93d2(%rip)      # 0x286b8
leaq 0x22ad(%rip), %rdi      # 0x2159a
callq 0x9420
movq %rax, 0x944f(%rip)      # 0x28748
leaq 0x1acd(%rip), %rdi      # 0x20dcd
callq 0x9420
movq %rax, 0x9414(%rip)      # 0x28720
leaq 0x1e9b(%rip), %rdi      # 0x211ae
callq 0x9420
movq %rax, 0x9419(%rip)      # 0x28738
leaq 0x227b(%rip), %rdi      # 0x215a1
callq 0x9420
movq %rax, 0x9466(%rip)      # 0x28798
leaq 0x142e(%rip), %rdi      # 0x20767
callq 0x9420
movq %rax, 0x941b(%rip)      # 0x28760
leaq 0x150b(%rip), %rdi      # 0x20857
callq 0x9420
movq %rax, 0x93a8(%rip)      # 0x28700
leaq 0x1e5d(%rip), %rdi      # 0x211bc
callq 0x9420
movq %rax, 0x9445(%rip)      # 0x287b0
leaq 0x2234(%rip), %rdi      # 0x215a6
callq 0x9420
movq %rax, 0x934a(%rip)      # 0x286c8
leaq 0x2229(%rip), %rdi      # 0x215ae
callq 0x9420
movq %rax, 0x932f(%rip)      # 0x286c0
leaq 0x1e2f(%rip), %rdi      # 0x211c7
callq 0x9420
movq %rax, 0x938c(%rip)      # 0x28730
leaq 0x1dab(%rip), %rdi      # 0x21156
callq 0x9420
movq %rax, 0x8d69(%rip)      # 0x28120
movq 0x92e2(%rip), %rdi      # 0x286a0
movq $-0x1, %rsi
xorl %edx, %edx
callq 0x3780
movq %rax, 0x93d5(%rip)      # 0x287a8
movq 0x8d46(%rip), %rdi      # 0x28120
movq 0x93c7(%rip), %rsi      # 0x287a8
xorl %edx, %edx
callq 0x3780
movq %rax, 0x93b9(%rip)      # 0x287a8
movq $-0x1, 0x8d26(%rip) # 0x28120
movq 0x929f(%rip), %rdi      # 0x286a0
movq 0x93a0(%rip), %rsi      # 0x287a8
xorl %edx, %edx
callq 0x3780
movq %rax, 0x9392(%rip)      # 0x287a8
movq 0x938b(%rip), %rdi      # 0x287a8
movq $-0x1, %rsi
xorl %edx, %edx
callq 0x3780
movq %rax, 0x9376(%rip)      # 0x287a8
movq 0x927f(%rip), %rdi      # 0x286b8
movq 0x9368(%rip), %rsi      # 0x287a8
xorl %edx, %edx
callq 0x3780
movq %rax, 0x935a(%rip)      # 0x287a8
callq 0xc320
callq 0x1ed60
callq 0x1dfc0
addq $0x10, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)