// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: cull_weak_hash_table
static void cull_weak_hash_table(s7_scheme *sc, s7_pointer table)
                {
                    if (hash_table_entries(table) > 0)
                    {
                        s7_int i, len;
                        hash_entry_t **entries;

                        entries = hash_table_elements(table);
                        len = hash_table_mask(table) + 1;

                        for (i = 0; i < len; i++)
                        {
                            hash_entry_t *xp, *nxp, *lxp;
                            lxp = entries[i];
                            for (xp = entries[i]; xp; xp = nxp)
                            {
                                nxp = hash_entry_next(xp);
                                if (is_free_and_clear(hash_entry_key(xp)))
                                {
                                    if (xp == entries[i])
                                    {
                                        entries[i] = nxp;
                                        lxp = nxp;
                                    }
                                    else hash_entry_next(lxp) = nxp;
                                    liberate_block(sc, xp);
                                    hash_table_entries(table)--;
                                    if (hash_table_entries(table) == 0)
                                    {
                                        if (!hash_table_checker_locked(table))
                                        {
                                            hash_table_checker(table) = hash_empty;
                                            hash_clear_chosen(table);
                                        }
                                        return;
                                    }
                                }
                                else lxp = xp;
                            }
                        }
                    }
                }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x40(%rsp)
movq %rsi, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq 0x28(%rax), %rax
cmpq $0x0, 0x18(%rax)
jle 0xc502d
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x20(%rsp)
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rax
addq $0x1, %rax
movq %rax, 0x28(%rsp)
movq $0x0, 0x30(%rsp)
movq 0x30(%rsp), %rax
cmpq 0x28(%rsp), %rax
jge 0xc502b
movq 0x20(%rsp), %rax
movq 0x30(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq %rax, 0x8(%rsp)
movq 0x20(%rsp), %rax
movq 0x30(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq %rax, 0x18(%rsp)
cmpq $0x0, 0x18(%rsp)
je 0xc5016
movq 0x18(%rsp), %rax
movq 0x18(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x18(%rsp), %rax
movq (%rax), %rax
cmpq $0x0, (%rax)
jne 0xc4ffb
movq 0x18(%rsp), %rax
movq 0x20(%rsp), %rcx
movq 0x30(%rsp), %rdx
cmpq (%rcx,%rdx,8), %rax
jne 0xc4f81
movq 0x10(%rsp), %rdx
movq 0x20(%rsp), %rax
movq 0x30(%rsp), %rcx
movq %rdx, (%rax,%rcx,8)
movq 0x10(%rsp), %rax
movq %rax, 0x8(%rsp)
jmp 0xc4f8f
movq 0x10(%rsp), %rcx
movq 0x8(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x40(%rsp), %rdi
movq 0x18(%rsp), %rsi
callq 0xc5300
movq 0x38(%rsp), %rax
movq 0x28(%rax), %rax
movq 0x18(%rax), %rcx
addq $-0x1, %rcx
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq 0x28(%rax), %rax
cmpq $0x0, 0x18(%rax)
jne 0xc4ff9
movq 0x38(%rsp), %rax
leaq 0x1557d1(%rip), %rcx    # 0x21a7a0
cmpq %rcx, 0x20(%rax)
jne 0xc4ff7
movq 0x38(%rsp), %rax
leaq -0x8dc51(%rip), %rcx    # 0x37390
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq (%rax), %rcx
andq $-0x20000001, %rcx      # imm = 0xDFFFFFFF
movq %rcx, (%rax)
jmp 0xc502d
jmp 0xc5005
movq 0x18(%rsp), %rax
movq %rax, 0x8(%rsp)
jmp 0xc5007
movq 0x10(%rsp), %rax
movq %rax, 0x18(%rsp)
jmp 0xc4f21
jmp 0xc5018
movq 0x30(%rsp), %rax
addq $0x1, %rax
movq %rax, 0x30(%rsp)
jmp 0xc4eeb
jmp 0xc502d
addq $0x48, %rsp
retq
nopw %cs:(%rax,%rax)