#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 store_standard_tableau_form(int neq, int nvr, int *nbterms,
                                double *coefficients, int *exponents,
                                int verbose) {
  int fail, idx, nbtsum;
  nbtsum = 0;
  for (idx = 0; idx < neq; idx++)
    nbtsum = nbtsum + nbterms[idx];
  {
    int dim[neq + 4];
    dim[0] = neq;
    dim[1] = nvr;
    dim[2] = nbtsum;
    for (idx = 0; idx < neq; idx++)
      dim[3 + idx] = nbterms[idx];
    dim[neq + 3] = verbose;
    fail = _ada_use_c2phc4c(889, dim, exponents, coefficients, 0);
  }
  return fail;
}


x86 assembly (clang, -O0):
<store_standard_tableau_form>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %rdx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
mov    %r8,-0x20(%rbp)
mov    %r9d,-0x24(%rbp)
movl   $0x0,-0x30(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1167 <store_standard_tableau_form+0x57>
mov    -0x30(%rbp),%eax
mov    -0x10(%rbp),%rcx
movslq -0x2c(%rbp),%rdx
add    (%rcx,%rdx,4),%eax
mov    %eax,-0x30(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    113c <store_standard_tableau_form+0x2c>
mov    -0x4(%rbp),%eax
add    $0x4,%eax
mov    %eax,%ecx
mov    %rsp,%rax
mov    %rax,-0x38(%rbp)
lea    0xf(,%rcx,4),%rdx
and    $0xfffffffffffffff0,%rdx
mov    %rsp,%rax
sub    %rdx,%rax
mov    %rax,-0x48(%rbp)
mov    %rax,%rsp
mov    %rcx,-0x40(%rbp)
mov    -0x4(%rbp),%ecx
mov    %ecx,(%rax)
mov    -0x8(%rbp),%ecx
mov    %ecx,0x4(%rax)
mov    -0x30(%rbp),%ecx
mov    %ecx,0x8(%rax)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11e0 <store_standard_tableau_form+0xd0>
mov    -0x48(%rbp),%rax
mov    -0x10(%rbp),%rcx
movslq -0x2c(%rbp),%rdx
mov    (%rcx,%rdx,4),%edx
mov    -0x2c(%rbp),%ecx
add    $0x3,%ecx
movslq %ecx,%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    11ab <store_standard_tableau_form+0x9b>
mov    -0x48(%rbp),%rsi
mov    -0x24(%rbp),%ecx
mov    -0x4(%rbp),%eax
add    $0x3,%eax
cltq
mov    %ecx,(%rsi,%rax,4)
mov    -0x20(%rbp),%rdx
mov    -0x18(%rbp),%rcx
mov    $0x379,%edi
xor    %r8d,%r8d
call   1030 <_ada_use_c2phc4c@plt>
mov    %eax,-0x28(%rbp)
mov    -0x38(%rbp),%rax
mov    %rax,%rsp
mov    -0x28(%rbp),%eax
mov    %rbp,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<store_standard_tableau_form>:
push   %rbp
mov    %rsp,%rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %r9d,%r12d
mov    %r8,%r14
mov    %rcx,%r15
mov    %edi,%r13d
test   %edi,%edi
jle    1150 <store_standard_tableau_form+0x30>
mov    %r13d,%eax
cmp    $0x8,%r13d
jae    1182 <store_standard_tableau_form+0x62>
xor    %ecx,%ecx
xor    %edi,%edi
jmp    1270 <store_standard_tableau_form+0x150>
lea    0x4(%r13),%eax
mov    %rsp,%rcx
lea    0xf(,%rax,4),%rax
and    $0xfffffffffffffff0,%rax
mov    %rcx,%rbx
sub    %rax,%rbx
mov    %rbx,%rsp
neg    %rax
mov    %r13d,(%rcx,%rax,1)
mov    %esi,0x4(%rbx)
movl   $0x0,0x8(%rbx)
jmp    12bd <store_standard_tableau_form+0x19d>
mov    %eax,%ecx
and    $0xfffffff8,%ecx
lea    -0x8(%rcx),%rbx
mov    %rbx,%rdi
shr    $0x3,%rdi
add    $0x1,%rdi
mov    %edi,%r8d
and    $0x3,%r8d
cmp    $0x18,%rbx
jae    11af <store_standard_tableau_form+0x8f>
pxor   %xmm0,%xmm0
xor    %ebx,%ebx
pxor   %xmm1,%xmm1
jmp    1219 <store_standard_tableau_form+0xf9>
and    $0xfffffffffffffffc,%rdi
pxor   %xmm0,%xmm0
xor    %ebx,%ebx
pxor   %xmm1,%xmm1
nopl   (%rax)
movdqu (%rdx,%rbx,4),%xmm2
paddd  %xmm0,%xmm2
movdqu 0x10(%rdx,%rbx,4),%xmm0
paddd  %xmm1,%xmm0
movdqu 0x20(%rdx,%rbx,4),%xmm1
movdqu 0x30(%rdx,%rbx,4),%xmm3
movdqu 0x40(%rdx,%rbx,4),%xmm4
paddd  %xmm1,%xmm4
paddd  %xmm2,%xmm4
movdqu 0x50(%rdx,%rbx,4),%xmm2
paddd  %xmm3,%xmm2
paddd  %xmm0,%xmm2
movdqu 0x60(%rdx,%rbx,4),%xmm0
paddd  %xmm4,%xmm0
movdqu 0x70(%rdx,%rbx,4),%xmm1
paddd  %xmm2,%xmm1
add    $0x20,%rbx
add    $0xfffffffffffffffc,%rdi
jne    11c0 <store_standard_tableau_form+0xa0>
test   %r8,%r8
je     124c <store_standard_tableau_form+0x12c>
lea    (%rdx,%rbx,4),%rdi
add    $0x10,%rdi
shl    $0x5,%r8
xor    %ebx,%ebx
nopl   0x0(%rax)
movdqu -0x10(%rdi,%rbx,1),%xmm2
paddd  %xmm2,%xmm0
movdqu (%rdi,%rbx,1),%xmm2
paddd  %xmm2,%xmm1
add    $0x20,%rbx
cmp    %rbx,%r8
jne    1230 <store_standard_tableau_form+0x110>
paddd  %xmm1,%xmm0
pshufd $0xee,%xmm0,%xmm1
paddd  %xmm0,%xmm1
pshufd $0x55,%xmm1,%xmm0
paddd  %xmm1,%xmm0
movd   %xmm0,%edi
cmp    %rax,%rcx
je     127c <store_standard_tableau_form+0x15c>
nopl   0x0(%rax,%rax,1)
add    (%rdx,%rcx,4),%edi
add    $0x1,%rcx
cmp    %rcx,%rax
jne    1270 <store_standard_tableau_form+0x150>
lea    0x4(%r13),%ebx
mov    %rsp,%r8
lea    0xf(,%rbx,4),%rcx
and    $0xfffffffffffffff0,%rcx
mov    %r8,%rbx
sub    %rcx,%rbx
mov    %rbx,%rsp
neg    %rcx
mov    %r13d,(%r8,%rcx,1)
mov    %esi,0x4(%rbx)
mov    %edi,0x8(%rbx)
test   %r13d,%r13d
jle    12bd <store_standard_tableau_form+0x19d>
lea    0xc(%rbx),%rdi
shl    $0x2,%rax
mov    %rdx,%rsi
mov    %rax,%rdx
call   1030 <memcpy@plt>
movslq %r13d,%rax
mov    %r12d,0xc(%rbx,%rax,4)
mov    $0x379,%edi
mov    %rbx,%rsi
mov    %r14,%rdx
mov    %r15,%rcx
xor    %r8d,%r8d
call   1040 <_ada_use_c2phc4c@plt>
lea    -0x28(%rbp),%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @store_standard_tableau_form(i32 %0, i32 %1, i32* %2, double* %3, i32* %4, i32 %5) {
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32*
%10 = alloca double*
%11 = alloca i32*
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i8*
%17 = alloca i64
store i32 %0, i32* %7
store i32 %1, i32* %8
store i32* %2, i32** %9
store double* %3, double** %10
store i32* %4, i32** %11
store i32 %5, i32* %12
store i32 0, i32* %15
store i32 0, i32* %14
br label %18
18: ; preds = %30, %6
%19 = load i32, i32* %14
%20 = load i32, i32* %7
%21 = icmp slt i32 %19, %20
br i1 %21, label %22, label %33
22: ; preds = %18
%23 = load i32, i32* %15
%24 = load i32*, i32** %9
%25 = load i32, i32* %14
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds i32, i32* %24, i64 %26
%28 = load i32, i32* %27
%29 = add nsw i32 %23, %28
store i32 %29, i32* %15
br label %30
30: ; preds = %22
%31 = load i32, i32* %14
%32 = add nsw i32 %31, 1
store i32 %32, i32* %14
br label %18
33: ; preds = %18
%34 = load i32, i32* %7
%35 = add nsw i32 %34, 4
%36 = zext i32 %35 to i64
%37 = call i8* @llvm.stacksave()
store i8* %37, i8** %16
%38 = alloca i32, i64 %36
store i64 %36, i64* %17
%39 = load i32, i32* %7
%40 = getelementptr inbounds i32, i32* %38, i64 0
store i32 %39, i32* %40
%41 = load i32, i32* %8
%42 = getelementptr inbounds i32, i32* %38, i64 1
store i32 %41, i32* %42
%43 = load i32, i32* %15
%44 = getelementptr inbounds i32, i32* %38, i64 2
store i32 %43, i32* %44
store i32 0, i32* %14
br label %45
45: ; preds = %59, %33
%46 = load i32, i32* %14
%47 = load i32, i32* %7
%48 = icmp slt i32 %46, %47
br i1 %48, label %49, label %62
49: ; preds = %45
%50 = load i32*, i32** %9
%51 = load i32, i32* %14
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds i32, i32* %50, i64 %52
%54 = load i32, i32* %53
%55 = load i32, i32* %14
%56 = add nsw i32 3, %55
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds i32, i32* %38, i64 %57
store i32 %54, i32* %58
br label %59
59: ; preds = %49
%60 = load i32, i32* %14
%61 = add nsw i32 %60, 1
store i32 %61, i32* %14
br label %45
62: ; preds = %45
%63 = load i32, i32* %12
%64 = load i32, i32* %7
%65 = add nsw i32 %64, 3
%66 = sext i32 %65 to i64
%67 = getelementptr inbounds i32, i32* %38, i64 %66
store i32 %63, i32* %67
%68 = load i32*, i32** %11
%69 = load double*, double** %10
%70 = call i32 @_ada_use_c2phc4c(i32 889, i32* %38, i32* %68, double* %69, i32 0)
store i32 %70, i32* %13
%71 = load i8*, i8** %16
%72 = load i32, i32* %13
ret i32 %72
}

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