// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: make_list
static inline s7_pointer make_list(s7_scheme *sc, int32_t len, s7_pointer init)
                {
                    switch (len)
                    {
                        case 0: return(sc->nil);
                        case 1: return(T_Pair(cons(sc, init, sc->nil)));
                        case 2: return(T_Pair(cons_unchecked(sc, init, cons(sc, init, sc->nil))));
                        case 3: return(T_Pair(cons_unchecked(sc, init, cons_unchecked(sc, init, cons(sc, init, sc->nil)))));
                        case 4: return(T_Pair(cons_unchecked(sc, init, cons_unchecked(sc, init, cons_unchecked(sc, init, cons(sc, init, sc->nil))))));
                        case 5: return(T_Pair(cons_unchecked(sc, init, cons_unchecked(sc, init, cons_unchecked(sc, init, cons_unchecked(sc, init, cons(sc, init, sc->nil)))))));
                        case 6: return(T_Pair(cons_unchecked(sc, init, cons_unchecked(sc, init, cons_unchecked(sc, init,
                                                        cons_unchecked(sc, init, cons_unchecked(sc, init, cons(sc, init, sc->nil))))))));
                        case 7: return(T_Pair(cons_unchecked(sc, init, cons_unchecked(sc, init, cons_unchecked(sc, init,
                                                        cons_unchecked(sc, init, cons_unchecked(sc, init, cons_unchecked(sc, init, cons(sc, init, sc->nil)))))))));
                        default:
                                return(make_big_list(sc, len, init));
                    }
                    return(sc->nil); /* never happens, I hope */
                }

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rdx, %rbx
movq %rdi, %r14
cmpl $0x7, %esi
ja 0x3c979
movl %esi, %eax
leaq 0xd3d52(%rip), %rcx     # 0x110324
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq 0x110(%r14), %rax
jmp 0x3c973
movq 0x90(%r14), %rax
movq 0x110(%r14), %r15
cmpq 0x98(%r14), %rax
ja 0x3c606
movq %r14, %rdi
callq 0xb389
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%r14)
movq -0x8(%rax), %rax
movl $0x200001, %ecx         # imm = 0x200001
movq %rcx, (%rax)
movq %rbx, 0x8(%rax)
movq %r15, 0x10(%rax)
jmp 0x3c910
movq 0x90(%r14), %rax
movq 0x110(%r14), %r15
cmpq 0x98(%r14), %rax
ja 0x3c650
movq %r14, %rdi
callq 0xb389
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%r14)
movq -0x8(%rax), %rcx
movl $0x200001, %edx         # imm = 0x200001
movq %rdx, (%rcx)
movq %rbx, 0x8(%rcx)
movq %r15, 0x10(%rcx)
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rax), %rax
movq %rdx, (%rax)
movq %rbx, 0x8(%rax)
movq %rcx, 0x10(%rax)
jmp 0x3c973
movq 0x90(%r14), %rax
movq 0x110(%r14), %r15
cmpq 0x98(%r14), %rax
ja 0x3c6bb
movq %r14, %rdi
callq 0xb389
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%r14)
movq -0x8(%rax), %rax
movl $0x200001, %ecx         # imm = 0x200001
movq %rcx, (%rax)
movq %rbx, 0x8(%rax)
movq %r15, 0x10(%rax)
jmp 0x3c842
movq 0x90(%r14), %rax
movq 0x110(%r14), %r15
cmpq 0x98(%r14), %rax
ja 0x3c705
movq %r14, %rdi
callq 0xb389
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%r14)
movq -0x8(%rax), %rax
movl $0x200001, %ecx         # imm = 0x200001
movq %rcx, (%rax)
movq %rbx, 0x8(%rax)
movq %r15, 0x10(%rax)
movq 0x90(%r14), %rdx
leaq -0x8(%rdx), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rdx), %rdx
movq %rcx, (%rdx)
movq %rbx, 0x8(%rdx)
movq %rax, 0x10(%rdx)
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rax), %rax
movq %rcx, (%rax)
movq %rbx, 0x8(%rax)
movq %rdx, 0x10(%rax)
jmp 0x3c800
movq 0x90(%r14), %rax
movq 0x110(%r14), %r15
cmpq 0x98(%r14), %rax
ja 0x3c791
movq %r14, %rdi
callq 0xb389
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%r14)
movq -0x8(%rax), %rax
movq $0x200001, (%rax)       # imm = 0x200001
movq %rbx, 0x8(%rax)
movq %r15, 0x10(%rax)
jmp 0x3c973
movq 0x90(%r14), %rax
movq 0x110(%r14), %r15
cmpq 0x98(%r14), %rax
ja 0x3c7da
movq %r14, %rdi
callq 0xb389
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%r14)
movq -0x8(%rax), %rax
movl $0x200001, %ecx         # imm = 0x200001
movq %rcx, (%rax)
movq %rbx, 0x8(%rax)
movq %r15, 0x10(%rax)
movq 0x90(%r14), %rdx
leaq -0x8(%rdx), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rdx), %rdx
movq %rcx, (%rdx)
movq %rbx, 0x8(%rdx)
movq %rax, 0x10(%rdx)
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rax), %rax
movq %rcx, (%rax)
movq %rbx, 0x8(%rax)
movq %rdx, 0x10(%rax)
movq 0x90(%r14), %rdx
leaq -0x8(%rdx), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rdx), %rdx
movq %rcx, (%rdx)
movq %rbx, 0x8(%rdx)
movq %rax, 0x10(%rdx)
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rax), %rax
movq %rcx, (%rax)
movq %rbx, 0x8(%rax)
movq %rdx, 0x10(%rax)
jmp 0x3c973
movq 0x90(%r14), %rax
movq 0x110(%r14), %r15
cmpq 0x98(%r14), %rax
ja 0x3c8a8
movq %r14, %rdi
callq 0xb389
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%r14)
movq -0x8(%rax), %rax
movl $0x200001, %ecx         # imm = 0x200001
movq %rcx, (%rax)
movq %rbx, 0x8(%rax)
movq %r15, 0x10(%rax)
movq 0x90(%r14), %rdx
leaq -0x8(%rdx), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rdx), %rdx
movq %rcx, (%rdx)
movq %rbx, 0x8(%rdx)
movq %rax, 0x10(%rdx)
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rax), %rax
movq %rcx, (%rax)
movq %rbx, 0x8(%rax)
movq %rdx, 0x10(%rax)
movq 0x90(%r14), %rdx
leaq -0x8(%rdx), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rdx), %rdx
movq %rcx, (%rdx)
movq %rbx, 0x8(%rdx)
movq %rax, 0x10(%rdx)
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rax), %rsi
movq %rcx, (%rsi)
movq %rbx, 0x8(%rsi)
movq %rdx, 0x10(%rsi)
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rdx
movq %rdx, 0x90(%r14)
movq -0x8(%rax), %rax
movq %rcx, (%rax)
movq %rbx, 0x8(%rax)
movq %rsi, 0x10(%rax)
popq %rbx
popq %r14
popq %r15
retq
movq %r14, %rdi
movq %rbx, %rdx
popq %rbx
popq %r14
popq %r15
jmp 0xa007d