#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 /*<<< orphan*/ sprintf(char *, char *, double);
int pack_coefficients(int n, double *c, int *np, char *p) {
  int i, j;
  const int size = 30;
  char buf[size];
  int index = 0;
  for (i = 0; i < n; i++) {
    for (j = 0; j < size; j++)
      buf[j] = ' ';
    sprintf(buf, "%.17e", c[i]);
    for (j = 0; j < size; j++) {
      if ((buf[j] == '\0') || (buf[j] == ' '))
        break;
      p[index++] = buf[j];
    }
    if (i < n - 1)
      p[index++] = ' ';
    else
      p[index++] = '\0';
  }
  *np = index - 1;
  return 0;
}


x86 assembly (clang, -O0):
<pack_coefficients>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movl   $0x1e,-0x2c(%rbp)
mov    %rsp,%rax
mov    %rax,-0x38(%rbp)
movl   $0x0,-0x3c(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    124e <pack_coefficients+0x13e>
movl   $0x0,-0x28(%rbp)
cmpl   $0x1e,-0x28(%rbp)
jge    1177 <pack_coefficients+0x67>
movslq -0x28(%rbp),%rax
movb   $0x20,-0x60(%rbp,%rax,1)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1156 <pack_coefficients+0x46>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
lea    -0x60(%rbp),%rdi
lea    0xe71(%rip),%rsi
call   1030 <sprintf@plt>
movl   $0x0,-0x28(%rbp)
cmpl   $0x1e,-0x28(%rbp)
jge    11f9 <pack_coefficients+0xe9>
movslq -0x28(%rbp),%rax
movsbl -0x60(%rbp,%rax,1),%eax
cmp    $0x0,%eax
je     11c9 <pack_coefficients+0xb9>
movslq -0x28(%rbp),%rax
movsbl -0x60(%rbp,%rax,1),%eax
cmp    $0x20,%eax
jne    11ce <pack_coefficients+0xbe>
jmp    11f9 <pack_coefficients+0xe9>
movslq -0x28(%rbp),%rax
mov    -0x60(%rbp,%rax,1),%dl
mov    -0x20(%rbp),%rax
mov    -0x3c(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x3c(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    119b <pack_coefficients+0x8b>
mov    -0x24(%rbp),%eax
mov    -0x4(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    1225 <pack_coefficients+0x115>
mov    -0x20(%rbp),%rax
mov    -0x3c(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x3c(%rbp)
movslq %ecx,%rcx
movb   $0x20,(%rax,%rcx,1)
jmp    123b <pack_coefficients+0x12b>
mov    -0x20(%rbp),%rax
mov    -0x3c(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x3c(%rbp)
movslq %ecx,%rcx
movb   $0x0,(%rax,%rcx,1)
jmp    1240 <pack_coefficients+0x130>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1143 <pack_coefficients+0x33>
mov    -0x3c(%rbp),%ecx
sub    $0x1,%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x38(%rbp),%rax
mov    %rax,%rsp
xor    %eax,%eax
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<pack_coefficients>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %rdx,0x8(%rsp)
test   %edi,%edi
jle    11e9 <pack_coefficients+0xd9>
mov    %rcx,%rbx
mov    %rsi,%r15
lea    -0x1(%rdi),%ebp
mov    %edi,%r14d
xor    %r12d,%r12d
xor    %r13d,%r13d
jmp    1167 <pack_coefficients+0x57>
nop
add    $0x1,%rcx
mov    %ecx,%edi
cmp    %rbp,%r12
setb   %al
movslq %edi,%r13
shl    $0x5,%al
mov    %al,(%rbx,%r13,1)
add    $0x1,%r13d
add    $0x1,%r12
cmp    %r14,%r12
je     11ee <pack_coefficients+0xde>
movaps 0xe92(%rip),%xmm0
movups %xmm0,0x1e(%rsp)
movaps %xmm0,0x10(%rsp)
movsd  (%r15,%r12,8),%xmm0
lea    0x10(%rsp),%rdi
lea    0xe86(%rip),%rsi
call   1030 <sprintf@plt>
movslq %r13d,%rcx
lea    0x1e(%rcx),%edi
mov    $0x1e,%edx
lea    0x12(%rsp),%rsi
nop
movzbl -0x2(%rsi),%eax
test   $0xdf,%al
je     1144 <pack_coefficients+0x34>
mov    %al,(%rbx,%rcx,1)
movzbl -0x1(%rsi),%eax
test   $0xdf,%al
je     1140 <pack_coefficients+0x30>
mov    %al,0x1(%rbx,%rcx,1)
movzbl (%rsi),%eax
test   $0xdf,%al
je     11e0 <pack_coefficients+0xd0>
mov    %al,0x2(%rbx,%rcx,1)
add    $0x3,%rcx
add    $0x3,%rsi
add    $0xfffffffffffffffd,%rdx
jne    11a0 <pack_coefficients+0x90>
jmp    1146 <pack_coefficients+0x36>
cs nopw 0x0(%rax,%rax,1)
nop
add    $0x2,%rcx
jmp    1144 <pack_coefficients+0x34>
mov    $0xffffffff,%edi
mov    0x8(%rsp),%rax
mov    %edi,(%rax)
xor    %eax,%eax
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [6 x i8] c"%.17e\00"
define i32 @pack_coefficients(i32 %0, double* %1, i32* %2, i8* %3) {
%5 = alloca i32
%6 = alloca double*
%7 = alloca i32*
%8 = alloca i8*
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i8*
%13 = alloca i32
store i32 %0, i32* %5
store double* %1, double** %6
store i32* %2, i32** %7
store i8* %3, i8** %8
store i32 30, i32* %11
%14 = call i8* @llvm.stacksave()
store i8* %14, i8** %12
%15 = alloca i8, i64 30
store i32 0, i32* %13
store i32 0, i32* %9
br label %16
16: ; preds = %87, %4
%17 = load i32, i32* %9
%18 = load i32, i32* %5
%19 = icmp slt i32 %17, %18
br i1 %19, label %20, label %90
20: ; preds = %16
store i32 0, i32* %10
br label %21
21: ; preds = %28, %20
%22 = load i32, i32* %10
%23 = icmp slt i32 %22, 30
br i1 %23, label %24, label %31
24: ; preds = %21
%25 = load i32, i32* %10
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds i8, i8* %15, i64 %26
store i8 32, i8* %27
br label %28
28: ; preds = %24
%29 = load i32, i32* %10
%30 = add nsw i32 %29, 1
store i32 %30, i32* %10
br label %21
31: ; preds = %21
%32 = load double*, double** %6
%33 = load i32, i32* %9
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds double, double* %32, i64 %34
%36 = load double, double* %35
%37 = call i32 @sprintf(i8* %15, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str, i64 0, i64 0), double %36)
store i32 0, i32* %10
br label %38
38: ; preds = %66, %31
%39 = load i32, i32* %10
%40 = icmp slt i32 %39, 30
br i1 %40, label %41, label %69
41: ; preds = %38
%42 = load i32, i32* %10
%43 = sext i32 %42 to i64
%44 = getelementptr inbounds i8, i8* %15, i64 %43
%45 = load i8, i8* %44
%46 = sext i8 %45 to i32
%47 = icmp eq i32 %46, 0
br i1 %47, label %55, label %48
48: ; preds = %41
%49 = load i32, i32* %10
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds i8, i8* %15, i64 %50
%52 = load i8, i8* %51
%53 = sext i8 %52 to i32
%54 = icmp eq i32 %53, 32
br i1 %54, label %55, label %56
55: ; preds = %48, %41
br label %69
56: ; preds = %48
%57 = load i32, i32* %10
%58 = sext i32 %57 to i64
%59 = getelementptr inbounds i8, i8* %15, i64 %58
%60 = load i8, i8* %59
%61 = load i8*, i8** %8
%62 = load i32, i32* %13
%63 = add nsw i32 %62, 1
store i32 %63, i32* %13
%64 = sext i32 %62 to i64
%65 = getelementptr inbounds i8, i8* %61, i64 %64
store i8 %60, i8* %65
br label %66
66: ; preds = %56
%67 = load i32, i32* %10
%68 = add nsw i32 %67, 1
store i32 %68, i32* %10
br label %38
69: ; preds = %55, %38
%70 = load i32, i32* %9
%71 = load i32, i32* %5
%72 = sub nsw i32 %71, 1
%73 = icmp slt i32 %70, %72
br i1 %73, label %74, label %80
74: ; preds = %69
%75 = load i8*, i8** %8
%76 = load i32, i32* %13
%77 = add nsw i32 %76, 1
store i32 %77, i32* %13
%78 = sext i32 %76 to i64
%79 = getelementptr inbounds i8, i8* %75, i64 %78
store i8 32, i8* %79
br label %86
80: ; preds = %69
%81 = load i8*, i8** %8
%82 = load i32, i32* %13
%83 = add nsw i32 %82, 1
store i32 %83, i32* %13
%84 = sext i32 %82 to i64
%85 = getelementptr inbounds i8, i8* %81, i64 %84
store i8 0, i8* %85
br label %86
86: ; preds = %80, %74
br label %87
87: ; preds = %86
%88 = load i32, i32* %9
%89 = add nsw i32 %88, 1
store i32 %89, i32* %9
br label %16
90: ; preds = %16
%91 = load i32, i32* %13
%92 = sub nsw i32 %91, 1
%93 = load i32*, i32** %7
store i32 %92, i32* %93
%94 = load i8*, i8** %12
ret i32 0
}

LLVM IR (-O2):
@.str = [6 x i8] c"%.17e\00"
define i32 @pack_coefficients(i32 %0, double* nocapture %1, i32* nocapture writeonly %2, i8* nocapture writeonly %3) {
%5 = alloca [30 x i8]
%6 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 0
%7 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 0
%8 = icmp sgt i32 %0, 0
br i1 %8, label %9, label %55
9: ; preds = %4
%10 = add nsw i32 %0, -1
%11 = zext i32 %10 to i64
%12 = zext i32 %0 to i64
br label %13
13: ; preds = %9, %46
%14 = phi i64 [ 0, %9 ], [ %53, %46 ]
%15 = phi i32 [ 0, %9 ], [ %52, %46 ]
%16 = getelementptr inbounds double, double* %1, i64 %14
%17 = load double, double* %16
%18 = call i32 @sprintf(i8* %7, i8* dereferenceable(1) getelementptr inbounds ([6 x i8], [6 x i8]* @.str, i64 0, i64 0), double %17)
%19 = sext i32 %15 to i64
%20 = add i32 %15, 30
br label %21
21: ; preds = %38, %13
%22 = phi i64 [ 0, %13 ], [ %41, %38 ]
%23 = phi i64 [ %19, %13 ], [ %39, %38 ]
%24 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %22
%25 = load i8, i8* %24
switch i8 %25, label %26 [
i8 0, label %43
i8 32, label %43
]
26: ; preds = %21
%27 = add nsw i64 %23, 1
%28 = getelementptr inbounds i8, i8* %3, i64 %23
store i8 %25, i8* %28
%29 = add nuw nsw i64 %22, 1
%30 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %29
%31 = load i8, i8* %30
switch i8 %31, label %32 [
i8 0, label %43
i8 32, label %43
]
32: ; preds = %26
%33 = add nsw i64 %23, 2
%34 = getelementptr inbounds i8, i8* %3, i64 %27
store i8 %31, i8* %34
%35 = add nuw nsw i64 %22, 2
%36 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %35
%37 = load i8, i8* %36
switch i8 %37, label %38 [
i8 0, label %43
i8 32, label %43
]
38: ; preds = %32
%39 = add nsw i64 %23, 3
%40 = getelementptr inbounds i8, i8* %3, i64 %33
store i8 %37, i8* %40
%41 = add nuw nsw i64 %22, 3
%42 = icmp eq i64 %41, 30
br i1 %42, label %46, label %21
43: ; preds = %32, %32, %26, %26, %21, %21
%44 = phi i64 [ %23, %21 ], [ %23, %21 ], [ %27, %26 ], [ %27, %26 ], [ %33, %32 ], [ %33, %32 ]
%45 = trunc i64 %44 to i32
br label %46
46: ; preds = %38, %43
%47 = phi i32 [ %45, %43 ], [ %20, %38 ]
%48 = icmp ult i64 %14, %11
%49 = sext i32 %47 to i64
%50 = getelementptr inbounds i8, i8* %3, i64 %49
%51 = select i1 %48, i8 32, i8 0
store i8 %51, i8* %50
%52 = add nsw i32 %47, 1
%53 = add nuw nsw i64 %14, 1
%54 = icmp eq i64 %53, %12
br i1 %54, label %55, label %13
55: ; preds = %46, %4
%56 = phi i32 [ -1, %4 ], [ %47, %46 ]
store i32 %56, i32* %2
ret i32 0
}