// File: /workspace/github_c_makefile_star2_O0/azhai[P]mlite/mlite.c
// Function: eqv_p
int eqv_p(cell a, cell b) {
	if (a == b)
		return 1;
	if (char_p(a) && char_p(b) && char_value(a) == char_value(b))
		return 1;
	if (number_p(a) && number_p(b)) {
		if (real_p(a) != real_p(b))
			return 0;
		return real_equal_p(a, b);
	}
	return a == b;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
movq -0x10(%rbp), %rax
cmpq -0x18(%rbp), %rax
jne 0x17ee6
movl $0x1, -0x4(%rbp)
jmp 0x180f1
cmpq $0x0, -0x10(%rbp)
jl 0x17f90
movq 0x106f8(%rip), %rax     # 0x285f0
movq -0x10(%rbp), %rcx
movsbl (%rax,%rcx), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x17f90
movq 0x1026d(%rip), %rax     # 0x28180
movq -0x10(%rbp), %rcx
cmpq $-0x16, (%rax,%rcx,8)
jne 0x17f90
cmpq $0x0, -0x18(%rbp)
jl 0x17f90
movq 0x106c4(%rip), %rax     # 0x285f0
movq -0x18(%rbp), %rcx
movsbl (%rax,%rcx), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x17f90
movq 0x1023d(%rip), %rax     # 0x28180
movq -0x18(%rbp), %rcx
cmpq $-0x16, (%rax,%rcx,8)
jne 0x17f90
movq 0x1022b(%rip), %rax     # 0x28180
movq 0x10674(%rip), %rcx     # 0x285d0
movq -0x10(%rbp), %rdx
movq (%rcx,%rdx,8), %rcx
movq (%rax,%rcx,8), %rax
movq 0x10211(%rip), %rcx     # 0x28180
movq 0x1065a(%rip), %rdx     # 0x285d0
movq -0x18(%rbp), %rsi
movq (%rdx,%rsi,8), %rdx
cmpq (%rcx,%rdx,8), %rax
jne 0x17f90
movl $0x1, -0x4(%rbp)
jmp 0x180f1
cmpq $0x0, -0x10(%rbp)
jl 0x180de
movq 0x1064e(%rip), %rax     # 0x285f0
movq -0x10(%rbp), %rcx
movsbl (%rax,%rcx), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x180de
movq 0x101c3(%rip), %rax     # 0x28180
movq -0x10(%rbp), %rcx
cmpq $-0x1f, (%rax,%rcx,8)
je 0x17fde
movq 0x101b1(%rip), %rax     # 0x28180
movq -0x10(%rbp), %rcx
cmpq $-0x18, (%rax,%rcx,8)
jne 0x180de
cmpq $0x0, -0x18(%rbp)
jl 0x180de
movq 0x10600(%rip), %rax     # 0x285f0
movq -0x18(%rbp), %rcx
movsbl (%rax,%rcx), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x180de
movq 0x10175(%rip), %rax     # 0x28180
movq -0x18(%rbp), %rcx
cmpq $-0x1f, (%rax,%rcx,8)
je 0x1802c
movq 0x10163(%rip), %rax     # 0x28180
movq -0x18(%rbp), %rcx
cmpq $-0x18, (%rax,%rcx,8)
jne 0x180de
xorl %eax, %eax
cmpq $0x0, -0x10(%rbp)
movb %al, -0x19(%rbp)
jl 0x1806a
movq 0x105b1(%rip), %rax     # 0x285f0
movq -0x10(%rbp), %rcx
movsbl (%rax,%rcx), %ecx
andl $0x1, %ecx
xorl %eax, %eax
cmpl $0x0, %ecx
movb %al, -0x19(%rbp)
je 0x1806a
movq 0x10125(%rip), %rax     # 0x28180
movq -0x10(%rbp), %rcx
cmpq $-0x1f, (%rax,%rcx,8)
sete %al
movb %al, -0x19(%rbp)
movb -0x19(%rbp), %al
andb $0x1, %al
movzbl %al, %eax
movl %eax, -0x20(%rbp)
xorl %eax, %eax
cmpq $0x0, -0x18(%rbp)
movb %al, -0x1a(%rbp)
jl 0x180b3
movq 0x10568(%rip), %rax     # 0x285f0
movq -0x18(%rbp), %rcx
movsbl (%rax,%rcx), %ecx
andl $0x1, %ecx
xorl %eax, %eax
cmpl $0x0, %ecx
movb %al, -0x1a(%rbp)
je 0x180b3
movq 0x100dc(%rip), %rax     # 0x28180
movq -0x18(%rbp), %rcx
cmpq $-0x1f, (%rax,%rcx,8)
sete %al
movb %al, -0x1a(%rbp)
movl -0x20(%rbp), %eax
movb -0x1a(%rbp), %cl
andb $0x1, %cl
movzbl %cl, %ecx
cmpl %ecx, %eax
je 0x180cc
movl $0x0, -0x4(%rbp)
jmp 0x180f1
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rsi
callq 0x7950
movl %eax, -0x4(%rbp)
jmp 0x180f1
movq -0x10(%rbp), %rax
cmpq -0x18(%rbp), %rax
sete %al
andb $0x1, %al
movzbl %al, %eax
movl %eax, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x20, %rsp
popq %rbp
retq
nopw (%rax,%rax)