#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int _ada_use_c2phc4c(int, int *, int *, double *, int /*<<< orphan*/);
int padcon_quaddobl_track(int nbc, char *name, int locfile, int verbose,
                          int mhom, int nvr, int *idz) {
  int fail, idx;
  int pars[6];
  int *b;
  double *c;
  pars[0] = 2;
  pars[1] = nbc;
  pars[2] = verbose;
  pars[3] = mhom;
  pars[4] = locfile;
  pars[5] = nvr;
  if (mhom < 2) {
    if (nbc == 0)
      fail = _ada_use_c2phc4c(739, pars, b, c, 0);
    else {
      int iname[nbc];
      for (idx = 0; idx < nbc; idx++)
        iname[idx] = (int)name[idx];
      fail = _ada_use_c2phc4c(739, pars, iname, c, 0);
    }
  } else {
    double z[nvr];
    for (idx = 0; idx < nvr; idx++)
      z[idx] = (double)idz[idx];
    if (nbc == 0)
      fail = _ada_use_c2phc4c(739, pars, b, z, 0);
    else {
      int iname[nbc];
      for (idx = 0; idx < nbc; idx++)
        iname[idx] = (int)name[idx];
      fail = _ada_use_c2phc4c(739, pars, iname, z, 0);
    }
  }
  return fail;
}


x86 assembly (clang, -O0):
<padcon_quaddobl_track>:
push   %rbp
mov    %rsp,%rbp
sub    $0xa0,%rsp
mov    0x10(%rbp),%rax
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    %r8d,-0x1c(%rbp)
mov    %r9d,-0x20(%rbp)
movl   $0x2,-0x40(%rbp)
mov    -0x4(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x18(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0x1c(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x14(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x20(%rbp),%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x2,-0x1c(%rbp)
jge    121e <padcon_quaddobl_track+0x10e>
cmpl   $0x0,-0x4(%rbp)
jne    118e <padcon_quaddobl_track+0x7e>
lea    -0x40(%rbp),%rsi
mov    -0x48(%rbp),%rdx
mov    -0x50(%rbp),%rcx
mov    $0x2e3,%edi
xor    %r8d,%r8d
call   1030 <_ada_use_c2phc4c@plt>
mov    %eax,-0x24(%rbp)
jmp    1219 <padcon_quaddobl_track+0x109>
mov    -0x4(%rbp),%eax
mov    %rsp,%rcx
mov    %rcx,-0x58(%rbp)
lea    0xf(,%rax,4),%rdx
and    $0xfffffffffffffff0,%rdx
mov    %rsp,%rcx
sub    %rdx,%rcx
mov    %rcx,-0x88(%rbp)
mov    %rcx,%rsp
mov    %rax,-0x60(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11f3 <padcon_quaddobl_track+0xe3>
mov    -0x88(%rbp),%rax
mov    -0x10(%rbp),%rcx
movslq -0x28(%rbp),%rdx
movsbl (%rcx,%rdx,1),%edx
movslq -0x28(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    11bf <padcon_quaddobl_track+0xaf>
mov    -0x88(%rbp),%rdx
lea    -0x40(%rbp),%rsi
mov    -0x50(%rbp),%rcx
mov    $0x2e3,%edi
xor    %r8d,%r8d
call   1030 <_ada_use_c2phc4c@plt>
mov    %eax,-0x24(%rbp)
mov    -0x58(%rbp),%rax
mov    %rax,%rsp
jmp    1349 <padcon_quaddobl_track+0x239>
mov    -0x20(%rbp),%eax
mov    %rsp,%rcx
mov    %rcx,-0x68(%rbp)
lea    0xf(,%rax,8),%rdx
and    $0xfffffffffffffff0,%rdx
mov    %rsp,%rcx
sub    %rdx,%rcx
mov    %rcx,-0x90(%rbp)
mov    %rcx,%rsp
mov    %rax,-0x70(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    1286 <padcon_quaddobl_track+0x176>
mov    -0x90(%rbp),%rax
mov    0x10(%rbp),%rcx
movslq -0x28(%rbp),%rdx
cvtsi2sdl (%rcx,%rdx,4),%xmm0
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    124f <padcon_quaddobl_track+0x13f>
cmpl   $0x0,-0x4(%rbp)
jne    12b4 <padcon_quaddobl_track+0x1a4>
mov    -0x90(%rbp),%rcx
lea    -0x40(%rbp),%rsi
mov    -0x48(%rbp),%rdx
mov    $0x2e3,%edi
xor    %r8d,%r8d
call   1030 <_ada_use_c2phc4c@plt>
mov    %eax,-0x24(%rbp)
jmp    1342 <padcon_quaddobl_track+0x232>
mov    -0x4(%rbp),%eax
mov    %rsp,%rcx
mov    %rcx,-0x78(%rbp)
lea    0xf(,%rax,4),%rdx
and    $0xfffffffffffffff0,%rdx
mov    %rsp,%rcx
sub    %rdx,%rcx
mov    %rcx,-0x98(%rbp)
mov    %rcx,%rsp
mov    %rax,-0x80(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1319 <padcon_quaddobl_track+0x209>
mov    -0x98(%rbp),%rax
mov    -0x10(%rbp),%rcx
movslq -0x28(%rbp),%rdx
movsbl (%rcx,%rdx,1),%edx
movslq -0x28(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    12e5 <padcon_quaddobl_track+0x1d5>
mov    -0x90(%rbp),%rcx
mov    -0x98(%rbp),%rdx
lea    -0x40(%rbp),%rsi
mov    $0x2e3,%edi
xor    %r8d,%r8d
call   1030 <_ada_use_c2phc4c@plt>
mov    %eax,-0x24(%rbp)
mov    -0x78(%rbp),%rax
mov    %rax,%rsp
mov    -0x68(%rbp),%rax
mov    %rax,%rsp
mov    -0x24(%rbp),%eax
mov    %rbp,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<padcon_quaddobl_track>:
push   %rbp
mov    %rsp,%rbp
push   %r15
push   %r14
push   %rbx
sub    $0x18,%rsp
movl   $0x2,-0x30(%rbp)
mov    %edi,-0x2c(%rbp)
mov    %ecx,-0x28(%rbp)
mov    %r8d,-0x24(%rbp)
mov    %edx,-0x20(%rbp)
mov    %r9d,-0x1c(%rbp)
cmp    $0x1,%r8d
jg     1171 <padcon_quaddobl_track+0x61>
test   %edi,%edi
je     11a6 <padcon_quaddobl_track+0x96>
mov    %rsp,%r14
mov    %edi,%eax
mov    %rsp,%rdx
lea    0xf(,%rax,4),%rcx
and    $0xfffffffffffffff0,%rcx
sub    %rcx,%rdx
mov    %rdx,%rsp
test   %edi,%edi
jle    1390 <padcon_quaddobl_track+0x280>
cmp    $0x8,%edi
jae    12a3 <padcon_quaddobl_track+0x193>
xor    %ecx,%ecx
jmp    1380 <padcon_quaddobl_track+0x270>
mov    %rsp,%r14
mov    %r9d,%r10d
mov    %rsp,%rcx
lea    0xf(,%r10,8),%rax
and    $0xfffffffffffffff0,%rax
sub    %rax,%rcx
mov    %rcx,%rsp
test   %r9d,%r9d
jle    1267 <padcon_quaddobl_track+0x157>
mov    0x10(%rbp),%r11
cmp    $0x4,%r9d
jae    11bc <padcon_quaddobl_track+0xac>
xor    %eax,%eax
jmp    1250 <padcon_quaddobl_track+0x140>
lea    -0x30(%rbp),%rsi
mov    $0x2e3,%edi
xor    %r8d,%r8d
call   1030 <_ada_use_c2phc4c@plt>
jmp    14a7 <padcon_quaddobl_track+0x397>
mov    %r10d,%eax
and    $0xfffffffc,%eax
lea    -0x4(%rax),%rdx
mov    %rdx,%r8
shr    $0x2,%r8
add    $0x1,%r8
test   %rdx,%rdx
je     14b2 <padcon_quaddobl_track+0x3a2>
mov    %r8,%rdx
and    $0xfffffffffffffffe,%rdx
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
cvtdq2pd (%r11,%rbx,4),%xmm0
cvtdq2pd 0x8(%r11,%rbx,4),%xmm1
movaps %xmm0,(%rcx,%rbx,8)
movaps %xmm1,0x10(%rcx,%rbx,8)
cvtdq2pd 0x10(%r11,%rbx,4),%xmm0
cvtdq2pd 0x18(%r11,%rbx,4),%xmm1
movapd %xmm0,0x20(%rcx,%rbx,8)
movdqa %xmm1,0x30(%rcx,%rbx,8)
add    $0x8,%rbx
add    $0xfffffffffffffffe,%rdx
jne    11f0 <padcon_quaddobl_track+0xe0>
test   $0x1,%r8b
je     1248 <padcon_quaddobl_track+0x138>
cvtdq2pd (%r11,%rbx,4),%xmm0
cvtdq2pd 0x8(%r11,%rbx,4),%xmm1
movapd %xmm0,(%rcx,%rbx,8)
movdqa %xmm1,0x10(%rcx,%rbx,8)
cmp    %r10,%rax
je     1267 <padcon_quaddobl_track+0x157>
nopl   (%rax)
xorps  %xmm0,%xmm0
cvtsi2sdl (%r11,%rax,4),%xmm0
movsd  %xmm0,(%rcx,%rax,8)
add    $0x1,%rax
cmp    %rax,%r10
jne    1250 <padcon_quaddobl_track+0x140>
test   %edi,%edi
je     129e <padcon_quaddobl_track+0x18e>
mov    %rsp,%r15
mov    %edi,%r9d
mov    %rsp,%rdx
lea    0xf(,%r9,4),%rax
and    $0xfffffffffffffff0,%rax
sub    %rax,%rdx
mov    %rdx,%rsp
test   %edi,%edi
jle    1490 <padcon_quaddobl_track+0x380>
cmp    $0x8,%edi
jae    13a6 <padcon_quaddobl_track+0x296>
xor    %edi,%edi
jmp    1480 <padcon_quaddobl_track+0x370>
jmp    1390 <padcon_quaddobl_track+0x280>
mov    %eax,%ecx
and    $0xfffffff8,%ecx
lea    -0x8(%rcx),%rdi
mov    %rdi,%r8
shr    $0x3,%r8
add    $0x1,%r8
test   %rdi,%rdi
je     14c3 <padcon_quaddobl_track+0x3b3>
mov    %r8,%rbx
and    $0xfffffffffffffffe,%rbx
xor    %edi,%edi
nopl   0x0(%rax)
movd   (%rsi,%rdi,1),%xmm0
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm0
movd   0x4(%rsi,%rdi,1),%xmm1
punpcklbw %xmm1,%xmm1
punpcklwd %xmm1,%xmm1
psrad  $0x18,%xmm0
psrad  $0x18,%xmm1
movdqa %xmm0,(%rdx,%rdi,4)
movdqa %xmm1,0x10(%rdx,%rdi,4)
movd   0x8(%rsi,%rdi,1),%xmm0
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm0
movd   0xc(%rsi,%rdi,1),%xmm1
punpcklbw %xmm1,%xmm1
punpcklwd %xmm1,%xmm1
psrad  $0x18,%xmm0
psrad  $0x18,%xmm1
movdqa %xmm0,0x20(%rdx,%rdi,4)
movdqa %xmm1,0x30(%rdx,%rdi,4)
add    $0x10,%rdi
add    $0xfffffffffffffffe,%rbx
jne    12d0 <padcon_quaddobl_track+0x1c0>
test   $0x1,%r8b
je     1372 <padcon_quaddobl_track+0x262>
movd   (%rsi,%rdi,1),%xmm0
movd   0x4(%rsi,%rdi,1),%xmm1
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm0
psrad  $0x18,%xmm0
punpcklbw %xmm1,%xmm1
punpcklwd %xmm1,%xmm1
psrad  $0x18,%xmm1
movdqa %xmm0,(%rdx,%rdi,4)
movdqa %xmm1,0x10(%rdx,%rdi,4)
cmp    %rax,%rcx
je     1390 <padcon_quaddobl_track+0x280>
nopw   0x0(%rax,%rax,1)
movsbl (%rsi,%rcx,1),%edi
mov    %edi,(%rdx,%rcx,4)
add    $0x1,%rcx
cmp    %rcx,%rax
jne    1380 <padcon_quaddobl_track+0x270>
lea    -0x30(%rbp),%rsi
mov    $0x2e3,%edi
xor    %r8d,%r8d
call   1030 <_ada_use_c2phc4c@plt>
jmp    14a4 <padcon_quaddobl_track+0x394>
mov    %r9d,%edi
and    $0xfffffff8,%edi
lea    -0x8(%rdi),%rax
mov    %rax,%r8
shr    $0x3,%r8
add    $0x1,%r8
test   %rax,%rax
je     14d4 <padcon_quaddobl_track+0x3c4>
mov    %r8,%rax
and    $0xfffffffffffffffe,%rax
xor    %ebx,%ebx
nopl   (%rax)
movd   (%rsi,%rbx,1),%xmm0
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm0
movd   0x4(%rsi,%rbx,1),%xmm1
punpcklbw %xmm1,%xmm1
punpcklwd %xmm1,%xmm1
psrad  $0x18,%xmm0
psrad  $0x18,%xmm1
movdqa %xmm0,(%rdx,%rbx,4)
movdqa %xmm1,0x10(%rdx,%rbx,4)
movd   0x8(%rsi,%rbx,1),%xmm0
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm0
movd   0xc(%rsi,%rbx,1),%xmm1
punpcklbw %xmm1,%xmm1
punpcklwd %xmm1,%xmm1
psrad  $0x18,%xmm0
psrad  $0x18,%xmm1
movdqa %xmm0,0x20(%rdx,%rbx,4)
movdqa %xmm1,0x30(%rdx,%rbx,4)
add    $0x10,%rbx
add    $0xfffffffffffffffe,%rax
jne    13d0 <padcon_quaddobl_track+0x2c0>
test   $0x1,%r8b
je     1472 <padcon_quaddobl_track+0x362>
movd   (%rsi,%rbx,1),%xmm0
movd   0x4(%rsi,%rbx,1),%xmm1
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm0
psrad  $0x18,%xmm0
punpcklbw %xmm1,%xmm1
punpcklwd %xmm1,%xmm1
psrad  $0x18,%xmm1
movdqa %xmm0,(%rdx,%rbx,4)
movdqa %xmm1,0x10(%rdx,%rbx,4)
cmp    %r9,%rdi
je     1490 <padcon_quaddobl_track+0x380>
nopw   0x0(%rax,%rax,1)
movsbl (%rsi,%rdi,1),%eax
mov    %eax,(%rdx,%rdi,4)
add    $0x1,%rdi
cmp    %rdi,%r9
jne    1480 <padcon_quaddobl_track+0x370>
lea    -0x30(%rbp),%rsi
mov    $0x2e3,%edi
xor    %r8d,%r8d
call   1030 <_ada_use_c2phc4c@plt>
mov    %r15,%rsp
mov    %r14,%rsp
lea    -0x18(%rbp),%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret
xor    %ebx,%ebx
test   $0x1,%r8b
jne    1230 <padcon_quaddobl_track+0x120>
jmp    1248 <padcon_quaddobl_track+0x138>
xor    %edi,%edi
test   $0x1,%r8b
jne    1342 <padcon_quaddobl_track+0x232>
jmp    1372 <padcon_quaddobl_track+0x262>
xor    %ebx,%ebx
test   $0x1,%r8b
jne    1442 <padcon_quaddobl_track+0x332>
jmp    1472 <padcon_quaddobl_track+0x362>

LLVM IR (-O0):
define i32 @padcon_quaddobl_track(i32 %0, i8* %1, i32 %2, i32 %3, i32 %4, i32 %5, i32* %6) {
%8 = alloca i32
%9 = alloca i8*
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32*
%15 = alloca i32
%16 = alloca i32
%17 = alloca [6 x i32]
%18 = alloca i32*
%19 = alloca double*
%20 = alloca i8*
%21 = alloca i64
%22 = alloca i8*
%23 = alloca i64
%24 = alloca i8*
%25 = alloca i64
store i32 %0, i32* %8
store i8* %1, i8** %9
store i32 %2, i32* %10
store i32 %3, i32* %11
store i32 %4, i32* %12
store i32 %5, i32* %13
store i32* %6, i32** %14
%26 = getelementptr inbounds [6 x i32], [6 x i32]* %17, i64 0, i64 0
store i32 2, i32* %26
%27 = load i32, i32* %8
%28 = getelementptr inbounds [6 x i32], [6 x i32]* %17, i64 0, i64 1
store i32 %27, i32* %28
%29 = load i32, i32* %11
%30 = getelementptr inbounds [6 x i32], [6 x i32]* %17, i64 0, i64 2
store i32 %29, i32* %30
%31 = load i32, i32* %12
%32 = getelementptr inbounds [6 x i32], [6 x i32]* %17, i64 0, i64 3
store i32 %31, i32* %32
%33 = load i32, i32* %10
%34 = getelementptr inbounds [6 x i32], [6 x i32]* %17, i64 0, i64 4
store i32 %33, i32* %34
%35 = load i32, i32* %13
%36 = getelementptr inbounds [6 x i32], [6 x i32]* %17, i64 0, i64 5
store i32 %35, i32* %36
%37 = load i32, i32* %12
%38 = icmp slt i32 %37, 2
br i1 %38, label %39, label %75
39: ; preds = %7
%40 = load i32, i32* %8
%41 = icmp eq i32 %40, 0
br i1 %41, label %42, label %47
42: ; preds = %39
%43 = getelementptr inbounds [6 x i32], [6 x i32]* %17, i64 0, i64 0
%44 = load i32*, i32** %18
%45 = load double*, double** %19
%46 = call i32 @_ada_use_c2phc4c(i32 739, i32* %43, i32* %44, double* %45, i32 0)
store i32 %46, i32* %15
br label %74
47: ; preds = %39
%48 = load i32, i32* %8
%49 = zext i32 %48 to i64
%50 = call i8* @llvm.stacksave()
store i8* %50, i8** %20
%51 = alloca i32, i64 %49
store i64 %49, i64* %21
store i32 0, i32* %16
br label %52
52: ; preds = %66, %47
%53 = load i32, i32* %16
%54 = load i32, i32* %8
%55 = icmp slt i32 %53, %54
br i1 %55, label %56, label %69
56: ; preds = %52
%57 = load i8*, i8** %9
%58 = load i32, i32* %16
%59 = sext i32 %58 to i64
%60 = getelementptr inbounds i8, i8* %57, i64 %59
%61 = load i8, i8* %60
%62 = sext i8 %61 to i32
%63 = load i32, i32* %16
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds i32, i32* %51, i64 %64
store i32 %62, i32* %65
br label %66
66: ; preds = %56
%67 = load i32, i32* %16
%68 = add nsw i32 %67, 1
store i32 %68, i32* %16
br label %52
69: ; preds = %52
%70 = getelementptr inbounds [6 x i32], [6 x i32]* %17, i64 0, i64 0
%71 = load double*, double** %19
%72 = call i32 @_ada_use_c2phc4c(i32 739, i32* %70, i32* %51, double* %71, i32 0)
store i32 %72, i32* %15
%73 = load i8*, i8** %20
br label %74
74: ; preds = %69, %42
br label %132
75: ; preds = %7
%76 = load i32, i32* %13
%77 = zext i32 %76 to i64
%78 = call i8* @llvm.stacksave()
store i8* %78, i8** %22
%79 = alloca double, i64 %77
store i64 %77, i64* %23
store i32 0, i32* %16
br label %80
80: ; preds = %94, %75
%81 = load i32, i32* %16
%82 = load i32, i32* %13
%83 = icmp slt i32 %81, %82
br i1 %83, label %84, label %97
84: ; preds = %80
%85 = load i32*, i32** %14
%86 = load i32, i32* %16
%87 = sext i32 %86 to i64
%88 = getelementptr inbounds i32, i32* %85, i64 %87
%89 = load i32, i32* %88
%90 = sitofp i32 %89 to double
%91 = load i32, i32* %16
%92 = sext i32 %91 to i64
%93 = getelementptr inbounds double, double* %79, i64 %92
store double %90, double* %93
br label %94
94: ; preds = %84
%95 = load i32, i32* %16
%96 = add nsw i32 %95, 1
store i32 %96, i32* %16
br label %80
97: ; preds = %80
%98 = load i32, i32* %8
%99 = icmp eq i32 %98, 0
br i1 %99, label %100, label %104
100: ; preds = %97
%101 = getelementptr inbounds [6 x i32], [6 x i32]* %17, i64 0, i64 0
%102 = load i32*, i32** %18
%103 = call i32 @_ada_use_c2phc4c(i32 739, i32* %101, i32* %102, double* %79, i32 0)
store i32 %103, i32* %15
br label %130
104: ; preds = %97
%105 = load i32, i32* %8
%106 = zext i32 %105 to i64
%107 = call i8* @llvm.stacksave()
store i8* %107, i8** %24
%108 = alloca i32, i64 %106
store i64 %106, i64* %25
store i32 0, i32* %16
br label %109
109: ; preds = %123, %104
%110 = load i32, i32* %16
%111 = load i32, i32* %8
%112 = icmp slt i32 %110, %111
br i1 %112, label %113, label %126
113: ; preds = %109
%114 = load i8*, i8** %9
%115 = load i32, i32* %16
%116 = sext i32 %115 to i64
%117 = getelementptr inbounds i8, i8* %114, i64 %116
%118 = load i8, i8* %117
%119 = sext i8 %118 to i32
%120 = load i32, i32* %16
%121 = sext i32 %120 to i64
%122 = getelementptr inbounds i32, i32* %108, i64 %121
store i32 %119, i32* %122
br label %123
123: ; preds = %113
%124 = load i32, i32* %16
%125 = add nsw i32 %124, 1
store i32 %125, i32* %16
br label %109
126: ; preds = %109
%127 = getelementptr inbounds [6 x i32], [6 x i32]* %17, i64 0, i64 0
%128 = call i32 @_ada_use_c2phc4c(i32 739, i32* %127, i32* %108, double* %79, i32 0)
store i32 %128, i32* %15
%129 = load i8*, i8** %24
br label %130
130: ; preds = %126, %100
%131 = load i8*, i8** %22
br label %132
132: ; preds = %130, %74
%133 = load i32, i32* %15
ret i32 %133
}

LLVM IR (-O2):
define i32 @padcon_quaddobl_track(i32 %0, i8* nocapture %1, i32 %2, i32 %3, i32 %4, i32 %5, i32* nocapture %6) {
%8 = alloca [6 x i32]
%9 = bitcast [6 x i32]* %8 to i8*
%10 = getelementptr inbounds [6 x i32], [6 x i32]* %8, i64 0, i64 0
store i32 2, i32* %10
%11 = getelementptr inbounds [6 x i32], [6 x i32]* %8, i64 0, i64 1
store i32 %0, i32* %11
%12 = getelementptr inbounds [6 x i32], [6 x i32]* %8, i64 0, i64 2
store i32 %3, i32* %12
%13 = getelementptr inbounds [6 x i32], [6 x i32]* %8, i64 0, i64 3
store i32 %4, i32* %13
%14 = getelementptr inbounds [6 x i32], [6 x i32]* %8, i64 0, i64 4
store i32 %2, i32* %14
%15 = getelementptr inbounds [6 x i32], [6 x i32]* %8, i64 0, i64 5
store i32 %5, i32* %15
%16 = icmp slt i32 %4, 2
br i1 %16, label %17, label %98
17: ; preds = %7
%18 = icmp eq i32 %0, 0
br i1 %18, label %19, label %21
19: ; preds = %17
%20 = call i32 @_ada_use_c2phc4c(i32 739, i32* %10, i32* undef, double* undef, i32 0)
br label %256
21: ; preds = %17
%22 = zext i32 %0 to i64
%23 = tail call i8* @llvm.stacksave()
%24 = alloca i32, i64 %22
%25 = icmp sgt i32 %0, 0
br i1 %25, label %26, label %96
26: ; preds = %21
%27 = icmp ult i32 %0, 8
br i1 %27, label %86, label %28
28: ; preds = %26
%29 = and i64 %22, 4294967288
%30 = add nsw i64 %29, -8
%31 = lshr exact i64 %30, 3
%32 = add nuw nsw i64 %31, 1
%33 = and i64 %32, 1
%34 = icmp eq i64 %30, 0
br i1 %34, label %68, label %35
35: ; preds = %28
%36 = and i64 %32, 4611686018427387902
br label %37
37: ; preds = %37, %35
%38 = phi i64 [ 0, %35 ], [ %65, %37 ]
%39 = phi i64 [ 0, %35 ], [ %66, %37 ]
%40 = getelementptr inbounds i8, i8* %1, i64 %38
%41 = bitcast i8* %40 to <4 x i8>*
%42 = load <4 x i8>, <4 x i8>* %41
%43 = getelementptr inbounds i8, i8* %40, i64 4
%44 = bitcast i8* %43 to <4 x i8>*
%45 = load <4 x i8>, <4 x i8>* %44
%46 = sext <4 x i8> %42 to <4 x i32>
%47 = sext <4 x i8> %45 to <4 x i32>
%48 = getelementptr inbounds i32, i32* %24, i64 %38
%49 = bitcast i32* %48 to <4 x i32>*
store <4 x i32> %46, <4 x i32>* %49
%50 = getelementptr inbounds i32, i32* %48, i64 4
%51 = bitcast i32* %50 to <4 x i32>*
store <4 x i32> %47, <4 x i32>* %51
%52 = or i64 %38, 8
%53 = getelementptr inbounds i8, i8* %1, i64 %52
%54 = bitcast i8* %53 to <4 x i8>*
%55 = load <4 x i8>, <4 x i8>* %54
%56 = getelementptr inbounds i8, i8* %53, i64 4
%57 = bitcast i8* %56 to <4 x i8>*
%58 = load <4 x i8>, <4 x i8>* %57
%59 = sext <4 x i8> %55 to <4 x i32>
%60 = sext <4 x i8> %58 to <4 x i32>
%61 = getelementptr inbounds i32, i32* %24, i64 %52
%62 = bitcast i32* %61 to <4 x i32>*
store <4 x i32> %59, <4 x i32>* %62
%63 = getelementptr inbounds i32, i32* %61, i64 4
%64 = bitcast i32* %63 to <4 x i32>*
store <4 x i32> %60, <4 x i32>* %64
%65 = add nuw i64 %38, 16
%66 = add i64 %39, 2
%67 = icmp eq i64 %66, %36
br i1 %67, label %68, label %37
68: ; preds = %37, %28
%69 = phi i64 [ 0, %28 ], [ %65, %37 ]
%70 = icmp eq i64 %33, 0
br i1 %70, label %84, label %71
71: ; preds = %68
%72 = getelementptr inbounds i8, i8* %1, i64 %69
%73 = bitcast i8* %72 to <4 x i8>*
%74 = load <4 x i8>, <4 x i8>* %73
%75 = getelementptr inbounds i8, i8* %72, i64 4
%76 = bitcast i8* %75 to <4 x i8>*
%77 = load <4 x i8>, <4 x i8>* %76
%78 = sext <4 x i8> %74 to <4 x i32>
%79 = sext <4 x i8> %77 to <4 x i32>
%80 = getelementptr inbounds i32, i32* %24, i64 %69
%81 = bitcast i32* %80 to <4 x i32>*
store <4 x i32> %78, <4 x i32>* %81
%82 = getelementptr inbounds i32, i32* %80, i64 4
%83 = bitcast i32* %82 to <4 x i32>*
store <4 x i32> %79, <4 x i32>* %83
br label %84
84: ; preds = %68, %71
%85 = icmp eq i64 %29, %22
br i1 %85, label %96, label %86
86: ; preds = %26, %84
%87 = phi i64 [ 0, %26 ], [ %29, %84 ]
br label %88
88: ; preds = %86, %88
%89 = phi i64 [ %94, %88 ], [ %87, %86 ]
%90 = getelementptr inbounds i8, i8* %1, i64 %89
%91 = load i8, i8* %90
%92 = sext i8 %91 to i32
%93 = getelementptr inbounds i32, i32* %24, i64 %89
store i32 %92, i32* %93
%94 = add nuw nsw i64 %89, 1
%95 = icmp eq i64 %94, %22
br i1 %95, label %96, label %88
96: ; preds = %88, %84, %21
%97 = call i32 @_ada_use_c2phc4c(i32 739, i32* %10, i32* %24, double* undef, i32 0)
br label %256
98: ; preds = %7
%99 = zext i32 %5 to i64
%100 = tail call i8* @llvm.stacksave()
%101 = alloca double, i64 %99
%102 = icmp sgt i32 %5, 0
br i1 %102, label %103, label %173
103: ; preds = %98
%104 = icmp ult i32 %5, 4
br i1 %104, label %163, label %105
105: ; preds = %103
%106 = and i64 %99, 4294967292
%107 = add nsw i64 %106, -4
%108 = lshr exact i64 %107, 2
%109 = add nuw nsw i64 %108, 1
%110 = and i64 %109, 1
%111 = icmp eq i64 %107, 0
br i1 %111, label %145, label %112
112: ; preds = %105
%113 = and i64 %109, 9223372036854775806
br label %114
114: ; preds = %114, %112
%115 = phi i64 [ 0, %112 ], [ %142, %114 ]
%116 = phi i64 [ 0, %112 ], [ %143, %114 ]
%117 = getelementptr inbounds i32, i32* %6, i64 %115
%118 = bitcast i32* %117 to <2 x i32>*
%119 = load <2 x i32>, <2 x i32>* %118
%120 = getelementptr inbounds i32, i32* %117, i64 2
%121 = bitcast i32* %120 to <2 x i32>*
%122 = load <2 x i32>, <2 x i32>* %121
%123 = sitofp <2 x i32> %119 to <2 x double>
%124 = sitofp <2 x i32> %122 to <2 x double>
%125 = getelementptr inbounds double, double* %101, i64 %115
%126 = bitcast double* %125 to <2 x double>*
store <2 x double> %123, <2 x double>* %126
%127 = getelementptr inbounds double, double* %125, i64 2
%128 = bitcast double* %127 to <2 x double>*
store <2 x double> %124, <2 x double>* %128
%129 = or i64 %115, 4
%130 = getelementptr inbounds i32, i32* %6, i64 %129
%131 = bitcast i32* %130 to <2 x i32>*
%132 = load <2 x i32>, <2 x i32>* %131
%133 = getelementptr inbounds i32, i32* %130, i64 2
%134 = bitcast i32* %133 to <2 x i32>*
%135 = load <2 x i32>, <2 x i32>* %134
%136 = sitofp <2 x i32> %132 to <2 x double>
%137 = sitofp <2 x i32> %135 to <2 x double>
%138 = getelementptr inbounds double, double* %101, i64 %129
%139 = bitcast double* %138 to <2 x double>*
store <2 x double> %136, <2 x double>* %139
%140 = getelementptr inbounds double, double* %138, i64 2
%141 = bitcast double* %140 to <2 x double>*
store <2 x double> %137, <2 x double>* %141
%142 = add nuw i64 %115, 8
%143 = add i64 %116, 2
%144 = icmp eq i64 %143, %113
br i1 %144, label %145, label %114
145: ; preds = %114, %105
%146 = phi i64 [ 0, %105 ], [ %142, %114 ]
%147 = icmp eq i64 %110, 0
br i1 %147, label %161, label %148
148: ; preds = %145
%149 = getelementptr inbounds i32, i32* %6, i64 %146
%150 = bitcast i32* %149 to <2 x i32>*
%151 = load <2 x i32>, <2 x i32>* %150
%152 = getelementptr inbounds i32, i32* %149, i64 2
%153 = bitcast i32* %152 to <2 x i32>*
%154 = load <2 x i32>, <2 x i32>* %153
%155 = sitofp <2 x i32> %151 to <2 x double>
%156 = sitofp <2 x i32> %154 to <2 x double>
%157 = getelementptr inbounds double, double* %101, i64 %146
%158 = bitcast double* %157 to <2 x double>*
store <2 x double> %155, <2 x double>* %158
%159 = getelementptr inbounds double, double* %157, i64 2
%160 = bitcast double* %159 to <2 x double>*
store <2 x double> %156, <2 x double>* %160
br label %161
161: ; preds = %145, %148
%162 = icmp eq i64 %106, %99
br i1 %162, label %173, label %163
163: ; preds = %103, %161
%164 = phi i64 [ 0, %103 ], [ %106, %161 ]
br label %165
165: ; preds = %163, %165
%166 = phi i64 [ %171, %165 ], [ %164, %163 ]
%167 = getelementptr inbounds i32, i32* %6, i64 %166
%168 = load i32, i32* %167
%169 = sitofp i32 %168 to double
%170 = getelementptr inbounds double, double* %101, i64 %166
store double %169, double* %170
%171 = add nuw nsw i64 %166, 1
%172 = icmp eq i64 %171, %99
br i1 %172, label %173, label %165
173: ; preds = %165, %161, %98
%174 = icmp eq i32 %0, 0
br i1 %174, label %175, label %177
175: ; preds = %173
%176 = call i32 @_ada_use_c2phc4c(i32 739, i32* %10, i32* undef, double* %101, i32 0)
br label %254
177: ; preds = %173
%178 = zext i32 %0 to i64
%179 = tail call i8* @llvm.stacksave()
%180 = alloca i32, i64 %178
%181 = icmp sgt i32 %0, 0
br i1 %181, label %182, label %252
182: ; preds = %177
%183 = icmp ult i32 %0, 8
br i1 %183, label %242, label %184
184: ; preds = %182
%185 = and i64 %178, 4294967288
%186 = add nsw i64 %185, -8
%187 = lshr exact i64 %186, 3
%188 = add nuw nsw i64 %187, 1
%189 = and i64 %188, 1
%190 = icmp eq i64 %186, 0
br i1 %190, label %224, label %191
191: ; preds = %184
%192 = and i64 %188, 4611686018427387902
br label %193
193: ; preds = %193, %191
%194 = phi i64 [ 0, %191 ], [ %221, %193 ]
%195 = phi i64 [ 0, %191 ], [ %222, %193 ]
%196 = getelementptr inbounds i8, i8* %1, i64 %194
%197 = bitcast i8* %196 to <4 x i8>*
%198 = load <4 x i8>, <4 x i8>* %197
%199 = getelementptr inbounds i8, i8* %196, i64 4
%200 = bitcast i8* %199 to <4 x i8>*
%201 = load <4 x i8>, <4 x i8>* %200
%202 = sext <4 x i8> %198 to <4 x i32>
%203 = sext <4 x i8> %201 to <4 x i32>
%204 = getelementptr inbounds i32, i32* %180, i64 %194
%205 = bitcast i32* %204 to <4 x i32>*
store <4 x i32> %202, <4 x i32>* %205
%206 = getelementptr inbounds i32, i32* %204, i64 4
%207 = bitcast i32* %206 to <4 x i32>*
store <4 x i32> %203, <4 x i32>* %207
%208 = or i64 %194, 8
%209 = getelementptr inbounds i8, i8* %1, i64 %208
%210 = bitcast i8* %209 to <4 x i8>*
%211 = load <4 x i8>, <4 x i8>* %210
%212 = getelementptr inbounds i8, i8* %209, i64 4
%213 = bitcast i8* %212 to <4 x i8>*
%214 = load <4 x i8>, <4 x i8>* %213
%215 = sext <4 x i8> %211 to <4 x i32>
%216 = sext <4 x i8> %214 to <4 x i32>
%217 = getelementptr inbounds i32, i32* %180, i64 %208
%218 = bitcast i32* %217 to <4 x i32>*
store <4 x i32> %215, <4 x i32>* %218
%219 = getelementptr inbounds i32, i32* %217, i64 4
%220 = bitcast i32* %219 to <4 x i32>*
store <4 x i32> %216, <4 x i32>* %220
%221 = add nuw i64 %194, 16
%222 = add i64 %195, 2
%223 = icmp eq i64 %222, %192
br i1 %223, label %224, label %193
224: ; preds = %193, %184
%225 = phi i64 [ 0, %184 ], [ %221, %193 ]
%226 = icmp eq i64 %189, 0
br i1 %226, label %240, label %227
227: ; preds = %224
%228 = getelementptr inbounds i8, i8* %1, i64 %225
%229 = bitcast i8* %228 to <4 x i8>*
%230 = load <4 x i8>, <4 x i8>* %229
%231 = getelementptr inbounds i8, i8* %228, i64 4
%232 = bitcast i8* %231 to <4 x i8>*
%233 = load <4 x i8>, <4 x i8>* %232
%234 = sext <4 x i8> %230 to <4 x i32>
%235 = sext <4 x i8> %233 to <4 x i32>
%236 = getelementptr inbounds i32, i32* %180, i64 %225
%237 = bitcast i32* %236 to <4 x i32>*
store <4 x i32> %234, <4 x i32>* %237
%238 = getelementptr inbounds i32, i32* %236, i64 4
%239 = bitcast i32* %238 to <4 x i32>*
store <4 x i32> %235, <4 x i32>* %239
br label %240
240: ; preds = %224, %227
%241 = icmp eq i64 %185, %178
br i1 %241, label %252, label %242
242: ; preds = %182, %240
%243 = phi i64 [ 0, %182 ], [ %185, %240 ]
br label %244
244: ; preds = %242, %244
%245 = phi i64 [ %250, %244 ], [ %243, %242 ]
%246 = getelementptr inbounds i8, i8* %1, i64 %245
%247 = load i8, i8* %246
%248 = sext i8 %247 to i32
%249 = getelementptr inbounds i32, i32* %180, i64 %245
store i32 %248, i32* %249
%250 = add nuw nsw i64 %245, 1
%251 = icmp eq i64 %250, %178
br i1 %251, label %252, label %244
252: ; preds = %244, %240, %177
%253 = call i32 @_ada_use_c2phc4c(i32 739, i32* %10, i32* %180, double* %101, i32 0)
br label %254
254: ; preds = %252, %175
%255 = phi i32 [ %176, %175 ], [ %253, %252 ]
br label %256
256: ; preds = %19, %96, %254
%257 = phi i32 [ %20, %19 ], [ %97, %96 ], [ %255, %254 ]
ret i32 %257
}