// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: g_multiply_1
static s7_pointer g_multiply_1(s7_scheme *sc, s7_pointer args, s7_pointer caller)
    {
#define H_multiply "(* ...) multiplies its arguments"
#define Q_multiply sc->pcl_n

        s7_pointer x, p;
        s7_int num_a, den_a;
        s7_double rl_a, im_a;

#if (!WITH_GMP)
        if (is_null(args))
            return(small_int(1));
#endif

        x = car(args);
        p = cdr(args);
        if (is_null(p))
        {
            if (!is_number(x))
                return(multiply_method_or_bust(sc, x, caller, args, a_number_string, 0));
            return(x);
        }

        switch (type(x))
        {
            case T_INTEGER:
                num_a = integer(x);

MULTIPLY_INTEGERS:
#if WITH_GMP
                if ((num_a > s7_int32_max) ||
                        (num_a < s7_int32_min))
                    return(big_multiply(sc, cons(sc, s7_int_to_big_integer(sc, num_a), p)));
#endif
                x = car(p);
                p = cdr(p);
                switch (type(x))
                {
                    case T_INTEGER:
#if WITH_GMP
                        if ((integer(x) > s7_int32_max) ||
                                (integer(x) < s7_int32_min))
                            return(big_multiply(sc, cons(sc, s7_int_to_big_integer(sc, num_a), cons(sc, x, p))));
#endif

#if HAVE_OVERFLOW_CHECKS
                        {
                            s7_int dn;
                            if (multiply_overflow(num_a, integer(x), &dn))
                            {
                                if (is_null(p)) return(make_real(sc, (s7_double)num_a * (s7_double)integer(x)));
                                rl_a = (s7_double)num_a * (s7_double)integer(x);
                                goto MULTIPLY_REALS;
                            }
                            num_a = dn;
                        }
#else
                        num_a *= integer(x);
#endif
                        if (is_null(p)) return(make_integer(sc, num_a));
                        goto MULTIPLY_INTEGERS;

                    case T_RATIO:
#if HAVE_OVERFLOW_CHECKS
                        {
                            s7_int dn;
                            if (multiply_overflow(numerator(x), num_a, &dn))
                            {
                                if (is_null(p))
                                    return(make_real(sc, (s7_double)num_a * fraction(x)));
                                rl_a = (s7_double)num_a * fraction(x);
                                goto MULTIPLY_REALS;
                            }
                            num_a = dn;
                        }
#else
                        num_a *= numerator(x);
#endif
                        den_a = denominator(x);
                        if (is_null(p)) return(s7_make_ratio(sc, num_a, den_a));
                        if (reduce_fraction(&num_a, &den_a) == T_INTEGER)
                            goto MULTIPLY_INTEGERS;
                        goto MULTIPLY_RATIOS;

                    case T_REAL:
                        if (is_null(p)) return(make_real(sc, num_a * real(x)));
                        rl_a = num_a * real(x);
                        goto MULTIPLY_REALS;

                    case T_COMPLEX:
                        if (is_null(p)) return(s7_make_complex(sc, num_a * real_part(x), num_a * imag_part(x)));
                        rl_a = num_a * real_part(x);
                        im_a = num_a * imag_part(x);
                        goto MULTIPLY_COMPLEX;

                    default:
                        return(multiply_method_or_bust(sc, x, caller, cons_unchecked(sc, s7_make_integer(sc, num_a), cons(sc, x, p)), a_number_string, position_of(p, args) - 1));
                }
                break;

            case T_RATIO:
                num_a = numerator(x);
                den_a = denominator(x);
MULTIPLY_RATIOS:
#if WITH_GMP
                if ((num_a > s7_int32_max) ||
                        (den_a > s7_int32_max) ||
                        (num_a < s7_int32_min))
                    return(big_multiply(sc, cons(sc, s7_ratio_to_big_ratio(sc, num_a, den_a), p)));
#endif
                x = car(p);
                p = cdr(p);

                switch (type(x))
                {
                    case T_INTEGER:
                        /* as in +, this can overflow:
                         *   (* 8 -9223372036854775807 8) -> 64
                         *   (* 3/4 -9223372036854775807 8) -> 6
                         *   (* 8 -9223372036854775808 8) -> 0
                         *   (* -1 9223372036854775806 8) -> 16
                         *   (* -9223372036854775808 8 1e+308) -> 0.0
                         */
#if HAVE_OVERFLOW_CHECKS
                        {
                            s7_int dn;
                            if (multiply_overflow(integer(x), num_a, &dn))
                            {
                                if (is_null(p))
                                    return(make_real(sc, ((s7_double)integer(x) / (s7_double)den_a) * (s7_double)num_a));
                                rl_a = ((s7_double)integer(x) / (s7_double)den_a) * (s7_double)num_a;
                                goto MULTIPLY_REALS;
                            }
                            num_a = dn;
                        }
#else
                        num_a *= integer(x);
#endif
                        if (is_null(p)) return(s7_make_ratio(sc, num_a, den_a));
                        if (reduce_fraction(&num_a, &den_a) == T_INTEGER)
                            goto MULTIPLY_INTEGERS;
                        goto MULTIPLY_RATIOS;

                    case T_RATIO:
                        {
#if (!WITH_GMP)
#if HAVE_OVERFLOW_CHECKS
                            s7_int d1, n1;
#endif
#endif
                            s7_int d2, n2;
                            d2 = denominator(x);
                            n2 = numerator(x);
#if (!WITH_GMP)
#if HAVE_OVERFLOW_CHECKS
                            d1 = den_a;
                            n1 = num_a;
                            if ((multiply_overflow(n1, n2, &num_a)) ||
                                    (multiply_overflow(d1, d2, &den_a)))
                            {
                                if (is_null(p))
                                    return(make_real(sc, ((long_double)n1 / (long_double)d1) * ((long_double)n2 / (long_double)d2)));
                                rl_a = ((long_double)n1 / (long_double)d1) * ((long_double)n2 / (long_double)d2);
                                goto MULTIPLY_REALS;
                            }
#else
                            num_a *= n2;
                            den_a *= d2;
#endif
#else
                            num_a *= n2;
                            den_a *= d2;
#endif
                            if (is_null(p)) return(s7_make_ratio(sc, num_a, den_a));
                            if (reduce_fraction(&num_a, &den_a) == T_INTEGER)
                                goto MULTIPLY_INTEGERS;
                            goto MULTIPLY_RATIOS;
                        }

                    case T_REAL:
                        if (is_null(p)) return(make_real(sc, ((long_double)num_a / (long_double)den_a) * real(x)));
                        rl_a = ((long_double)num_a / (long_double)den_a) * real(x);
                        goto MULTIPLY_REALS;

                    case T_COMPLEX:
                        {
                            s7_double frac;
                            frac = ((long_double)num_a / (long_double)den_a);
                            if (is_null(p)) return(s7_make_complex(sc, frac * real_part(x), frac * imag_part(x)));
                            rl_a = frac * real_part(x);
                            im_a = frac * imag_part(x);
                            goto MULTIPLY_COMPLEX;
                        }

                    default:
                        return(multiply_method_or_bust(sc, x, caller, cons_unchecked(sc, s7_make_ratio(sc, num_a, den_a), cons(sc, x, p)), a_number_string, position_of(p, args) - 1));
                }
                break;

            case T_REAL:
                rl_a = real(x);

MULTIPLY_REALS:
                x = car(p);
                p = cdr(p);

                switch (type(x))
                {
                    case T_INTEGER:
                        if (is_null(p)) return(make_real(sc, rl_a * integer(x)));
                        rl_a *= integer(x);
                        goto MULTIPLY_REALS;

                    case T_RATIO:
                        if (is_null(p)) return(make_real(sc, rl_a * fraction(x)));
                        rl_a *= (s7_double)fraction(x);
                        goto MULTIPLY_REALS;

                    case T_REAL:
                        if (is_null(p)) return(make_real(sc, rl_a * real(x)));
                        rl_a *= real(x);
                        goto MULTIPLY_REALS;

                    case T_COMPLEX:
                        if (is_null(p)) return(s7_make_complex(sc, rl_a * real_part(x), rl_a * imag_part(x)));
                        im_a = rl_a * imag_part(x);
                        rl_a *= real_part(x);
                        goto MULTIPLY_COMPLEX;

                    default:
                        return(multiply_method_or_bust(sc, x, caller, cons_unchecked(sc, make_real(sc, rl_a), cons(sc, x, p)), a_number_string, position_of(p, args) - 1));
                }
                break;

            case T_COMPLEX:
                rl_a = real_part(x);
                im_a = imag_part(x);

MULTIPLY_COMPLEX:
                x = car(p);
                p = cdr(p);

                switch (type(x))
                {
                    case T_INTEGER:
                        if (is_null(p)) return(s7_make_complex(sc, rl_a * integer(x), im_a * integer(x)));
                        rl_a *= integer(x);
                        im_a *= integer(x);
                        goto MULTIPLY_COMPLEX;

                    case T_RATIO:
                        {
                            s7_double frac;
                            frac = fraction(x);
                            if (is_null(p)) return(s7_make_complex(sc, rl_a * frac, im_a * frac));
                            rl_a *= frac;
                            im_a *= frac;
                            goto MULTIPLY_COMPLEX;
                        }

                    case T_REAL:
                        if (is_null(p)) return(s7_make_complex(sc, rl_a * real(x), im_a * real(x)));
                        rl_a *= real(x);
                        im_a *= real(x);
                        goto MULTIPLY_COMPLEX;

                    case T_COMPLEX:
                        {
                            s7_double r1, r2, i1, i2;
                            r1 = rl_a;
                            i1 = im_a;
                            r2 = real_part(x);
                            i2 = imag_part(x);
                            if (is_null(p))
                                return(s7_make_complex(sc, r1 * r2 - i1 * i2, r1 * i2 + r2 * i1));
                            rl_a = r1 * r2 - i1 * i2;
                            im_a = r1 * i2 + r2 * i1;
                            if (im_a == 0.0)
                                goto MULTIPLY_REALS;
                            goto MULTIPLY_COMPLEX;
                        }

                    default:
                        return(multiply_method_or_bust(sc, x, caller, cons_unchecked(sc, s7_make_complex(sc, rl_a, im_a), cons(sc, x, p)), a_number_string, position_of(p, args) - 1));
                }
                break;

            default:
                return(multiply_method_or_bust(sc, x, caller, args, a_number_string, 1));
        }
        return(NULL); /* make the compiler happy */
    }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x108, %rsp            # imm = 0x108
