// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: s7_hash_table_set
s7_pointer s7_hash_table_set(s7_scheme *sc, s7_pointer table, s7_pointer key, s7_pointer value)
                {
                    s7_int hash_mask, loc;
                    hash_entry_t *p, *x;
#if S7_DEBUGGING
                    if (is_immutable(table)) fprintf(stderr, "%s[%d]: table immutable\n", __func__, __LINE__);
#endif
                    if (value == sc->F)
                        return(remove_from_hash_table(sc, table, key, (*hash_table_checker(table))(sc, table, key)));

                    if ((is_typed_hash_table(table)) &&
                            (sc->safety >= NO_SAFETY))
                        check_hash_types(sc, table, key, value);

                    x = (*hash_table_checker(table))(sc, table, key);
                    if (x != sc->unentry)
                    {
                        hash_entry_set_value(x, T_Pos(value));
                        return(value);
                    }
                    /* hash_entry_raw_hash(x) can save the hash_loc from the lookup operations, but at some added complexity in
                     *   all the preceding code.  This saves about 5% compute time best case in this function.
                     */

                    if (!hash_chosen(table))
                        hash_table_set_checker(table, type(key)); /* raw_hash value (hash_loc(sc, table, key)) does not change via hash_table_set_checker etc */

                    p = mallocate_block(sc);
                    hash_entry_key(p) = key;
                    hash_entry_set_value(p, T_Pos(value));
                    hash_entry_set_raw_hash(p, hash_loc(sc, table, key));
                    hash_mask = hash_table_mask(table);
                    loc = hash_entry_raw_hash(p) & hash_mask;
                    hash_entry_next(p) = hash_table_element(table, loc);
                    hash_table_element(table, loc) = p;

                    hash_table_entries(table)++;
                    if (hash_table_entries(table) > hash_mask)
                        resize_hash_table(sc, table);

                    return(value);
                }

