// File: /workspace/github_c_makefile_star2_O2/BernardTatin[P]s7sh/s7.c
// Function: s7_autoload_set_names
void s7_autoload_set_names(s7_scheme *sc, const char **names, s7_int size)
    {
        /* the idea here is that by sticking to string constants we can handle 90% of the work at compile-time,
         *   with less start-up memory.  Then eventually we'll add C libraries a la xg (gtk) as environments
         *   and every name in that library will come as an import once dlopen has picked up the library.
         *   So, hopefully, we can pre-declare as many names as we want from as many libraries as we want,
         *   without a bloated mess of a run-time image.  And new libraries are easy to accommodate --
         *   add the names to be auto-exported to this list with the name of the scheme file that cloads
         *   the library and exports the given name. So, we'll need a separate such file for each library?
         *
         * the environment variable could use the library base name in *: *libm* or *libgtk*
         *   (*libm* 'j0)
         * why not just predeclare these libraries?  The caller could import what he wants via require.
         * So the autoloader need only know which libraries, but this doesn't fit the current use of gtk in xg
         * In fact, we only need to see *libm* -> libm.so etc, but we still need the arg/return types of each function, etc
         * And libgtk is enormous -- seems too bad to tie-in everything via the FFI when we need less than 1% of it.
         *
         * Also we need to decide how to handle name collisions (by order of autoload lib setup)
         * And (lastly?) how to handle different library versions?
         *
         * so autoload known libs here in s7 so we're indepentdent of snd
         *   (currently these are included in make-index.scm[line 575] -> snd-xref.c)
         * for each module, include an env in the lib env (*libgtk* 'gtkwidget.h) or whatever that has the names in that header
         * in autoload below, don't sort! -- just build a list of autoload tables and check each in order at autoload time (we want startup to be fast)
         * for versions, include wrapper macro at end of each c-define choice
         * in the xg case, there's no savings in delaying the defines
         */
        if (!sc->autoload_names)
        {
            sc->autoload_names = (const char ***)calloc(INITIAL_AUTOLOAD_NAMES_SIZE, sizeof(const char **));
            sc->autoload_names_sizes = (s7_int *)calloc(INITIAL_AUTOLOAD_NAMES_SIZE, sizeof(s7_int));
            sc->autoloaded_already = (bool **)calloc(INITIAL_AUTOLOAD_NAMES_SIZE, sizeof(bool *));
            sc->autoload_names_top = INITIAL_AUTOLOAD_NAMES_SIZE;
            sc->autoload_names_loc = 0;
        }
        else
        {
            if (sc->autoload_names_loc >= sc->autoload_names_top)
            {
                s7_int i;
                sc->autoload_names_top *= 2;
                sc->autoload_names = (const char ***)realloc(sc->autoload_names, sc->autoload_names_top * sizeof(const char **));
                sc->autoload_names_sizes = (s7_int *)realloc(sc->autoload_names_sizes, sc->autoload_names_top * sizeof(s7_int));
                sc->autoloaded_already = (bool **)realloc(sc->autoloaded_already, sc->autoload_names_top * sizeof(bool *));
                for (i = sc->autoload_names_loc; i < sc->autoload_names_top; i++)
                {
                    sc->autoload_names[i] = NULL;
                    sc->autoload_names_sizes[i] = 0;
                    sc->autoloaded_already[i] = NULL;
                }}}
        sc->autoload_names[sc->autoload_names_loc] = names;
        sc->autoload_names_sizes[sc->autoload_names_loc] = size;
        sc->autoloaded_already[sc->autoload_names_loc] = (bool *)calloc(size, sizeof(bool));
        sc->autoload_names_loc++;
    }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %r14
movq %rsi, %r15
movq %rdi, %rbx
movq 0x2160(%rdi), %r12
testq %r12, %r12
je 0x2a4af
movq 0x2178(%rbx), %rax
movq 0x2180(%rbx), %rsi
cmpq %rsi, %rax
jl 0x2a50d
leaq (%rsi,%rsi), %rax
movq %rax, 0x2180(%rbx)
shlq $0x4, %rsi
movq %r12, %rdi
callq 0x8510
movq %rax, 0x2160(%rbx)
movq 0x2168(%rbx), %rdi
movq 0x2180(%rbx), %rsi
shlq $0x3, %rsi
callq 0x8510
movq %rax, 0x2168(%rbx)
movq 0x2170(%rbx), %rdi
movq 0x2180(%rbx), %rsi
shlq $0x3, %rsi
callq 0x8510
movq %rax, 0x2170(%rbx)
movq 0x2178(%rbx), %rax
movq 0x2160(%rbx), %r12
cmpq 0x2180(%rbx), %rax
jge 0x2a506
andq $0x0, (%r12,%rax,8)
movq 0x2168(%rbx), %rcx
andq $0x0, (%rcx,%rax,8)
movq 0x2170(%rbx), %rcx
andq $0x0, (%rcx,%rax,8)
incq %rax
jmp 0x2a47d
pushq $0x4
popq %r13
pushq $0x8
popq %rbp
movq %r13, %rdi
movq %rbp, %rsi
callq 0x8360
movq %rax, %r12
movq %rax, 0x2160(%rbx)
movq %r13, %rdi
movq %rbp, %rsi
callq 0x8360
movq %rax, 0x2168(%rbx)
movq %r13, %rdi
movq %rbp, %rsi
callq 0x8360
movq %rax, 0x2170(%rbx)
movq $0x4, 0x2180(%rbx)
andq $0x0, 0x2178(%rbx)
xorl %eax, %eax
jmp 0x2a50d
movq 0x2178(%rbx), %rax
movq %r15, (%r12,%rax,8)
movq 0x2168(%rbx), %rcx
movq %r14, (%rcx,%rax,8)
pushq $0x1
popq %rsi
movq %r14, %rdi
callq 0x8360
movq 0x2170(%rbx), %rcx
movq 0x2178(%rbx), %rdx
movq %rax, (%rcx,%rdx,8)
incq %rdx
movq %rdx, 0x2178(%rbx)
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq