// File: /workspace/github_c_makefile_star2_O2/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 0x2a863
movq %rcx, %r15
movzwl 0x6(%r14), %eax
testb $0x2, %al
je 0x2aa3e
cmpq $0x0, 0x6a0(%rbx)
js 0x2aa3e
movq 0x28(%r14), %rcx
movq 0x20(%rcx), %rcx
movq 0x18(%rcx), %rsi
testb $0x4, %al
jne 0x2a8a9
cmpq 0x118(%rbx), %rsi
je 0x2a985
cmpb $0x30, (%rsi)
jb 0x2a928
movq 0x10(%rsi), %rax
movq 0x700(%rbx), %rcx
movq %r12, 0x8(%rcx)
movq 0x700(%rbx), %rsi
movq %rbx, %rdi
callq *%rax
jmp 0x2a942
movq %rbx, %rdi
movq %r14, %rsi
movq %r12, %rdx
callq *0x18(%r14)
cmpq %rax, 0x490(%rbx)
je 0x2a91c
movq 0x10(%rax), %rdx
andq 0x8(%r14), %rdx
movq 0x10(%r14), %rsi
movq (%rsi,%rdx,8), %rcx
cmpq %rax, %rcx
je 0x2a8cb
movq %rcx, %rdx
movq 0x18(%rcx), %rcx
testq %rcx, %rcx
je 0x2a8d8
cmpq %rax, %rcx
jne 0x2a892
addq $0x18, %rdx
jmp 0x2a8cf
movq 0x8(%rsi), %rax
movq 0x58(%rax), %rax
movq 0x8(%rax), %rax
movq 0x20(%rax), %rax
movb (%r12), %cl
cmpb 0x10(%rax), %cl
jne 0x2a957
jmp 0x2a985
leaq (%rsi,%rdx,8), %rdx
movq 0x18(%rcx), %rax
movq %rax, (%rdx)
jmp 0x2a8da
xorl %ecx, %ecx
movq 0x28(%r14), %rax
decq 0x18(%rax)
movq 0x28(%r14), %rax
cmpq $0x0, 0x18(%rax)
jne 0x2a90a
leaq 0xef37c(%rip), %rax     # 0x119c70
cmpq %rax, 0x20(%r14)
jne 0x2a90a
leaq 0x565a(%rip), %rax      # 0x2ff5b
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 0x2aad1
movq 0x700(%rbx), %rax
movq %r12, 0x8(%rax)
movq 0x700(%rbx), %rdx
movq %rbx, %rdi
callq 0xa34c
cmpq 0x120(%rbx), %rax
jne 0x2a985
movq 0x28(%r14), %rax
movq 0x20(%rax), %rax
movq 0x18(%rax), %rsi
movq %rbx, %rdi
callq 0x7b558
pushq $0x1
popq %rdx
movq %rbx, %rdi
movq %rax, %rsi
callq 0x7b04d
leaq 0xb883f(%rip), %rsi     # 0xe31b3
pushq $0x2
popq %rdx
movq %rbx, %rdi
movq %r12, %rcx
movq %rax, %r8
callq 0xc2b0
testb $0x1, 0x6(%r14)
movq 0x28(%r14), %rax
movq 0x20(%rax), %rax
movq 0x20(%rax), %rsi
jne 0x2a9c7
cmpq 0x118(%rbx), %rsi
je 0x2aa3e
cmpb $0x30, (%rsi)
jb 0x2a9e1
movq 0x10(%rsi), %rax
movq 0x700(%rbx), %rcx
movq %r15, 0x8(%rcx)
movq 0x700(%rbx), %rsi
movq %rbx, %rdi
callq *%rax
jmp 0x2a9fb
movq 0x8(%rsi), %rax
movq 0x58(%rax), %rax
movq 0x8(%rax), %rax
movq 0x20(%rax), %rax
movb (%r15), %cl
cmpb 0x10(%rax), %cl
jne 0x2aa10
jmp 0x2aa3e
movq 0x700(%rbx), %rax
movq %r15, 0x8(%rax)
movq 0x700(%rbx), %rdx
movq %rbx, %rdi
callq 0xa34c
cmpq 0x120(%rbx), %rax
jne 0x2aa3e
movq 0x28(%r14), %rax
movq 0x20(%rax), %rax
movq 0x20(%rax), %rsi
movq %rbx, %rdi
callq 0x7b558
pushq $0x1
popq %rdx
movq %rbx, %rdi
movq %rax, %rsi
callq 0x7b04d
leaq 0xb879a(%rip), %rsi     # 0xe31c7
pushq $0x3
popq %rdx
movq %rbx, %rdi
movq %r15, %rcx
movq %rax, %r8
callq 0xc2b0
movq %rbx, %rdi
movq %r14, %rsi
movq %r12, %rdx
callq *0x18(%r14)
cmpq 0x490(%rbx), %rax
je 0x2aa5a
movq %r15, 0x20(%rax)
jmp 0x2aad1
testb $0x20, 0x3(%r14)
jne 0x2aa6e
movzbl (%r12), %esi
movq %r14, %rdi
callq 0x30c3a
movq %rbx, %rdi
callq 0xb93f
movq %rax, %r13
movq %r12, (%rax)
movq %r15, 0x20(%rax)
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 0x2aad1
movq %rbx, %rdi
movq %r14, %rsi
callq 0x30c71
movq %r15, %rax
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq