#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_c2phc(int, int *, int *, double *);
int retrieve_facet(int dim, int fcn, int *nc_rep, char *fctrep) {
  int fail, k;
  int a = dim;
  int b[100 * dim];
  double *c;
  b[0] = fcn;
  fail = _ada_use_c2phc(583, &a, b, c);
  *nc_rep = a;
  for (k = 0; k < a; k++)
    fctrep[k] = (char)b[k];
  fctrep[a] = '\0';
  return fail;
}


x86 assembly (clang, -O0):
<retrieve_facet>:
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    -0x4(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x4(%rbp),%eax
imul   $0x64,%eax,%eax
mov    %rsp,%rcx
mov    %rcx,-0x30(%rbp)
mov    %rax,%rcx
shl    $0x2,%rcx
mov    %rsp,%rdx
sub    %rcx,%rdx
mov    %rdx,-0x48(%rbp)
mov    %rdx,%rsp
mov    %rax,-0x38(%rbp)
mov    -0x8(%rbp),%eax
mov    %eax,(%rdx)
mov    -0x40(%rbp),%rcx
mov    $0x247,%edi
lea    -0x24(%rbp),%rsi
call   1030 <_ada_use_c2phc@plt>
mov    %eax,-0x1c(%rbp)
mov    -0x24(%rbp),%ecx
mov    -0x10(%rbp),%rax
mov    %ecx,(%rax)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    11ad <retrieve_facet+0x9d>
mov    -0x48(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    117b <retrieve_facet+0x6b>
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x1c(%rbp),%eax
mov    -0x30(%rbp),%rcx
mov    %rcx,%rsp
mov    %rbp,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<retrieve_facet>:
push   %rbp
mov    %rsp,%rbp
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x10,%rsp
mov    %rcx,%r14
mov    %rdx,%r15
mov    %rsp,%r12
mov    %edi,-0x24(%rbp)
imul   $0x64,%edi,%eax
mov    %rsp,%rcx
shl    $0x2,%rax
mov    %rcx,%rbx
sub    %rax,%rbx
mov    %rbx,%rsp
neg    %rax
mov    %esi,(%rcx,%rax,1)
lea    -0x24(%rbp),%rsi
mov    $0x247,%edi
mov    %rbx,%rdx
call   1030 <_ada_use_c2phc@plt>
movslq -0x24(%rbp),%r9
mov    %r9d,(%r15)
test   %r9,%r9
jle    1271 <retrieve_facet+0x161>
mov    %r9d,%edx
cmp    $0x8,%edx
jae    1174 <retrieve_facet+0x64>
xor    %esi,%esi
jmp    1260 <retrieve_facet+0x150>
mov    %edx,%esi
and    $0xfffffff8,%esi
lea    -0x8(%rsi),%rcx
mov    %rcx,%r8
shr    $0x3,%r8
add    $0x1,%r8
test   %rcx,%rcx
je     1286 <retrieve_facet+0x176>
mov    %r8,%rcx
and    $0xfffffffffffffffe,%rcx
xor    %edi,%edi
movdqa 0xe5e(%rip),%xmm0
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movdqa (%rbx,%rdi,4),%xmm1
pand   %xmm0,%xmm1
packuswb %xmm1,%xmm1
packuswb %xmm1,%xmm1
movdqa 0x10(%rbx,%rdi,4),%xmm2
pand   %xmm0,%xmm2
packuswb %xmm2,%xmm2
packuswb %xmm2,%xmm2
movd   %xmm1,(%r14,%rdi,1)
movd   %xmm2,0x4(%r14,%rdi,1)
movdqa 0x20(%rbx,%rdi,4),%xmm1
pand   %xmm0,%xmm1
packuswb %xmm1,%xmm1
packuswb %xmm1,%xmm1
movdqa 0x30(%rbx,%rdi,4),%xmm2
pand   %xmm0,%xmm2
packuswb %xmm2,%xmm2
packuswb %xmm2,%xmm2
movd   %xmm1,0x8(%r14,%rdi,1)
movd   %xmm2,0xc(%r14,%rdi,1)
add    $0x10,%rdi
add    $0xfffffffffffffffe,%rcx
jne    11b0 <retrieve_facet+0xa0>
test   $0x1,%r8b
je     1256 <retrieve_facet+0x146>
movdqa 0xdd6(%rip),%xmm0
movdqa (%rbx,%rdi,4),%xmm1
pand   %xmm0,%xmm1
packuswb %xmm1,%xmm1
packuswb %xmm1,%xmm1
pand   0x10(%rbx,%rdi,4),%xmm0
packuswb %xmm0,%xmm0
packuswb %xmm0,%xmm0
movd   %xmm1,(%r14,%rdi,1)
movd   %xmm0,0x4(%r14,%rdi,1)
cmp    %rdx,%rsi
je     1271 <retrieve_facet+0x161>
nopl   0x0(%rax,%rax,1)
movzbl (%rbx,%rsi,4),%ecx
mov    %cl,(%r14,%rsi,1)
add    $0x1,%rsi
cmp    %rsi,%rdx
jne    1260 <retrieve_facet+0x150>
movb   $0x0,(%r14,%r9,1)
mov    %r12,%rsp
lea    -0x20(%rbp),%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret
xor    %edi,%edi
test   $0x1,%r8b
jne    1222 <retrieve_facet+0x112>
jmp    1256 <retrieve_facet+0x146>

LLVM IR (-O0):
define i32 @retrieve_facet(i32 %0, i32 %1, i32* %2, i8* %3) {
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32*
%8 = alloca i8*
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i8*
%13 = alloca i64
%14 = alloca double*
store i32 %0, i32* %5
store i32 %1, i32* %6
store i32* %2, i32** %7
store i8* %3, i8** %8
%15 = load i32, i32* %5
store i32 %15, i32* %11
%16 = load i32, i32* %5
%17 = mul nsw i32 100, %16
%18 = zext i32 %17 to i64
%19 = call i8* @llvm.stacksave()
store i8* %19, i8** %12
%20 = alloca i32, i64 %18
store i64 %18, i64* %13
%21 = load i32, i32* %6
%22 = getelementptr inbounds i32, i32* %20, i64 0
store i32 %21, i32* %22
%23 = load double*, double** %14
%24 = call i32 @_ada_use_c2phc(i32 583, i32* %11, i32* %20, double* %23)
store i32 %24, i32* %9
%25 = load i32, i32* %11
%26 = load i32*, i32** %7
store i32 %25, i32* %26
store i32 0, i32* %10
br label %27
27: ; preds = %41, %4
%28 = load i32, i32* %10
%29 = load i32, i32* %11
%30 = icmp slt i32 %28, %29
br i1 %30, label %31, label %44
31: ; preds = %27
%32 = load i32, i32* %10
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds i32, i32* %20, i64 %33
%35 = load i32, i32* %34
%36 = trunc i32 %35 to i8
%37 = load i8*, i8** %8
%38 = load i32, i32* %10
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds i8, i8* %37, i64 %39
store i8 %36, i8* %40
br label %41
41: ; preds = %31
%42 = load i32, i32* %10
%43 = add nsw i32 %42, 1
store i32 %43, i32* %10
br label %27
44: ; preds = %27
%45 = load i8*, i8** %8
%46 = load i32, i32* %11
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds i8, i8* %45, i64 %47
store i8 0, i8* %48
%49 = load i32, i32* %9
%50 = load i8*, i8** %12
ret i32 %49
}

LLVM IR (-O2):
define i32 @retrieve_facet(i32 %0, i32 %1, i32* nocapture writeonly %2, i8* nocapture writeonly %3) {
%5 = alloca i32
%6 = bitcast i32* %5 to i8*
store i32 %0, i32* %5
%7 = mul nsw i32 %0, 100
%8 = zext i32 %7 to i64
%9 = tail call i8* @llvm.stacksave()
%10 = alloca i32, i64 %8
store i32 %1, i32* %10
%11 = call i32 @_ada_use_c2phc(i32 583, i32* %5, i32* %10, double* undef)
%12 = load i32, i32* %5
store i32 %12, i32* %2
%13 = icmp sgt i32 %12, 0
br i1 %13, label %14, label %85
14: ; preds = %4
%15 = zext i32 %12 to i64
%16 = icmp ult i32 %12, 8
br i1 %16, label %75, label %17
17: ; preds = %14
%18 = and i64 %15, 4294967288
%19 = add nsw i64 %18, -8
%20 = lshr exact i64 %19, 3
%21 = add nuw nsw i64 %20, 1
%22 = and i64 %21, 1
%23 = icmp eq i64 %19, 0
br i1 %23, label %57, label %24
24: ; preds = %17
%25 = and i64 %21, 4611686018427387902
br label %26
26: ; preds = %26, %24
%27 = phi i64 [ 0, %24 ], [ %54, %26 ]
%28 = phi i64 [ 0, %24 ], [ %55, %26 ]
%29 = getelementptr inbounds i32, i32* %10, i64 %27
%30 = bitcast i32* %29 to <4 x i32>*
%31 = load <4 x i32>, <4 x i32>* %30
%32 = getelementptr inbounds i32, i32* %29, i64 4
%33 = bitcast i32* %32 to <4 x i32>*
%34 = load <4 x i32>, <4 x i32>* %33
%35 = trunc <4 x i32> %31 to <4 x i8>
%36 = trunc <4 x i32> %34 to <4 x i8>
%37 = getelementptr inbounds i8, i8* %3, i64 %27
%38 = bitcast i8* %37 to <4 x i8>*
store <4 x i8> %35, <4 x i8>* %38
%39 = getelementptr inbounds i8, i8* %37, i64 4
%40 = bitcast i8* %39 to <4 x i8>*
store <4 x i8> %36, <4 x i8>* %40
%41 = or i64 %27, 8
%42 = getelementptr inbounds i32, i32* %10, i64 %41
%43 = bitcast i32* %42 to <4 x i32>*
%44 = load <4 x i32>, <4 x i32>* %43
%45 = getelementptr inbounds i32, i32* %42, i64 4
%46 = bitcast i32* %45 to <4 x i32>*
%47 = load <4 x i32>, <4 x i32>* %46
%48 = trunc <4 x i32> %44 to <4 x i8>
%49 = trunc <4 x i32> %47 to <4 x i8>
%50 = getelementptr inbounds i8, i8* %3, i64 %41
%51 = bitcast i8* %50 to <4 x i8>*
store <4 x i8> %48, <4 x i8>* %51
%52 = getelementptr inbounds i8, i8* %50, i64 4
%53 = bitcast i8* %52 to <4 x i8>*
store <4 x i8> %49, <4 x i8>* %53
%54 = add nuw i64 %27, 16
%55 = add i64 %28, 2
%56 = icmp eq i64 %55, %25
br i1 %56, label %57, label %26
57: ; preds = %26, %17
%58 = phi i64 [ 0, %17 ], [ %54, %26 ]
%59 = icmp eq i64 %22, 0
br i1 %59, label %73, label %60
60: ; preds = %57
%61 = getelementptr inbounds i32, i32* %10, i64 %58
%62 = bitcast i32* %61 to <4 x i32>*
%63 = load <4 x i32>, <4 x i32>* %62
%64 = getelementptr inbounds i32, i32* %61, i64 4
%65 = bitcast i32* %64 to <4 x i32>*
%66 = load <4 x i32>, <4 x i32>* %65
%67 = trunc <4 x i32> %63 to <4 x i8>
%68 = trunc <4 x i32> %66 to <4 x i8>
%69 = getelementptr inbounds i8, i8* %3, i64 %58
%70 = bitcast i8* %69 to <4 x i8>*
store <4 x i8> %67, <4 x i8>* %70
%71 = getelementptr inbounds i8, i8* %69, i64 4
%72 = bitcast i8* %71 to <4 x i8>*
store <4 x i8> %68, <4 x i8>* %72
br label %73
73: ; preds = %57, %60
%74 = icmp eq i64 %18, %15
br i1 %74, label %85, label %75
75: ; preds = %14, %73
%76 = phi i64 [ 0, %14 ], [ %18, %73 ]
br label %77
77: ; preds = %75, %77
%78 = phi i64 [ %83, %77 ], [ %76, %75 ]
%79 = getelementptr inbounds i32, i32* %10, i64 %78
%80 = load i32, i32* %79
%81 = trunc i32 %80 to i8
%82 = getelementptr inbounds i8, i8* %3, i64 %78
store i8 %81, i8* %82
%83 = add nuw nsw i64 %78, 1
%84 = icmp eq i64 %83, %15
br i1 %84, label %85, label %77
85: ; preds = %77, %73, %4
%86 = sext i32 %12 to i64
%87 = getelementptr inbounds i8, i8* %3, i64 %86
store i8 0, i8* %87
ret i32 %11
}