// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: iterator_equal_1
static bool iterator_equal_1(s7_scheme *sc, s7_pointer x, s7_pointer y, shared_info *ci, bool equivalent)
                {
                    s7_pointer x_seq, y_seq, xs, ys;

                    if (x == y) return(true);
                    if (!is_iterator(y)) return(false);

                    x_seq = iterator_sequence(x);
                    y_seq = iterator_sequence(y);

                    switch (type(x_seq))
                    {
                        case T_STRING:
                            return((is_string(y_seq)) &&
                                    (iterator_position(x) == iterator_position(y)) &&
                                    (iterator_length(x) == iterator_length(y)) &&
                                    (string_equal(sc, x_seq, y_seq, ci)));

                        case T_VECTOR: case T_INT_VECTOR: case T_BYTE_VECTOR: case T_FLOAT_VECTOR:
                            return((is_any_vector(y_seq)) &&
                                    (iterator_position(x) == iterator_position(y)) &&
                                    (iterator_length(x) == iterator_length(y)) &&
                                    ((equivalent) ? (vector_equivalent(sc, x_seq, y_seq, ci)) : (vector_equal(sc, x_seq, y_seq, ci))));

                            /* iterator_next is a function (pair_iterate, iterator_finished etc) */
                        case T_PAIR:
                            if (iterator_next(x) != iterator_next(y)) return(false);     /* even if seqs are equal, one might be at end */
                            if (equivalent)
                            {
                                if (!pair_equivalent(sc, x_seq, y_seq, ci))
                                    return(false);
                            }
                            else
                            {
                                if (!pair_equal(sc, x_seq, y_seq, ci))
                                    return(false);
                            }
                            for (xs = x_seq, ys = y_seq; is_pair(xs) && is_pair(ys); xs = cdr(xs), ys = cdr(ys))
                                if (xs == iterator_current(x))
                                    return(ys == iterator_current(y));
                            return(is_null(xs) && is_null(ys));

                        case T_NIL:                                                    /* (make-iterator #()) works, so () should too */
                            return(is_null(y_seq));   /* perhaps for equivalent case, check position in y as well as pair(seq(y))? */

                        case T_C_OBJECT:
                            if ((is_c_object(y_seq)) &&
                                    (iterator_position(x) == iterator_position(y)) &&
                                    (iterator_length(x) == iterator_length(y)))
                            {
                                if (equivalent)
                                    return(c_object_equivalent(sc, x_seq, y_seq, ci));
                                return(c_objects_are_equal(sc, x_seq, y_seq, ci));
                            }
                            return(false);

                        case T_LET:
                            if (!is_let(y_seq)) return(false);
                            if (iterator_next(x) != iterator_next(y)) return(false);
                            if (x_seq == sc->rootlet)
                                return(iterator_position(x) == iterator_position(y)); /* y_seq must also be sc->rootlet since nexts are the same (rootlet_iterate) */
                            if (equivalent)
                            {
                                if (!let_equivalent(sc, x_seq, y_seq, ci))
                                    return(false);
                            }
                            else
                            {
                                if (!let_equal(sc, x_seq, y_seq, ci))
                                    return(false);
                            }
                            for (xs = let_slots(x_seq), ys = let_slots(y_seq); tis_slot(xs) && tis_slot(ys); xs = next_slot(xs), ys = next_slot(ys))
                                if (xs == iterator_current_slot(x))
                                    return(ys == iterator_current_slot(y));
                            return(is_slot_end(xs) && is_slot_end(ys));

                        case T_HASH_TABLE:
                            if (!is_hash_table(y_seq)) return(false);
                            if (hash_table_entries(x_seq) != hash_table_entries(y_seq)) return(false);
                            if (hash_table_entries(x_seq) == 0) return(true);
                            if (iterator_position(x) != iterator_position(y)) return(false);
                            if (!equivalent)
                                return(hash_table_equal(sc, x_seq, y_seq, ci));
                            return(hash_table_equivalent(sc, x_seq, y_seq, ci));

                        case T_CLOSURE: case T_CLOSURE_STAR:
                            return(x_seq == y_seq); /* or closure_equal/equivalent? */

                        default:
                            break;
                    }
                    return(false);
                }