movq 0x110(%rdi), %rcx
cmpq %rsi, %rcx
je 0x103ce1
movq %rsi, %r15
movq %rdi, %rbx
movq 0x8(%rsi), %r12
movq 0x10(%rsi), %rbp
movzbl (%r12), %eax
cmpq %rcx, %rbp
je 0x103ced
addl $-0xb, %eax
cmpl $0x3, %eax
ja 0x10408c
movq %rdx, 0x38(%rsp)
leaq 0xe2ae(%rip), %rcx      # 0x111d70
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq 0x8(%r12), %rax
movq %rax, 0x8(%rsp)
leaq 0xe2a4(%rip), %r14      # 0x111d80
movq 0x8(%rbp), %r13
movq 0x10(%rbp), %rbp
movzbl (%r13), %eax
addl $-0xb, %eax
cmpl $0x3, %eax
ja 0x10461c
movslq (%r14,%rax,4), %rax
addq %r14, %rax
jmpq *%rax
movq 0x8(%rsp), %rax
movq 0x8(%r13), %rcx
movq %rax, %rdx
imulq %rcx, %rdx
jno 0x103bbc
xorps %xmm0, %xmm0
cvtsi2sd %rax, %xmm0
xorps %xmm1, %xmm1
cvtsi2sd %rcx, %xmm1
mulsd %xmm0, %xmm1
movl $0x7, %eax
cmpq 0x110(%rbx), %rbp
je 0x103bd1
movapd %xmm1, %xmm2
jmp 0x103c2a
movq 0x8(%r13), %rcx
movq 0x8(%rsp), %rax
movq %rcx, %rdx
imulq %rax, %rdx
jno 0x103bc5
xorps %xmm0, %xmm0
cvtsi2sd %rax, %xmm0
movl $0x7, %eax
cmpq 0x110(%rbx), %rbp
movsd %xmm0, 0xf0(%rsp)
movq %rcx, 0xf8(%rsp)
fildll 0xf8(%rsp)
movq 0x10(%r13), %rcx
movq %rcx, 0x100(%rsp)
fildll 0x100(%rsp)
fdivrp %st, %st(1)
fmull 0xf0(%rsp)
fstpl 0xe8(%rsp)
movsd 0xe8(%rsp), %xmm0
je 0x103c44
movapd %xmm0, %xmm2
jmp 0x103c9d
movq %rdx, 0x8(%rsp)
xorl %eax, %eax
jmp 0x103c2a
movq %rdx, 0x8(%rsp)
xorl %eax, %eax
jmp 0x103c9d
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x103c00
movq %rbx, %rdi
movaps %xmm2, 0x10(%rsp)
movsd %xmm1, 0x30(%rsp)
callq 0xb389
movsd 0x30(%rsp), %xmm1
movapd 0x10(%rsp), %xmm2
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r12
movq $0xd, (%r12)
movsd %xmm1, 0x8(%r12)
movl $0x1, %eax
testl %eax, %eax
jne 0x103fb5
cmpq 0x110(%rbx), %rbp
jne 0x103adc
jmp 0x1046e3
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x103c73
movq %rbx, %rdi
movaps %xmm2, 0x10(%rsp)
movsd %xmm0, 0x30(%rsp)
callq 0xb389
movsd 0x30(%rsp), %xmm0
movapd 0x10(%rsp), %xmm2
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r12
movq $0xd, (%r12)
movsd %xmm0, 0x8(%r12)
movl $0x1, %eax
testl %eax, %eax
jne 0x103fb5
movq 0x10(%r13), %rdx
movq %rdx, 0x28(%rsp)
cmpq 0x110(%rbx), %rbp
je 0x104701
leaq 0x8(%rsp), %rdi
leaq 0x28(%rsp), %rsi
movapd %xmm2, 0x10(%rsp)
callq 0x103995
movapd 0x10(%rsp), %xmm2
cmpl $0xb, %eax
je 0x103adc
jmp 0x103d42
movq 0x4ac70(%rip), %r12     # 0x14e958
jmp 0x104213
leaq 0x4ec7c(%rip), %rcx     # 0x152970
cmpb $0x0, (%rax,%rcx)
jne 0x104213
movq 0x5969b(%rip), %r8      # 0x15d3a0
movq %rbx, %rdi
movq %r12, %rsi
movq %r15, %rcx
xorl %r9d, %r9d
jmp 0x1046c1
movsd 0x8(%r12), %xmm2
jmp 0x103fbe
movupd 0x8(%r12), %xmm3
jmp 0x1043de
movq 0x8(%r12), %rax
movq %rax, 0x8(%rsp)
movq 0x10(%r12), %rax
movq %rax, 0x28(%rsp)
leaq 0xe047(%rip), %r14      # 0x111d90
movq 0x8(%rbp), %r13
movq 0x10(%rbp), %rbp
movzbl (%r13), %eax
addl $-0xb, %eax
cmpl $0x3, %eax
ja 0x104228
movslq (%r14,%rax,4), %rax
addq %r14, %rax
jmpq *%rax
movq 0x8(%r13), %rcx
movq 0x8(%rsp), %rax
movq %rcx, %rdx
imulq %rax, %rdx
jno 0x103e59
xorps %xmm0, %xmm0
cvtsi2sd %rcx, %xmm0
xorps %xmm1, %xmm1
cvtsi2sdq 0x28(%rsp), %xmm1
divsd %xmm1, %xmm0
xorps %xmm1, %xmm1
cvtsi2sd %rax, %xmm1
mulsd %xmm0, %xmm1
movl $0x7, %eax
cmpq 0x110(%rbx), %rbp
je 0x103ef9
movapd %xmm1, %xmm2
jmp 0x103f53
movq 0x8(%r13), %rdi
movq 0x10(%r13), %rcx
movq 0x28(%rsp), %r8
movq 0x8(%rsp), %r9
movq %r9, %rsi
imulq %rdi, %rsi
movq %rsi, 0x8(%rsp)
jo 0x103df0
movq %r8, %rdx
imulq %rcx, %rdx
movq %rdx, 0x28(%rsp)
jno 0x103ec4
movl $0x7, %eax
cmpq 0x110(%rbx), %rbp
movq %r9, 0x98(%rsp)
fildll 0x98(%rsp)
movq %r8, 0xa0(%rsp)
fildll 0xa0(%rsp)
fdivrp %st, %st(1)
movq %rdi, 0xa8(%rsp)
fildll 0xa8(%rsp)
movq %rcx, 0xb0(%rsp)
fildll 0xb0(%rsp)
fdivrp %st, %st(1)
fmulp %st, %st(1)
fstpl 0x90(%rsp)
movsd 0x90(%rsp), %xmm0
je 0x103e65
movapd %xmm0, %xmm2
jmp 0x103fa3
movq %rdx, 0x8(%rsp)
xorl %eax, %eax
jmp 0x103f53
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x103e95
movq %rbx, %rdi
movapd %xmm2, 0x10(%rsp)
movsd %xmm0, 0x30(%rsp)
callq 0xb389
movsd 0x30(%rsp), %xmm0
movapd 0x10(%rsp), %xmm2
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r12
movq $0xd, (%r12)
movsd %xmm0, 0x8(%r12)
movl $0x1, %eax
jmp 0x103fa3
movapd %xmm2, 0x10(%rsp)
cmpq 0x110(%rbx), %rbp
je 0x103f8d
leaq 0x8(%rsp), %rdi
leaq 0x28(%rsp), %rsi
callq 0x103995
xorl %ecx, %ecx
cmpl $0xb, %eax
setne %cl
leal (%rcx,%rcx,8), %eax
addl $0x3, %eax
jmp 0x103f9d
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x103f29
movq %rbx, %rdi
movapd %xmm2, 0x10(%rsp)
movsd %xmm1, 0x30(%rsp)
callq 0xb389
movsd 0x30(%rsp), %xmm1
movapd 0x10(%rsp), %xmm2
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r12
movq $0xd, (%r12)
movsd %xmm1, 0x8(%r12)
movl $0x1, %eax
testl %eax, %eax
jne 0x103fb5
cmpq 0x110(%rbx), %rbp
je 0x1046d7
leaq 0x8(%rsp), %rdi
leaq 0x28(%rsp), %rsi
movapd %xmm2, 0x10(%rsp)
callq 0x103995
movapd 0x10(%rsp), %xmm2
cmpl $0xb, %eax
jne 0x103d49
jmp 0x103ad5
movq %rbx, %rdi
callq 0xdd7f
movq %rax, %r12
movl $0x1, %eax
movapd 0x10(%rsp), %xmm2
cmpl $0xc, %eax
je 0x103d49
cmpl $0x3, %eax
je 0x103ad5
cmpl $0x7, %eax
jne 0x104213
leaq 0xdddb(%rip), %rax      # 0x111da0
jmp 0x103ffe
cmpq 0x110(%rbx), %rbp
je 0x10419a
movq 0x8(%r13), %rcx
movq 0x10(%r13), %rdx
movq %rcx, 0x70(%rsp)
fildll 0x70(%rsp)
movq %rdx, 0x68(%rsp)
fildll 0x68(%rsp)
fdivrp %st, %st(1)
fstpl 0x60(%rsp)
movsd 0x60(%rsp), %xmm0
mulsd %xmm0, %xmm2
movq 0x8(%rbp), %r13
movq 0x10(%rbp), %rbp
movzbl (%r13), %ecx
addl $-0xb, %ecx
cmpl $0x3, %ecx
ja 0x1040cb
movslq (%rax,%rcx,4), %rcx
addq %rax, %rcx
jmpq *%rcx
xorps %xmm0, %xmm0
cvtsi2sdq 0x8(%r13), %xmm0
jmp 0x104031
movsd 0x8(%r13), %xmm0
cmpq 0x110(%rbx), %rbp
jne 0x103ffa
mulsd %xmm0, %xmm2
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x104062
movq %rbx, %rdi
movapd %xmm2, 0x10(%rsp)
callq 0xb389
movapd 0x10(%rsp), %xmm2
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r12
movq $0xd, (%r12)
movsd %xmm2, 0x8(%r12)
jmp 0x104213
movq 0x5930d(%rip), %r8      # 0x15d3a0
movq %rbx, %rdi
movq %r12, %rsi
movq %r15, %rcx
movl $0x1, %r9d
jmp 0x1046c1
cmpq 0x110(%rbx), %rbp
je 0x104785
movupd 0x8(%r13), %xmm0
unpcklpd %xmm2, %xmm2            # xmm2 = xmm2[0,0]
mulpd %xmm0, %xmm2
movapd %xmm2, %xmm3
jmp 0x1043de
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x1040ef
movq %rbx, %rdi
movapd %xmm2, 0x10(%rsp)
callq 0xb389
movapd 0x10(%rsp), %xmm2
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r14
movq $0xd, (%r14)
movsd %xmm2, 0x8(%r14)
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x10412a
movq %rbx, %rdi
callq 0xb389
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movl $0x200001, %edx         # imm = 0x200001
movq %rdx, (%rax)
movq %r13, 0x8(%rax)
movq %rbp, 0x10(%rax)
movq 0x90(%rbx), %rcx
leaq -0x8(%rcx), %rsi
movq %rsi, 0x90(%rbx)
movq -0x8(%rcx), %rcx
movq %rdx, (%rcx)
movq %r14, 0x8(%rcx)
movq %rax, 0x10(%rcx)
movq 0x59228(%rip), %r8      # 0x15d3a0
xorl %r9d, %r9d
cmpq %r15, %rbp
je 0x1046b6
movq 0x38(%rsp), %rdx
movq 0x10(%r15), %r15
incl %r9d
cmpq %rbp, %r15
jne 0x104189
jmp 0x1046bb
movsd %xmm2, 0x48(%rsp)
movq 0x8(%r13), %rax
movq 0x10(%r13), %rcx
movq %rax, 0x58(%rsp)
fildll 0x58(%rsp)
movq %rcx, 0x50(%rsp)
fildll 0x50(%rsp)
fdivrp %st, %st(1)
fmull 0x48(%rsp)
fstpl 0x40(%rsp)
movsd 0x40(%rsp), %xmm0
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x1041ee
movq %rbx, %rdi
movsd %xmm0, 0x10(%rsp)
callq 0xb389
movsd 0x10(%rsp), %xmm0
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r12
movq $0xd, (%r12)
movsd %xmm0, 0x8(%r12)
movq %r12, %rax
addq $0x108, %rsp            # imm = 0x108
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq 0x8(%rsp), %rsi
movq 0x28(%rsp), %rdx
movq %rbx, %rdi
callq 0xdd7f
movq %rax, %r12
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
movq 0x38(%rsp), %r14
ja 0x10425a
movq %rbx, %rdi
callq 0xb389
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movl $0x200001, %edx         # imm = 0x200001
movq %rdx, (%rax)
movq %r13, 0x8(%rax)
movq %rbp, 0x10(%rax)
movq 0x90(%rbx), %rcx
leaq -0x8(%rcx), %rsi
movq %rsi, 0x90(%rbx)
movq -0x8(%rcx), %rcx
movq %rdx, (%rcx)
movq %r12, 0x8(%rcx)
movq %rax, 0x10(%rcx)
movq 0x590f8(%rip), %r8      # 0x15d3a0
xorl %r9d, %r9d
cmpq %r15, %rbp
je 0x1046ab
movq 0x10(%r15), %r15
incl %r9d
cmpq %rbp, %r15
jne 0x1042b4
jmp 0x1046ab
movq 0x8(%rsp), %rax
movq %rax, 0xd8(%rsp)
fildll 0xd8(%rsp)
movq 0x28(%rsp), %rax
movq %rax, 0xe0(%rsp)
fildll 0xe0(%rsp)
fdivrp %st, %st(1)
fstpl 0xd0(%rsp)
movq 0x110(%rbx), %r14
movupd 0x8(%r13), %xmm0
movsd 0xd0(%rsp), %xmm3
unpcklpd %xmm3, %xmm3            # xmm3 = xmm3[0,0]
mulpd %xmm0, %xmm3
cmpq %r14, %rbp
jne 0x10433c
movapd %xmm3, %xmm1
unpckhpd %xmm3, %xmm1            # xmm1 = xmm1[1],xmm3[1]
movq %rbx, %rdi
movapd %xmm3, %xmm0
movapd %xmm2, 0x10(%rsp)
callq 0xe101
movq %rax, %r12
movapd 0x10(%rsp), %xmm3
cmpq %r14, %rbp
jne 0x1043de
jmp 0x104213
movq 0x8(%rsp), %rax
cmpq 0x110(%rbx), %rbp
movq %rax, 0xc0(%rsp)
fildll 0xc0(%rsp)
movq 0x28(%rsp), %rax
movq %rax, 0xc8(%rsp)
fildll 0xc8(%rsp)
fdivrp %st, %st(1)
fmull 0x8(%r13)
fstpl 0xb8(%rsp)
movsd 0xb8(%rsp), %xmm2
jne 0x103fbe
jmp 0x10403e
xorps %xmm2, %xmm2
cvtsi2sdq 0x8(%rsp), %xmm2
mulsd 0x8(%r13), %xmm2
cmpq 0x110(%rbx), %rbp
jne 0x103fbe
jmp 0x10403e
cvtsi2sdq 0x8(%rsp), %xmm3
movupd 0x8(%r13), %xmm0
unpcklpd %xmm3, %xmm3            # xmm3 = xmm3[0,0]
mulpd %xmm0, %xmm3
cmpq 0x110(%rbx), %rbp
je 0x10475f
leaq 0xd9cb(%rip), %r14      # 0x111db0
movapd 0xe9d3(%rip), %xmm4     # 0x112dc0
xorpd %xmm5, %xmm5
movq 0x8(%rbp), %r13
movq 0x10(%rbp), %rbp
movzbl (%r13), %eax
addl $-0xb, %eax
cmpl $0x3, %eax
ja 0x104579
movslq (%r14,%rax,4), %rax
addq %r14, %rax
jmpq *%rax
xorps %xmm1, %xmm1
cvtsi2sdq 0x8(%r13), %xmm1
jmp 0x104424
movsd 0x8(%r13), %xmm1
cmpq 0x110(%rbx), %rbp
je 0x10454c
unpcklpd %xmm1, %xmm1            # xmm1 = xmm1[0,0]
mulpd %xmm1, %xmm3
jmp 0x1043f1
movupd 0x8(%r13), %xmm1
movapd %xmm3, %xmm2
xorpd %xmm4, %xmm2
unpckhpd %xmm3, %xmm2            # xmm2 = xmm2[1],xmm3[1]
movapd %xmm3, %xmm0
unpcklpd %xmm3, %xmm0            # xmm0 = xmm0[0],xmm3[0]
mulpd %xmm1, %xmm0
shufpd $0x1, %xmm1, %xmm1      # xmm1 = xmm1[1,0]
mulpd %xmm2, %xmm1
addpd %xmm1, %xmm0
movapd %xmm0, %xmm1
unpckhpd %xmm0, %xmm1            # xmm1 = xmm1[1],xmm0[1]
cmpq 0x110(%rbx), %rbp
je 0x1044dd
cmpneqsd %xmm5, %xmm1
movq %xmm1, %rax
andl $0x1, %eax
leal 0x7(,%rax,8), %eax
movapd %xmm0, %xmm3
jmp 0x104505
movq 0x8(%r13), %rax
movq 0x10(%r13), %rcx
movq %rax, 0x88(%rsp)
fildll 0x88(%rsp)
movq %rcx, 0x80(%rsp)
fildll 0x80(%rsp)
fdivrp %st, %st(1)
fstpl 0x78(%rsp)
movq 0x110(%rbx), %r13
movsd 0x78(%rsp), %xmm0
unpcklpd %xmm0, %xmm0            # xmm0 = xmm0[0,0]
mulpd %xmm3, %xmm0
cmpq %r13, %rbp
je 0x104513
movapd %xmm0, %xmm3
jmp 0x10453e
movq %rbx, %rdi
movapd %xmm3, 0x10(%rsp)
callq 0xe101
xorpd %xmm5, %xmm5
movapd 0xe8c9(%rip), %xmm4     # 0x112dc0
movapd 0x10(%rsp), %xmm3
movq %rax, %r12
movl $0x1, %eax
cmpl $0xf, %eax
je 0x1043f1
jmp 0x104773
movapd %xmm0, %xmm1
unpckhpd %xmm0, %xmm1            # xmm1 = xmm1[1],xmm0[1]
movq %rbx, %rdi
movapd %xmm3, 0x10(%rsp)
callq 0xe101
xorpd %xmm5, %xmm5
movapd 0xe88b(%rip), %xmm4     # 0x112dc0
movapd 0x10(%rsp), %xmm3
movq %rax, %r12
cmpq %r13, %rbp
jne 0x1043f1
jmp 0x104213
movapd %xmm3, %xmm0
mulsd %xmm1, %xmm0
unpckhpd %xmm3, %xmm3            # xmm3 = xmm3[1,1]
mulsd %xmm1, %xmm3
movq %rbx, %rdi
movapd %xmm3, %xmm1
addq $0x108, %rsp            # imm = 0x108
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xe101
movapd %xmm3, %xmm1
unpckhpd %xmm3, %xmm1            # xmm1 = xmm1[1],xmm3[1]
movq %rbx, %rdi
movapd %xmm3, %xmm0
callq 0xe101
movq %rax, %r12
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x1045a8
movq %rbx, %rdi
callq 0xb389
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movl $0x200001, %edx         # imm = 0x200001
movq %rdx, (%rax)
movq %r13, 0x8(%rax)
movq %rbp, 0x10(%rax)
movq 0x90(%rbx), %rcx
leaq -0x8(%rcx), %rsi
movq %rsi, 0x90(%rbx)
movq -0x8(%rcx), %rcx
movq %rdx, (%rcx)
movq %r12, 0x8(%rcx)
movq %rax, 0x10(%rcx)
movq 0x58daa(%rip), %r8      # 0x15d3a0
cmpq %r15, %rbp
movq 0x38(%rsp), %rdx
je 0x104614
xorl %r9d, %r9d
movq 0x10(%r15), %r15
incl %r9d
cmpq %rbp, %r15
jne 0x104603
jmp 0x1046bb
xorl %r9d, %r9d
jmp 0x1046bb
movq 0x8(%rsp), %rsi
movq %rbx, %rdi
callq 0xdff8
movq %rax, %r12
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
movq 0x38(%rsp), %r14
ja 0x104649
movq %rbx, %rdi
callq 0xb389
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movl $0x200001, %edx         # imm = 0x200001
movq %rdx, (%rax)
movq %r13, 0x8(%rax)
movq %rbp, 0x10(%rax)
movq 0x90(%rbx), %rcx
leaq -0x8(%rcx), %rsi
movq %rsi, 0x90(%rbx)
movq -0x8(%rcx), %rcx
movq %rdx, (%rcx)
movq %r12, 0x8(%rcx)
movq %rax, 0x10(%rcx)
movq 0x58d09(%rip), %r8      # 0x15d3a0
xorl %r9d, %r9d
cmpq %r15, %rbp
je 0x1046ab
movq 0x10(%r15), %r15
incl %r9d
cmpq %rbp, %r15
jne 0x10469f
movq %rbx, %rdi
movq %r13, %rsi
movq %r14, %rdx
jmp 0x1046c1
movq 0x38(%rsp), %rdx
movq %rbx, %rdi
movq %r13, %rsi
addq $0x108, %rsp            # imm = 0x108
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x1047a1
movq 0x8(%rsp), %rsi
movq 0x28(%rsp), %rdx
jmp 0x104706
movq 0x8(%rsp), %r14
cmpq $0x7ff, %r14            # imm = 0x7FF
ja 0x10471f
leaq 0x4a258(%rip), %rax     # 0x14e950
movq (%rax,%r14,8), %r12
jmp 0x104213
movq 0x8(%rsp), %rsi
movq %rbx, %rdi
addq $0x108, %rsp            # imm = 0x108
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xdd7f
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x104737
movq %rbx, %rdi
callq 0xb389
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r12
movq $0xb, (%r12)
movq %r14, 0x8(%r12)
jmp 0x104213
movapd %xmm3, %xmm1
unpckhpd %xmm3, %xmm1            # xmm1 = xmm1[1],xmm3[1]
movq %rbx, %rdi
movapd %xmm3, %xmm0
jmp 0x104563
cmpl $0x7, %eax
jne 0x104213
movapd %xmm3, %xmm2
jmp 0x103fbe
movsd 0x8(%r13), %xmm0
mulsd %xmm2, %xmm0
mulsd 0x10(%r13), %xmm2
movq %rbx, %rdi
movapd %xmm2, %xmm1
jmp 0x104563