// File: /workspace/github_c_makefile_star2_O0/Oric4ever[P]lcc65/6502/build/../src/types.c
// Function: eqtype
int eqtype(ty1, ty2, ret) Type ty1, ty2; int ret; {
	if (ty1 == ty2)
		return 1;
	if (ty1->op != ty2->op)
		return 0;
	switch (ty1->op) {
	case CONST: case VOLATILE: case CONST+VOLATILE: case POINTER:
		return eqtype(ty1->type, ty2->type, ret);
	case ARRAY:
		if (eqtype(ty1->type, ty2->type, ret)) {
			if (ty1->size == ty2->size)
				return 1;
			if ((ty1->size == 0 && ty2->size >  0)
			||  (ty1->size >  0 && ty2->size == 0))
				return ret;
		}
		break;
	case FUNCTION:
		if (eqtype(ty1->type, ty2->type, ret)) {
			Type *p1 = ty1->u.proto, *p2 = ty2->u.proto;
			if (p1 == p2)
				return 1;
			if (p1 == 0 || p2 == 0) {
				if (p1 == 0) {
					ty1 = ty2;
					p1 = p2;
				}
				for ( ; *p1; p1++) {
					Type ty = unqual(*p1);
					if (promote(ty) != ty || ty == floattype
					|| (ty == voidtype && p1 != ty1->u.proto))
						return 0;
				}
				return 1;
			}
			for ( ; *p1 && *p2; p1++, p2++)
				if (eqtype(unqual(*p1), unqual(*p2), ret) == 0)
/*				if (eqtype(*p1, *p2, ret) == 0) */
					return 0;
			if (*p1 == 0 && *p2 == 0)
				return 1;
		}
		break;
	case CHAR:   case SHORT: case INT:     case DOUBLE:
	case VOID:   case FLOAT: case UNSIGNED:
	case STRUCT: case UNION: case ENUM:
		break;
	default:
		assert(0);
	}
	return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x70, %rsp
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
movl %edx, -0x1c(%rbp)
movq -0x10(%rbp), %rax
cmpq -0x18(%rbp), %rax
jne 0x27fa9
movl $0x1, -0x4(%rbp)
jmp 0x282a4
movq -0x10(%rbp), %rax
movl (%rax), %eax
movq -0x18(%rbp), %rcx
cmpl (%rcx), %eax
je 0x27fc3
movl $0x0, -0x4(%rbp)
jmp 0x282a4
movq -0x10(%rbp), %rax
movl (%rax), %eax
decl %eax
movl %eax, %ecx
movq %rcx, -0x40(%rbp)
subl $0x1e, %eax
ja 0x2827e
movq -0x40(%rbp), %rax
leaq 0xa46f(%rip), %rcx      # 0x32454
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq -0x10(%rbp), %rax
movq 0x10(%rax), %rdi
movq -0x18(%rbp), %rax
movq 0x10(%rax), %rsi
movl -0x1c(%rbp), %edx
callq 0x27f80
movl %eax, -0x4(%rbp)
jmp 0x282a4
movq -0x10(%rbp), %rax
movq 0x10(%rax), %rdi
movq -0x18(%rbp), %rax
movq 0x10(%rax), %rsi
movl -0x1c(%rbp), %edx
callq 0x27f80
cmpl $0x0, %eax
je 0x2807c
movq -0x10(%rbp), %rax
movl 0x8(%rax), %eax
movq -0x18(%rbp), %rcx
cmpl 0x8(%rcx), %eax
jne 0x28047
movl $0x1, -0x4(%rbp)
jmp 0x282a4
movq -0x10(%rbp), %rax
cmpl $0x0, 0x8(%rax)
jne 0x2805b
movq -0x18(%rbp), %rax
cmpl $0x0, 0x8(%rax)
jg 0x2806f
movq -0x10(%rbp), %rax
cmpl $0x0, 0x8(%rax)
jle 0x2807a
movq -0x18(%rbp), %rax
cmpl $0x0, 0x8(%rax)
jne 0x2807a
movl -0x1c(%rbp), %eax
movl %eax, -0x4(%rbp)
jmp 0x282a4
jmp 0x2807c
jmp 0x2829d
movq -0x10(%rbp), %rax
movq 0x10(%rax), %rdi
movq -0x18(%rbp), %rax
movq 0x10(%rax), %rsi
movl -0x1c(%rbp), %edx
callq 0x27f80
cmpl $0x0, %eax
je 0x2827a
movq -0x10(%rbp), %rax
movq 0x18(%rax), %rax
movq %rax, -0x28(%rbp)
movq -0x18(%rbp), %rax
movq 0x18(%rax), %rax
movq %rax, -0x30(%rbp)
movq -0x28(%rbp), %rax
cmpq -0x30(%rbp), %rax
jne 0x280d0
movl $0x1, -0x4(%rbp)
jmp 0x282a4
cmpq $0x0, -0x28(%rbp)
je 0x280e2
cmpq $0x0, -0x30(%rbp)
jne 0x2819b
cmpq $0x0, -0x28(%rbp)
jne 0x280f9
movq -0x18(%rbp), %rax
movq %rax, -0x10(%rbp)
movq -0x30(%rbp), %rax
movq %rax, -0x28(%rbp)
jmp 0x280fb
movq -0x28(%rbp), %rax
cmpq $0x0, (%rax)
je 0x2818f
movq -0x28(%rbp), %rax
movq (%rax), %rax
cmpl $0xf, (%rax)
jb 0x28126
movq -0x28(%rbp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rax
movq %rax, -0x48(%rbp)
jmp 0x28131
movq -0x28(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x48(%rbp)
movq -0x48(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x38(%rbp), %rdi
callq 0xfae0
cmpq -0x38(%rbp), %rax
jne 0x28170
movq -0x38(%rbp), %rax
cmpq 0x1c09d(%rip), %rax     # 0x441f0
je 0x28170
movq -0x38(%rbp), %rax
cmpq 0x1c0e0(%rip), %rax     # 0x44240
jne 0x2817c
movq -0x28(%rbp), %rax
movq -0x10(%rbp), %rcx
cmpq 0x18(%rcx), %rax
je 0x2817c
movl $0x0, -0x4(%rbp)
jmp 0x282a4
jmp 0x2817e
movq -0x28(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x28(%rbp)
jmp 0x280fb
movl $0x1, -0x4(%rbp)
jmp 0x282a4
jmp 0x2819d
movq -0x28(%rbp), %rcx
xorl %eax, %eax
cmpq $0x0, (%rcx)
movb %al, -0x49(%rbp)
je 0x281ba
movq -0x30(%rbp), %rax
cmpq $0x0, (%rax)
setne %al
movb %al, -0x49(%rbp)
movb -0x49(%rbp), %al
testb $0x1, %al
jne 0x281c6
jmp 0x2825b
movq -0x28(%rbp), %rax
movq (%rax), %rax
cmpl $0xf, (%rax)
jb 0x281e3
movq -0x28(%rbp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rax
movq %rax, -0x58(%rbp)
jmp 0x281ee
movq -0x28(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x58(%rbp)
movq -0x58(%rbp), %rax
movq %rax, -0x60(%rbp)
movq -0x30(%rbp), %rax
movq (%rax), %rax
cmpl $0xf, (%rax)
jb 0x28213
movq -0x30(%rbp), %rax
movq (%rax), %rax
movq 0x10(%rax), %rax
movq %rax, -0x68(%rbp)
jmp 0x2821e
movq -0x30(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x68(%rbp)
movq -0x60(%rbp), %rdi
movq -0x68(%rbp), %rsi
movl -0x1c(%rbp), %edx
callq 0x27f80
cmpl $0x0, %eax
jne 0x2823c
movl $0x0, -0x4(%rbp)
jmp 0x282a4
jmp 0x2823e
movq -0x28(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x28(%rbp)
movq -0x30(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x30(%rbp)
jmp 0x2819d
movq -0x28(%rbp), %rax
cmpq $0x0, (%rax)
jne 0x28278
movq -0x30(%rbp), %rax
cmpq $0x0, (%rax)
jne 0x28278
movl $0x1, -0x4(%rbp)
jmp 0x282a4
jmp 0x2827a
jmp 0x2829d
jmp 0x2829d
leaq 0x6e52(%rip), %rdi      # 0x2f0d7
leaq 0xa3f4(%rip), %rsi      # 0x32680
movl $0xfd, %edx
leaq 0xa8ad(%rip), %rcx      # 0x32b45
callq 0x30c0
movl $0x0, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x70, %rsp
popq %rbp
retq
nopl (%rax)