// Assembly:
subq $0x68, %rsp
movb %r8b, %al
movq %rdi, 0x58(%rsp)
movq %rsi, 0x50(%rsp)
movq %rdx, 0x48(%rsp)
movq %rcx, 0x40(%rsp)
andb $0x1, %al
movb %al, 0x3f(%rsp)
movq 0x50(%rsp), %rax
cmpq 0x48(%rsp), %rax
jne 0x1b6617
movb $0x1, 0x67(%rsp)
jmp 0x1b6bef
movq 0x48(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1d, %eax
je 0x1b662e
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
movq 0x50(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x30(%rsp)
movq 0x48(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x28(%rsp)
movq 0x30(%rsp), %rax
movzbl (%rax), %eax
decl %eax
movl %eax, %ecx
movq %rcx, 0x10(%rsp)
subl $0x28, %eax
ja 0x1b6be8
movq 0x10(%rsp), %rax
leaq 0x2a984(%rip), %rcx     # 0x1e0ff4
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq 0x28(%rsp), %rax
movzbl (%rax), %ecx
xorl %eax, %eax
cmpl $0x13, %ecx
movb %al, 0xf(%rsp)
jne 0x1b66dd
movq 0x50(%rsp), %rax
movq 0x18(%rax), %rcx
movq 0x48(%rsp), %rdx
xorl %eax, %eax
cmpq 0x18(%rdx), %rcx
movb %al, 0xf(%rsp)
jne 0x1b66dd
movq 0x50(%rsp), %rax
movq 0x20(%rax), %rcx
movq 0x48(%rsp), %rdx
xorl %eax, %eax
cmpq 0x20(%rdx), %rcx
movb %al, 0xf(%rsp)
jne 0x1b66dd
movq 0x58(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rcx
callq 0x1b2f40
movb %al, 0xf(%rsp)
movb 0xf(%rsp), %al
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
movq 0x28(%rsp), %rax
movzbl (%rax), %eax
movl %eax, %edx
xorl %eax, %eax
leaq 0x64051(%rip), %rcx     # 0x21a750
testb $0x1, (%rcx,%rdx)
movb %al, 0xe(%rsp)
je 0x1b679c
movq 0x50(%rsp), %rax
movq 0x18(%rax), %rcx
movq 0x48(%rsp), %rdx
xorl %eax, %eax
cmpq 0x18(%rdx), %rcx
movb %al, 0xe(%rsp)
jne 0x1b679c
movq 0x50(%rsp), %rax
movq 0x20(%rax), %rcx
movq 0x48(%rsp), %rdx
xorl %eax, %eax
cmpq 0x20(%rdx), %rcx
movb %al, 0xe(%rsp)
jne 0x1b679c
testb $0x1, 0x3f(%rsp)
je 0x1b676c
movq 0x58(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rcx
callq 0x1b5740
andb $0x1, %al
movzbl %al, %eax
movl %eax, 0x8(%rsp)
jmp 0x1b678e
movq 0x58(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rcx
callq 0x1b3bc0
andb $0x1, %al
movzbl %al, %eax
movl %eax, 0x8(%rsp)
movl 0x8(%rsp), %eax
cmpl $0x0, %eax
setne %al
movb %al, 0xe(%rsp)
movb 0xe(%rsp), %al
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
movq 0x50(%rsp), %rax
movq 0x28(%rax), %rax
movq 0x48(%rsp), %rcx
cmpq 0x28(%rcx), %rax
je 0x1b67c9
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
testb $0x1, 0x3f(%rsp)
je 0x1b67f9
movq 0x58(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rcx
callq 0x1b4ff0
testb $0x1, %al
jne 0x1b67f7
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
jmp 0x1b6822
movq 0x58(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rcx
callq 0x1b3730
testb $0x1, %al
jne 0x1b6820
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
jmp 0x1b6822
movq 0x30(%rsp), %rax
movq %rax, 0x20(%rsp)
movq 0x28(%rsp), %rax
movq %rax, 0x18(%rsp)
movq 0x20(%rsp), %rax
movzbl (%rax), %ecx
xorl %eax, %eax
cmpl $0x1, %ecx
movb %al, 0x7(%rsp)
jne 0x1b685b
movq 0x18(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1, %eax
sete %al
movb %al, 0x7(%rsp)
movb 0x7(%rsp), %al
testb $0x1, %al
jne 0x1b6865
jmp 0x1b68b1
movq 0x20(%rsp), %rax
movq 0x50(%rsp), %rcx
cmpq 0x10(%rcx), %rax
jne 0x1b6891
movq 0x18(%rsp), %rax
movq 0x48(%rsp), %rcx
cmpq 0x10(%rcx), %rax
sete %al
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
jmp 0x1b6893
movq 0x20(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x20(%rsp)
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x18(%rsp)
jmp 0x1b6836
movq 0x20(%rsp), %rcx
movq 0x58(%rsp), %rdx
xorl %eax, %eax
cmpq 0x110(%rdx), %rcx
movb %al, 0x6(%rsp)
jne 0x1b68e2
movq 0x18(%rsp), %rax
movq 0x58(%rsp), %rcx
cmpq 0x110(%rcx), %rax
sete %al
movb %al, 0x6(%rsp)
movb 0x6(%rsp), %al
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
movq 0x28(%rsp), %rax
movq 0x58(%rsp), %rcx
cmpq 0x110(%rcx), %rax
sete %al
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
movq 0x28(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x14, %eax
jne 0x1b6994
movq 0x50(%rsp), %rax
movq 0x18(%rax), %rax
movq 0x48(%rsp), %rcx
cmpq 0x18(%rcx), %rax
jne 0x1b6994
movq 0x50(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x48(%rsp), %rcx
cmpq 0x20(%rcx), %rax
jne 0x1b6994
testb $0x1, 0x3f(%rsp)
je 0x1b6970
movq 0x58(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rcx
callq 0x1b4480
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
movq 0x58(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rcx
callq 0x1b2fe0
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
movq 0x28(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1c, %eax
je 0x1b69b5
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
movq 0x50(%rsp), %rax
movq 0x28(%rax), %rax
movq 0x48(%rsp), %rcx
cmpq 0x28(%rcx), %rax
je 0x1b69d3
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
movq 0x30(%rsp), %rax
movq 0x58(%rsp), %rcx
cmpq 0x150(%rcx), %rax
jne 0x1b6a06
movq 0x50(%rsp), %rax
movq 0x18(%rax), %rax
movq 0x48(%rsp), %rcx
cmpq 0x18(%rcx), %rax
sete %al
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
testb $0x1, 0x3f(%rsp)
je 0x1b6a36
movq 0x58(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rcx
callq 0x1b4bc0
testb $0x1, %al
jne 0x1b6a34
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
jmp 0x1b6a5f
movq 0x58(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rcx
callq 0x1b36d0
testb $0x1, %al
jne 0x1b6a5d
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
jmp 0x1b6a5f
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x20(%rsp)
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x18(%rsp)
xorl %eax, %eax
cmpq $0x0, 0x20(%rsp)
movb %al, 0x5(%rsp)
je 0x1b6a96
cmpq $0x0, 0x18(%rsp)
setne %al
movb %al, 0x5(%rsp)
movb 0x5(%rsp), %al
testb $0x1, %al
jne 0x1b6aa0
jmp 0x1b6aec
movq 0x20(%rsp), %rax
movq 0x50(%rsp), %rcx
cmpq 0x18(%rcx), %rax
jne 0x1b6acc
movq 0x18(%rsp), %rax
movq 0x48(%rsp), %rcx
cmpq 0x18(%rcx), %rax
sete %al
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
jmp 0x1b6ace
movq 0x20(%rsp), %rax
movq 0x18(%rax), %rax
movq %rax, 0x20(%rsp)
movq 0x18(%rsp), %rax
movq 0x18(%rax), %rax
movq %rax, 0x18(%rsp)
jmp 0x1b6a7b
xorl %eax, %eax
cmpq $0x0, 0x20(%rsp)
movb %al, 0x4(%rsp)
jne 0x1b6b09
cmpq $0x0, 0x18(%rsp)
setne %al
xorb $-0x1, %al
movb %al, 0x4(%rsp)
movb 0x4(%rsp), %al
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
movq 0x28(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1b, %eax
je 0x1b6b2f
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
movq 0x30(%rsp), %rax
movq 0x28(%rax), %rax
movq 0x18(%rax), %rax
movq 0x28(%rsp), %rcx
movq 0x28(%rcx), %rcx
cmpq 0x18(%rcx), %rax
je 0x1b6b55
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
movq 0x30(%rsp), %rax
movq 0x28(%rax), %rax
cmpq $0x0, 0x18(%rax)
jne 0x1b6b6f
movb $0x1, 0x67(%rsp)
jmp 0x1b6bef
movq 0x50(%rsp), %rax
movq 0x18(%rax), %rax
movq 0x48(%rsp), %rcx
cmpq 0x18(%rcx), %rax
je 0x1b6b8a
movb $0x0, 0x67(%rsp)
jmp 0x1b6bef
testb $0x1, 0x3f(%rsp)
jne 0x1b6bb2
movq 0x58(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rcx
callq 0x1b3690
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
movq 0x58(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rcx
callq 0x1b4b80
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
movq 0x30(%rsp), %rax
cmpq 0x28(%rsp), %rax
sete %al
andb $0x1, %al
movb %al, 0x67(%rsp)
jmp 0x1b6bef
jmp 0x1b6bea
movb $0x0, 0x67(%rsp)
movb 0x67(%rsp), %al
andb $0x1, %al
addq $0x68, %rsp
retq
nopw (%rax,%rax)