// Assembly:
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
movq %rdx, %r12
movq %rsi, %r14
movq %rdi, %rbx
cmpq %rcx, 0x120(%rdi)
je 0x38e36
movq %rcx, %r15
movzwl 0x6(%r14), %eax
testb $0x2, %al
je 0x39051
cmpq $0x0, 0x6a0(%rbx)
js 0x39051
movq 0x28(%r14), %rcx
movq 0x20(%rcx), %rcx
movq 0x18(%rcx), %rsi
testb $0x4, %al
jne 0x38e7c
cmpq 0x118(%rbx), %rsi
je 0x38f78
cmpb $0x30, (%rsi)
jb 0x38f00
movq 0x10(%rsi), %rax
movq 0x700(%rbx), %rcx
movq %r12, 0x8(%rcx)
movq 0x700(%rbx), %rsi
movq %rbx, %rdi
callq *%rax
jmp 0x38f1a
movq %rbx, %rdi
movq %r14, %rsi
movq %r12, %rdx
callq *0x18(%r14)
cmpq %rax, 0x490(%rbx)
je 0x38ef4
movq 0x10(%rax), %rdx
andq 0x8(%r14), %rdx
movq 0x10(%r14), %rsi
movq (%rsi,%rdx,8), %rcx
cmpq %rax, %rcx
je 0x38ea7
movq %rcx, %rdx
movq 0x18(%rcx), %rcx
testq %rcx, %rcx
je 0x38eb2
cmpq %rax, %rcx
jne 0x38e65
addq $0x18, %rdx
jmp 0x38eab
movq 0x8(%rsi), %rax
movq 0x58(%rax), %rcx
movq 0x8(%rcx), %rcx
movq 0x20(%rcx), %rcx
movb (%r12), %dl
cmpb 0x10(%rcx), %dl
je 0x38f78
cmpb $0x2f, (%rsi)
jbe 0x38f3a
jmp 0x38f4e
leaq (%rsi,%rdx,8), %rdx
movq 0x18(%rcx), %rax
movq %rax, (%rdx)
movq 0x28(%r14), %rax
decq 0x18(%rax)
movq 0x28(%r14), %rax
cmpq $0x0, 0x18(%rax)
jne 0x38ee2
leaq 0x119da4(%rip), %rax    # 0x152c70
cmpq %rax, 0x20(%r14)
jne 0x38ee2
leaq 0x657b(%rip), %rax      # 0x3f454
movq %rax, 0x18(%r14)
andb $-0x21, 0x3(%r14)
movq 0x838(%rbx), %rax
movq %rax, 0x18(%rcx)
movq %rcx, 0x838(%rbx)
movq 0x120(%rbx), %r15
jmp 0x39171
movq 0x700(%rbx), %rax
movq %r12, 0x8(%rax)
movq 0x700(%rbx), %rdx
movq %rbx, %rdi
callq 0xbd41
cmpq 0x120(%rbx), %rax
jne 0x38f78
movq 0x28(%r14), %rax
movq 0x20(%rax), %rax
movq 0x18(%rax), %rsi
cmpb $0x30, (%rsi)
jb 0x38f3a
movq 0x8(%rsi), %rax
jmp 0x38f4e
movq 0x18(%rsi), %rdx
movq %rbx, %rdi
callq 0xa05a7
movq 0x8(%rax), %rax
addq $0x10, %rax
movq (%rax), %rsi
movq %rbx, %rdi
movl $0x1, %edx
callq 0xa0491
leaq 0xe719e(%rip), %rsi     # 0x120103
movl $0x2, %edx
movq %rbx, %rdi
movq %r12, %rcx
movq %rax, %r8
callq 0xe25f
testb $0x1, 0x6(%r14)
movq 0x28(%r14), %rax
movq 0x20(%rax), %rax
movq 0x20(%rax), %rsi
jne 0x38fba
cmpq 0x118(%rbx), %rsi
je 0x39051
cmpb $0x30, (%rsi)
jb 0x38fd9
movq 0x10(%rsi), %rax
movq 0x700(%rbx), %rcx
movq %r15, 0x8(%rcx)
movq 0x700(%rbx), %rsi
movq %rbx, %rdi
callq *%rax
jmp 0x38ff3
movq 0x8(%rsi), %rax
movq 0x58(%rax), %rcx
movq 0x8(%rcx), %rcx
movq 0x20(%rcx), %rcx
movb (%r15), %dl
cmpb 0x10(%rcx), %dl
je 0x39051
cmpb $0x2f, (%rsi)
jbe 0x39013
jmp 0x39027
movq 0x700(%rbx), %rax
movq %r15, 0x8(%rax)
movq 0x700(%rbx), %rdx
movq %rbx, %rdi
callq 0xbd41
cmpq 0x120(%rbx), %rax
jne 0x39051
movq 0x28(%r14), %rax
movq 0x20(%rax), %rax
movq 0x20(%rax), %rsi
cmpb $0x30, (%rsi)
jb 0x39013
movq 0x8(%rsi), %rax
jmp 0x39027
movq 0x18(%rsi), %rdx
movq %rbx, %rdi
callq 0xa05a7
movq 0x8(%rax), %rax
addq $0x10, %rax
movq (%rax), %rsi
movq %rbx, %rdi
movl $0x1, %edx
callq 0xa0491
leaq 0xe70d9(%rip), %rsi     # 0x120117
movl $0x3, %edx
movq %rbx, %rdi
movq %r15, %rcx
movq %rax, %r8
callq 0xe25f
movq %rbx, %rdi
movq %r14, %rsi
movq %r12, %rdx
callq *0x18(%r14)
cmpq 0x490(%rbx), %rax
je 0x39070
movq %r15, 0x20(%rax)
jmp 0x39171
movq (%r14), %rax
btl $0x1d, %eax
jb 0x390b8
movzbl (%r12), %ecx
movq 0x18(%r14), %rdx
leaq 0x11af67(%rip), %rsi    # 0x153ff0
movq (%rsi,%rcx,8), %rcx
cmpq %rcx, %rdx
je 0x390b8
leaq 0x63bb(%rip), %rsi      # 0x3f454
cmpq %rsi, %rdx
je 0x390b4
leaq 0x696c(%rip), %rcx      # 0x3fa11
movq %rcx, 0x18(%r14)
orq $0x20000000, %rax       # imm = 0x20000000
movq %rax, (%r14)
jmp 0x390b8
movq %rcx, 0x18(%r14)
cmpq $0x0, 0x838(%rbx)
jne 0x390fe
movl $0x2800, %edi           # imm = 0x2800
callq 0x9480
movq %rax, 0x838(%rbx)
addq $0x28, %rax
movl $0xff, %ecx
movq %rax, -0x10(%rax)
movl $0x0, -0x20(%rax)
addq $0x28, %rax
decl %ecx
jne 0x390dc
movq $0x0, -0x10(%rax)
movl $0x0, -0x20(%rax)
movq 0x838(%rbx), %r13
movq 0x18(%r13), %rax
movq %rax, 0x838(%rbx)
movl $0x0, 0x8(%r13)
movq %r12, (%r13)
movq %r15, 0x20(%r13)
movq 0x20(%r14), %rax
movzbl (%r12), %ecx
movq %rbx, %rdi
movq %r14, %rsi
movq %r12, %rdx
callq *(%rax,%rcx,8)
movq %rax, 0x10(%r13)
movq 0x8(%r14), %rcx
movq 0x10(%r14), %rdx
andq %rcx, %rax
movq (%rdx,%rax,8), %rdx
movq %rdx, 0x18(%r13)
movq 0x10(%r14), %rdx
movq %r13, (%rdx,%rax,8)
movq 0x28(%r14), %rax
incq 0x18(%rax)
movq 0x28(%r14), %rax
cmpq %rcx, 0x18(%rax)
jle 0x39171
movq %rbx, %rdi
movq %r14, %rsi
callq 0x402db
movq %r15, %rax
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq