#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*/ printf(char *);
void make_head2(int m) {
  printf("static\tdouble\thandle_vargs8(int argc, Scheme_Object *argv[], "
         "double (*func)(), char *fun)\n");
  printf("{\n");
  printf("\tdouble\tr = 0.0;\n");
  printf("\tlong\tf[MAX_ARGS];\n");
  printf("\tdouble\te[MAX_ARGS];\n");
  printf("\tint\tt[MAX_ARGS], i;\n\n");
  printf("\tif (argc < 1  ||  argc > MAX_ARGS)\n");
  printf("\t\tscheme_wrong_count(fun, 1, MAX_ARGS, argc, argv);\n");
  printf("\tSCHEME_CHK_ARG_DYNACE(0);\n\n");
  printf("\tfor (i=1 ; i < argc && i < MAX_ARGS ; i++)\n");
  printf("\t\tt[i] = get_arg(argv[i], &f[i], &e[i]);\n\n");
}


x86 assembly (clang, -O0):
<make_head2>:
push   %rbp
mov    %rsp,%rbp
sub    $0x10,%rsp
mov    %edi,-0x4(%rbp)
lea    0xede(%rip),%rdi
call   1030 <printf@plt>
lea    0xf2d(%rip),%rdi
call   1030 <printf@plt>
lea    0xf24(%rip),%rdi
call   1030 <printf@plt>
lea    0xf2a(%rip),%rdi
call   1030 <printf@plt>
lea    0xf32(%rip),%rdi
call   1030 <printf@plt>
lea    0xf3c(%rip),%rdi
call   1030 <printf@plt>
lea    0xf47(%rip),%rdi
call   1030 <printf@plt>
lea    0xf60(%rip),%rdi
call   1030 <printf@plt>
lea    0xf89(%rip),%rdi
call   1030 <printf@plt>
lea    0xf9a(%rip),%rdi
call   1030 <printf@plt>
lea    0xfbb(%rip),%rdi
call   1030 <printf@plt>
add    $0x10,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<make_head2>:
push   %rax
lea    0xee8(%rip),%rdi
call   1030 <puts@plt>
lea    0xf36(%rip),%rdi
call   1030 <puts@plt>
lea    0xf2c(%rip),%rdi
call   1030 <puts@plt>
lea    0xf31(%rip),%rdi
call   1030 <puts@plt>
lea    0xf38(%rip),%rdi
call   1030 <puts@plt>
lea    0xf41(%rip),%rdi
call   1030 <puts@plt>
lea    0xf4b(%rip),%rdi
call   1030 <puts@plt>
lea    0xf63(%rip),%rdi
call   1030 <puts@plt>
lea    0xf8b(%rip),%rdi
call   1030 <puts@plt>
lea    0xf9b(%rip),%rdi
call   1030 <puts@plt>
lea    0xfbb(%rip),%rdi
pop    %rax
jmp    1030 <puts@plt>

LLVM IR (-O0):
@.str = [91 x i8] c"static\09double\09handle_vargs8(int argc, Scheme_Object *argv[], double (*func)(), char *fun)\0A\00"
@.str.1 = [3 x i8] c"{\0A\00"
@.str.2 = [18 x i8] c"\09double\09r = 0.0;\0A\00"
@.str.3 = [20 x i8] c"\09long\09f[MAX_ARGS];\0A\00"
@.str.4 = [22 x i8] c"\09double\09e[MAX_ARGS];\0A\00"
@.str.5 = [23 x i8] c"\09int\09t[MAX_ARGS], i;\0A\0A\00"
@.str.6 = [37 x i8] c"\09if (argc < 1 || argc > MAX_ARGS)\0A\00"
@.str.7 = [53 x i8] c"\09\09scheme_wrong_count(fun, 1, MAX_ARGS, argc, argv);\0A\00"
@.str.8 = [29 x i8] c"\09SCHEME_CHK_ARG_DYNACE(0);\0A\0A\00"
@.str.9 = [45 x i8] c"\09for (i=1 ; i < argc && i < MAX_ARGS ; i++)\0A\00"
@.str.10 = [43 x i8] c"\09\09t[i] = get_arg(argv[i], &f[i], &e[i]);\0A\0A\00"
define void @make_head2(i32 %0) {
%2 = alloca i32
store i32 %0, i32* %2
%3 = call i32 @printf(i8* getelementptr inbounds ([91 x i8], [91 x i8]* @.str, i64 0, i64 0))
%4 = call i32 @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0))
%5 = call i32 @printf(i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0))
%6 = call i32 @printf(i8* getelementptr inbounds ([20 x i8], [20 x i8]* @.str.3, i64 0, i64 0))
%7 = call i32 @printf(i8* getelementptr inbounds ([22 x i8], [22 x i8]* @.str.4, i64 0, i64 0))
%8 = call i32 @printf(i8* getelementptr inbounds ([23 x i8], [23 x i8]* @.str.5, i64 0, i64 0))
%9 = call i32 @printf(i8* getelementptr inbounds ([37 x i8], [37 x i8]* @.str.6, i64 0, i64 0))
%10 = call i32 @printf(i8* getelementptr inbounds ([53 x i8], [53 x i8]* @.str.7, i64 0, i64 0))
%11 = call i32 @printf(i8* getelementptr inbounds ([29 x i8], [29 x i8]* @.str.8, i64 0, i64 0))
%12 = call i32 @printf(i8* getelementptr inbounds ([45 x i8], [45 x i8]* @.str.9, i64 0, i64 0))
%13 = call i32 @printf(i8* getelementptr inbounds ([43 x i8], [43 x i8]* @.str.10, i64 0, i64 0))
ret void
}

LLVM IR (-O2):
@str = [90 x i8] c"static\09double\09handle_vargs8(int argc, Scheme_Object *argv[], double (*func)(), char *fun)\00"
@str.11 = [2 x i8] c"{\00"
@str.12 = [17 x i8] c"\09double\09r = 0.0;\00"
@str.13 = [19 x i8] c"\09long\09f[MAX_ARGS];\00"
@str.14 = [21 x i8] c"\09double\09e[MAX_ARGS];\00"
@str.15 = [22 x i8] c"\09int\09t[MAX_ARGS], i;\0A\00"
@str.16 = [36 x i8] c"\09if (argc < 1 || argc > MAX_ARGS)\00"
@str.17 = [52 x i8] c"\09\09scheme_wrong_count(fun, 1, MAX_ARGS, argc, argv);\00"
@str.18 = [28 x i8] c"\09SCHEME_CHK_ARG_DYNACE(0);\0A\00"
@str.19 = [44 x i8] c"\09for (i=1 ; i < argc && i < MAX_ARGS ; i++)\00"
@str.20 = [42 x i8] c"\09\09t[i] = get_arg(argv[i], &f[i], &e[i]);\0A\00"
define void @make_head2(i32 %0) {
%2 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([90 x i8], [90 x i8]* @str, i64 0, i64 0))
%3 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([2 x i8], [2 x i8]* @str.11, i64 0, i64 0))
%4 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([17 x i8], [17 x i8]* @str.12, i64 0, i64 0))
%5 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([19 x i8], [19 x i8]* @str.13, i64 0, i64 0))
%6 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([21 x i8], [21 x i8]* @str.14, i64 0, i64 0))
%7 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([22 x i8], [22 x i8]* @str.15, i64 0, i64 0))
%8 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([36 x i8], [36 x i8]* @str.16, i64 0, i64 0))
%9 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([52 x i8], [52 x i8]* @str.17, i64 0, i64 0))
%10 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([28 x i8], [28 x i8]* @str.18, i64 0, i64 0))
%11 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([44 x i8], [44 x i8]* @str.19, i64 0, i64 0))
%12 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([42 x i8], [42 x i8]* @str.20, i64 0, i64 0))
ret void
}