// File: /workspace/github_c_makefile_star2_O0/azhai[P]mlite/mlite.c
// Function: node3
cell node3(cell pcar, cell pcdr, int ptag) {
	cell	n;
	int	k;
	char	buf[100];

	if (Run_stats) {
		count(&Nodes);
		if (Cons_stats)
			count(&Conses);
	}
	if (Free_list == NIL) {
		if (ptag == 0)
			Tmp_car = pcar;
		if (ptag != VECTOR_TAG && ptag != STREAM_TAG)
			Tmp_cdr = pcdr;
		k = gc();
		/*
		 * Performance increases dramatically if we
		 * do not wait for the pool to run dry.
		 * In fact, don't even let it come close to that.
		 */
		if (k < Cons_pool_size / 2) {
			if (	Memory_limit_kn &&
				Cons_pool_size + Cons_segment_size
					> Memory_limit_kn
			) {
				error("hit memory limit", NOEXPR);
			}
			else {
				new_cons_segment();
				if (Verbose_GC) {
					sprintf(buf,
						"GC: new segment,"
						 " nodes = %d,"
						 " next segment = %d",
						Cons_pool_size,
						Cons_segment_size);
					pr(buf); nl();
				}
				gc();
			}
		}
		Tmp_car = Tmp_cdr = NIL;
	}
	if (Free_list == NIL)
		fatal("cons3: failed to recover from low memory condition");
	n = Free_list;
	Free_list = cdr(Free_list);
	car(n) = pcar;
	cdr(n) = pcdr;
	Tag[n] = ptag;
	return n;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0xa0, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movl %edx, -0x14(%rbp)
cmpl $0x0, 0x24e93(%rip)     # 0x28630
je 0x37c2
leaq 0x24eaa(%rip), %rdi     # 0x28650
callq 0x3390
cmpl $0x0, 0x24eb2(%rip)     # 0x28664
je 0x37c0
leaq 0x24ead(%rip), %rdi     # 0x28668
callq 0x3390
jmp 0x37c2
cmpq $-0x1, 0x24e7e(%rip)    # 0x28648
jne 0x38c1
cmpl $0x0, -0x14(%rbp)
jne 0x37e1
movq -0x8(%rbp), %rax
movq %rax, 0x24947(%rip)     # 0x28128
cmpl $0x10, -0x14(%rbp)
je 0x37f8
cmpl $0x20, -0x14(%rbp)
je 0x37f8
movq -0x10(%rbp), %rax
movq %rax, 0x24938(%rip)     # 0x28130
callq 0x43d0
movl %eax, -0x24(%rbp)
movl -0x24(%rbp), %eax
movl %eax, -0x94(%rbp)
movl 0x24dd5(%rip), %eax     # 0x285e4
movl $0x2, %ecx
cltd
idivl %ecx
movl %eax, %ecx
movl -0x94(%rbp), %eax
cmpl %ecx, %eax
jge 0x38ab
cmpq $0x0, 0x24e51(%rip)     # 0x28680
je 0x385d
movl 0x24dad(%rip), %eax     # 0x285e4
addl 0x24dab(%rip), %eax     # 0x285e8
cltq
cmpq 0x24e3a(%rip), %rax     # 0x28680
jle 0x385d
leaq 0x1cab3(%rip), %rdi     # 0x20302
movq $-0x8, %rsi
callq 0x34b0
jmp 0x38a9
callq 0x3cd0
cmpl $0x0, 0x24897(%rip)     # 0x28100
je 0x38a4
leaq -0x90(%rbp), %rdi
movl 0x24d6c(%rip), %edx     # 0x285e4
movl 0x24d6a(%rip), %ecx     # 0x285e8
leaq 0x1ca8e(%rip), %rsi     # 0x20313
movb $0x0, %al
callq 0x3200
leaq -0x90(%rbp), %rdi
callq 0x3ab0
leaq 0x1e134(%rip), %rdi     # 0x219d3
callq 0x3ab0
callq 0x43d0
jmp 0x38ab
movq $-0x1, 0x2487a(%rip) # 0x28130
movq $-0x1, 0x24867(%rip) # 0x28128
cmpq $-0x1, 0x24d7f(%rip)    # 0x28648
jne 0x38d7
leaq 0x1ca70(%rip), %rdi     # 0x20342
callq 0x3c70
movq 0x24d6a(%rip), %rax     # 0x28648
movq %rax, -0x20(%rbp)
movq 0x24ce7(%rip), %rax     # 0x285d0
movq 0x24d58(%rip), %rcx     # 0x28648
movq (%rax,%rcx,8), %rax
movq %rax, 0x24d4d(%rip)     # 0x28648
movq -0x8(%rbp), %rdx
movq 0x2487a(%rip), %rax     # 0x28180
movq -0x20(%rbp), %rcx
movq %rdx, (%rax,%rcx,8)
movq -0x10(%rbp), %rdx
movq 0x24cb7(%rip), %rax     # 0x285d0
movq -0x20(%rbp), %rcx
movq %rdx, (%rax,%rcx,8)
movl -0x14(%rbp), %eax
movb %al, %dl
movq 0x24cc3(%rip), %rax     # 0x285f0
movq -0x20(%rbp), %rcx
movb %dl, (%rax,%rcx)
movq -0x20(%rbp), %rax
addq $0xa0, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)