// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: hash_table_set_chooser
static s7_pointer hash_table_set_chooser(s7_scheme *sc, s7_pointer f, int32_t args, s7_pointer expr, bool ops)
                {
                    if ((args == 3) && (optimize_op(expr) == OP_SSA_DIRECT)) /* a tedious experiment... OP=HOP here */
                    {
                        s7_pointer val;
                        val = cadddr(expr);
                        if ((is_pair(val)) && (car(val) == sc->add_symbol) && (safe_list_length(val) == 3) &&
                                ((cadr(val) == small_int(1)) || (caddr(val) == small_int(1))))
                        {
                            s7_pointer add1;
                            add1 = (cadr(val) == small_int(1)) ? caddr(val) : cadr(val);
                            if ((is_pair(add1)) && (car(add1) == sc->or_symbol) && (safe_list_length(add1) == 3) &&
                                    (caddr(add1) == small_int(0)))
                            {
                                s7_pointer or1;
                                or1 = cadr(add1);
                                if ((is_pair(or1)) && (car(or1) == sc->hash_table_ref_symbol) && (safe_list_length(or1) == 3) &&
                                        (cadr(or1) == cadr(expr)) && (caddr(or1) == caddr(expr)))
                                {
                                    /* (hash-table-set! counts p (+ (or (hash-table-ref counts p) 0) 1)) -- ssa_direct and hop_safe_c_ss */
                                    /* fprintf(stderr, "%s: %s %s\n", DISPLAY(expr), op_names[optimize_op(expr)], op_names[optimize_op(or1)]); */
                                    set_optimize_op(expr, OP_HASH_INCREMENT);
                                }
                            }
                        }
                    }
                    return(f);
                }

// Assembly:
subq $0x48, %rsp
movb %r8b, %al
movq %rdi, 0x40(%rsp)
movq %rsi, 0x38(%rsp)
movl %edx, 0x34(%rsp)
movq %rcx, 0x28(%rsp)
andb $0x1, %al
movb %al, 0x27(%rsp)
cmpl $0x3, 0x34(%rsp)
jne 0x1d6e29
movq 0x28(%rsp), %rax
movzwl 0x4(%rax), %eax
cmpl $0x18d, %eax            # imm = 0x18D
jne 0x1d6e29
movq 0x28(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1, %eax
jne 0x1d6e27
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x40(%rsp), %rcx
cmpq 0xba8(%rcx), %rax
jne 0x1d6e27
movq 0x18(%rsp), %rdi
callq 0x3a070
cmpq $0x3, %rax
jne 0x1d6e27
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
cmpq 0x3f7bb(%rip), %rax     # 0x216488
je 0x1d6ced
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
cmpq 0x3f7a1(%rip), %rax     # 0x216488
jne 0x1d6e27
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
cmpq 0x3f787(%rip), %rax     # 0x216488
jne 0x1d6d1a
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, (%rsp)
jmp 0x1d6d2b
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, (%rsp)
movq (%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1, %eax
jne 0x1d6e25
movq 0x10(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x40(%rsp), %rcx
cmpq 0x1828(%rcx), %rax
jne 0x1d6e25
movq 0x10(%rsp), %rdi
callq 0x3a070
cmpq $0x3, %rax
jne 0x1d6e25
movq 0x10(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
cmpq 0x3f6f4(%rip), %rax     # 0x216480
jne 0x1d6e25
movq 0x10(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1, %eax
jne 0x1d6e23
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x40(%rsp), %rcx
cmpq 0xf68(%rcx), %rax
jne 0x1d6e23
movq 0x8(%rsp), %rdi
callq 0x3a070
cmpq $0x3, %rax
jne 0x1d6e23
movq 0x8(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq 0x28(%rsp), %rcx
movq 0x10(%rcx), %rcx
cmpq 0x8(%rcx), %rax
jne 0x1d6e23
movq 0x8(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq 0x28(%rsp), %rcx
movq 0x10(%rcx), %rcx
movq 0x10(%rcx), %rcx
cmpq 0x8(%rcx), %rax
jne 0x1d6e23
movq 0x28(%rsp), %rax
movw $0x18e, 0x4(%rax)       # imm = 0x18E
jmp 0x1d6e25
jmp 0x1d6e27
jmp 0x1d6e29
movq 0x38(%rsp), %rax
addq $0x48, %rsp
retq
nopw %cs:(%rax,%rax)