// File: /workspace/github_c_makefile_star2_O3/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 0x369a3
movq %rcx, %r15
movzwl 0x6(%r14), %eax
testb $0x2, %al
je 0x36bc2
cmpq $0x0, 0x6a0(%rbx)
js 0x36bc2
movq 0x28(%r14), %rcx
movq 0x20(%rcx), %rcx
movq 0x18(%rcx), %rsi
testb $0x4, %al
jne 0x369e9
cmpq 0x118(%rbx), %rsi
je 0x36ae9
cmpb $0x30, (%rsi)
jb 0x36a71
movq 0x10(%rsi), %rax
movq 0x700(%rbx), %rcx
movq %r12, 0x8(%rcx)
movq 0x700(%rbx), %rsi
movq %rbx, %rdi
callq *%rax
jmp 0x36a8b
movq %rbx, %rdi
movq %r14, %rsi
movq %r12, %rdx
callq *0x18(%r14)
cmpq %rax, 0x490(%rbx)
je 0x36a65
movq 0x10(%rax), %rdx
andq 0x8(%r14), %rdx
movq 0x10(%r14), %rsi
movq (%rsi,%rdx,8), %rcx
cmpq %rax, %rcx
je 0x36a14
movq %rcx, %rdx
movq 0x18(%rcx), %rcx
testq %rcx, %rcx
je 0x36a21
cmpq %rax, %rcx
jne 0x369d2
addq $0x18, %rdx
jmp 0x36a18
movq 0x8(%rsi), %rax
movq 0x58(%rax), %rcx
movq 0x8(%rcx), %rcx
movq 0x20(%rcx), %rcx
movb (%r12), %dl
cmpb 0x10(%rcx), %dl
je 0x36ae9
cmpb $0x2f, (%rsi)
jbe 0x36aab
jmp 0x36abf
leaq (%rsi,%rdx,8), %rdx
movq 0x18(%rcx), %rax
movq %rax, (%rdx)
jmp 0x36a23
xorl %ecx, %ecx
movq 0x28(%r14), %rax
decq 0x18(%rax)
movq 0x28(%r14), %rax
cmpq $0x0, 0x18(%rax)
jne 0x36a53
leaq 0x114233(%rip), %rax    # 0x14ac70
cmpq %rax, 0x20(%r14)
jne 0x36a53
leaq 0x6423(%rip), %rax      # 0x3ce6d
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 0x36ce0
movq 0x700(%rbx), %rax
movq %r12, 0x8(%rax)
movq 0x700(%rbx), %rdx
movq %rbx, %rdi
callq 0xaee6
cmpq 0x120(%rbx), %rax
jne 0x36ae9
movq 0x28(%r14), %rax
movq 0x20(%rax), %rax
movq 0x18(%rax), %rsi
cmpb $0x30, (%rsi)
jb 0x36aab
movq 0x8(%rsi), %rax
jmp 0x36abf
movq 0x18(%rsi), %rdx
movq %rbx, %rdi
callq 0x99caa
movq 0x8(%rax), %rax
addq $0x10, %rax
movq (%rax), %rsi
movq %rbx, %rdi
movl $0x1, %edx
callq 0x99bbf
leaq 0xe073d(%rip), %rsi     # 0x117213
movl $0x2, %edx
movq %rbx, %rdi
movq %r12, %rcx
movq %rax, %r8
callq 0xd4e5
testb $0x1, 0x6(%r14)
movq 0x28(%r14), %rax
movq 0x20(%rax), %rax
movq 0x20(%rax), %rsi
jne 0x36b2b
cmpq 0x118(%rbx), %rsi
je 0x36bc2
cmpb $0x30, (%rsi)
jb 0x36b4a
movq 0x10(%rsi), %rax
movq 0x700(%rbx), %rcx
movq %r15, 0x8(%rcx)
movq 0x700(%rbx), %rsi
movq %rbx, %rdi
callq *%rax
jmp 0x36b64
movq 0x8(%rsi), %rax
movq 0x58(%rax), %rcx
movq 0x8(%rcx), %rcx
movq 0x20(%rcx), %rcx
movb (%r15), %dl
cmpb 0x10(%rcx), %dl
je 0x36bc2
cmpb $0x2f, (%rsi)
jbe 0x36b84
jmp 0x36b98
movq 0x700(%rbx), %rax
movq %r15, 0x8(%rax)
movq 0x700(%rbx), %rdx
movq %rbx, %rdi
callq 0xaee6
cmpq 0x120(%rbx), %rax
jne 0x36bc2
movq 0x28(%r14), %rax
movq 0x20(%rax), %rax
movq 0x20(%rax), %rsi
cmpb $0x30, (%rsi)
jb 0x36b84
movq 0x8(%rsi), %rax
jmp 0x36b98
movq 0x18(%rsi), %rdx
movq %rbx, %rdi
callq 0x99caa
movq 0x8(%rax), %rax
addq $0x10, %rax
movq (%rax), %rsi
movq %rbx, %rdi
movl $0x1, %edx
callq 0x99bbf
leaq 0xe0678(%rip), %rsi     # 0x117227
movl $0x3, %edx
movq %rbx, %rdi
movq %r15, %rcx
movq %rax, %r8
callq 0xd4e5
movq %rbx, %rdi
movq %r14, %rsi
movq %r12, %rdx
callq *0x18(%r14)
cmpq 0x490(%rbx), %rax
je 0x36be1
movq %r15, 0x20(%rax)
jmp 0x36ce0
movq (%r14), %rax
btl $0x1d, %eax
jb 0x36c29
movzbl (%r12), %ecx
movq 0x18(%r14), %rdx
leaq 0x1153f6(%rip), %rsi    # 0x14bff0
movq (%rsi,%rcx,8), %rcx
cmpq %rcx, %rdx
je 0x36c29
leaq 0x6263(%rip), %rsi      # 0x3ce6d
cmpq %rsi, %rdx
je 0x36c25
leaq 0x6814(%rip), %rcx      # 0x3d42a
movq %rcx, 0x18(%r14)
orq $0x20000000, %rax       # imm = 0x20000000
movq %rax, (%r14)
jmp 0x36c29
movq %rcx, 0x18(%r14)
movq 0x838(%rbx), %r13
testq %r13, %r13
jne 0x36c74
movl $0x2800, %edi           # imm = 0x2800
callq 0x8480
movq %rax, %r13
movq %rax, 0x838(%rbx)
addq $0x28, %rax
movl $0xff, %ecx
movq %rax, -0x10(%rax)
movl $0x0, -0x20(%rax)
addq $0x28, %rax
decl %ecx
jne 0x36c52
movq $0x0, -0x10(%rax)
movl $0x0, -0x20(%rax)
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 0x36ce0
movq %rbx, %rdi
movq %r14, %rsi
callq 0x3dcce
movq %r15, %rax
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq