#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_tail() {
  printf("static\tint\tget_arg(Scheme_Object *arg, long *f, double *e)\n");
  printf("{\n");
  printf("\tif (SCHEME_DYNACEP(arg)  ||  SCHEME_CPOINTERP(arg)) {\n");
  printf("\t\t(void *) *f = SCHEME_PTR_VAL(arg);\n");
  printf("\t\treturn 4;\n");
  printf("\t} else if (SCHEME_INTP(arg)) {\n");
  printf("\t\t*f = SCHEME_INT_VAL(arg);\n");
  printf("\t\treturn 4;\n");
  printf("\t} else if (SCHEME_STRINGP(arg)) {\n");
  printf("\t\t(char *) *f = SCHEME_STR_VAL(arg);\n");
  printf("\t\treturn 4;\n");
  printf("\t} else if (SCHEME_DBLP(arg)) {\n");
  printf("\t\t*e = SCHEME_DBL_VAL(arg);\n");
  printf("\t\treturn 8;\n");
  printf("\t} else if (SCHEME_CHARP(arg)) {\n");
  printf("\t\t*f = SCHEME_CHAR_VAL(arg);\n");
  printf("\t\treturn 4;\n");
  printf("\t} else if (SCHEME_BOOLP(arg)) {\n");
  printf("\t\t*f = SCHEME_FALSEP(arg) ? 0 : 1;\n");
  printf("\t\treturn 4;\n");
  printf("\t}\n");
  printf("\treturn 0;\n");
  printf("}\n");
}


x86 assembly (clang, -O0):
<make_tail>:
push   %rbp
mov    %rsp,%rbp
lea    0xee5(%rip),%rdi
call   1030 <printf@plt>
lea    0xfdf(%rip),%rdi
call   1030 <printf@plt>
lea    0xf09(%rip),%rdi
call   1030 <printf@plt>
lea    0xf35(%rip),%rdi
call   1030 <printf@plt>
lea    0xf4f(%rip),%rdi
call   1030 <printf@plt>
lea    0xf50(%rip),%rdi
call   1030 <printf@plt>
lea    0xf65(%rip),%rdi
call   1030 <printf@plt>
lea    0xf2b(%rip),%rdi
call   1030 <printf@plt>
lea    0xf6a(%rip),%rdi
call   1030 <printf@plt>
lea    0xf82(%rip),%rdi
call   1030 <printf@plt>
lea    0xf07(%rip),%rdi
call   1030 <printf@plt>
lea    0xf90(%rip),%rdi
call   1030 <printf@plt>
lea    0xfa5(%rip),%rdi
call   1030 <printf@plt>
lea    0xfb6(%rip),%rdi
call   1030 <printf@plt>
lea    0xfb7(%rip),%rdi
call   1030 <printf@plt>
lea    0xfcd(%rip),%rdi
call   1030 <printf@plt>
lea    0xebf(%rip),%rdi
call   1030 <printf@plt>
lea    0xfd3(%rip),%rdi
call   1030 <printf@plt>
lea    0xfe9(%rip),%rdi
call   1030 <printf@plt>
lea    0xe9b(%rip),%rdi
call   1030 <printf@plt>
lea    0xff5(%rip),%rdi
call   1030 <printf@plt>
lea    0xfed(%rip),%rdi
call   1030 <printf@plt>
lea    0xfde(%rip),%rdi
call   1030 <printf@plt>
pop    %rbp
ret

x86 assembly (clang, -O2):
<make_tail>:
push   %rbx
lea    0xee8(%rip),%rdi
call   1030 <puts@plt>
lea    0xfd0(%rip),%rdi
call   1030 <puts@plt>
lea    0xf0b(%rip),%rdi
call   1030 <puts@plt>
lea    0xf36(%rip),%rdi
call   1030 <puts@plt>
lea    0x109d(%rip),%rbx
mov    %rbx,%rdi
call   1030 <puts@plt>
lea    0xf40(%rip),%rdi
call   1030 <puts@plt>
lea    0xf54(%rip),%rdi
call   1030 <puts@plt>
mov    %rbx,%rdi
call   1030 <puts@plt>
lea    0xf5c(%rip),%rdi
call   1030 <puts@plt>
lea    0xf73(%rip),%rdi
call   1030 <puts@plt>
mov    %rbx,%rdi
call   1030 <puts@plt>
lea    0xf84(%rip),%rdi
call   1030 <puts@plt>
lea    0xf98(%rip),%rdi
call   1030 <puts@plt>
lea    0xfa8(%rip),%rdi
call   1030 <puts@plt>
lea    0xfa8(%rip),%rdi
call   1030 <puts@plt>
lea    0xfbd(%rip),%rdi
call   1030 <puts@plt>
mov    %rbx,%rdi
call   1030 <puts@plt>
lea    0xfc6(%rip),%rdi
call   1030 <puts@plt>
lea    0xfdb(%rip),%rdi
call   1030 <puts@plt>
mov    %rbx,%rdi
call   1030 <puts@plt>
lea    0xff6(%rip),%rdi
call   1030 <puts@plt>
lea    0xfed(%rip),%rdi
call   1030 <puts@plt>
lea    0xfdf(%rip),%rdi
pop    %rbx
jmp    1030 <puts@plt>

LLVM IR (-O0):
@.str = [60 x i8] c"static\09int\09get_arg(Scheme_Object *arg, long *f, double *e)\0A\00"
@.str.1 = [3 x i8] c"{\0A\00"
@.str.2 = [56 x i8] c"\09if (SCHEME_DYNACEP(arg) || SCHEME_CPOINTERP(arg)) {\0A\00"
@.str.3 = [38 x i8] c"\09\09(void *) *f = SCHEME_PTR_VAL(arg);\0A\00"
@.str.4 = [13 x i8] c"\09\09return 4;\0A\00"
@.str.5 = [33 x i8] c"\09} else if (SCHEME_INTP(arg)) {\0A\00"
@.str.6 = [29 x i8] c"\09\09*f = SCHEME_INT_VAL(arg);\0A\00"
@.str.7 = [36 x i8] c"\09} else if (SCHEME_STRINGP(arg)) {\0A\00"
@.str.8 = [38 x i8] c"\09\09(char *) *f = SCHEME_STR_VAL(arg);\0A\00"
@.str.9 = [33 x i8] c"\09} else if (SCHEME_DBLP(arg)) {\0A\00"
@.str.10 = [29 x i8] c"\09\09*e = SCHEME_DBL_VAL(arg);\0A\00"
@.str.11 = [13 x i8] c"\09\09return 8;\0A\00"
@.str.12 = [34 x i8] c"\09} else if (SCHEME_CHARP(arg)) {\0A\00"
@.str.13 = [30 x i8] c"\09\09*f = SCHEME_CHAR_VAL(arg);\0A\00"
@.str.14 = [34 x i8] c"\09} else if (SCHEME_BOOLP(arg)) {\0A\00"
@.str.15 = [36 x i8] c"\09\09*f = SCHEME_FALSEP(arg) ? 0 : 1;\0A\00"
@.str.16 = [4 x i8] c"\09}\0A\00"
@.str.17 = [12 x i8] c"\09return 0;\0A\00"
@.str.18 = [3 x i8] c"}\0A\00"
define void @make_tail() {
%1 = call i32 @printf(i8* getelementptr inbounds ([60 x i8], [60 x i8]* @.str, i64 0, i64 0))
%2 = call i32 @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0))
%3 = call i32 @printf(i8* getelementptr inbounds ([56 x i8], [56 x i8]* @.str.2, i64 0, i64 0))
%4 = call i32 @printf(i8* getelementptr inbounds ([38 x i8], [38 x i8]* @.str.3, i64 0, i64 0))
%5 = call i32 @printf(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.4, i64 0, i64 0))
%6 = call i32 @printf(i8* getelementptr inbounds ([33 x i8], [33 x i8]* @.str.5, i64 0, i64 0))
%7 = call i32 @printf(i8* getelementptr inbounds ([29 x i8], [29 x i8]* @.str.6, i64 0, i64 0))
%8 = call i32 @printf(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.4, i64 0, i64 0))
%9 = call i32 @printf(i8* getelementptr inbounds ([36 x i8], [36 x i8]* @.str.7, i64 0, i64 0))
%10 = call i32 @printf(i8* getelementptr inbounds ([38 x i8], [38 x i8]* @.str.8, i64 0, i64 0))
%11 = call i32 @printf(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.4, i64 0, i64 0))
%12 = call i32 @printf(i8* getelementptr inbounds ([33 x i8], [33 x i8]* @.str.9, i64 0, i64 0))
%13 = call i32 @printf(i8* getelementptr inbounds ([29 x i8], [29 x i8]* @.str.10, i64 0, i64 0))
%14 = call i32 @printf(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.11, i64 0, i64 0))
%15 = call i32 @printf(i8* getelementptr inbounds ([34 x i8], [34 x i8]* @.str.12, i64 0, i64 0))
%16 = call i32 @printf(i8* getelementptr inbounds ([30 x i8], [30 x i8]* @.str.13, i64 0, i64 0))
%17 = call i32 @printf(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.4, i64 0, i64 0))
%18 = call i32 @printf(i8* getelementptr inbounds ([34 x i8], [34 x i8]* @.str.14, i64 0, i64 0))
%19 = call i32 @printf(i8* getelementptr inbounds ([36 x i8], [36 x i8]* @.str.15, i64 0, i64 0))
%20 = call i32 @printf(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.4, i64 0, i64 0))
%21 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.16, i64 0, i64 0))
%22 = call i32 @printf(i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str.17, i64 0, i64 0))
%23 = call i32 @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.18, i64 0, i64 0))
ret void
}

LLVM IR (-O2):
@str = [59 x i8] c"static\09int\09get_arg(Scheme_Object *arg, long *f, double *e)\00"
@str.19 = [2 x i8] c"{\00"
@str.20 = [55 x i8] c"\09if (SCHEME_DYNACEP(arg) || SCHEME_CPOINTERP(arg)) {\00"
@str.21 = [37 x i8] c"\09\09(void *) *f = SCHEME_PTR_VAL(arg);\00"
@str.23 = [32 x i8] c"\09} else if (SCHEME_INTP(arg)) {\00"
@str.24 = [28 x i8] c"\09\09*f = SCHEME_INT_VAL(arg);\00"
@str.26 = [35 x i8] c"\09} else if (SCHEME_STRINGP(arg)) {\00"
@str.27 = [37 x i8] c"\09\09(char *) *f = SCHEME_STR_VAL(arg);\00"
@str.29 = [32 x i8] c"\09} else if (SCHEME_DBLP(arg)) {\00"
@str.30 = [28 x i8] c"\09\09*e = SCHEME_DBL_VAL(arg);\00"
@str.31 = [12 x i8] c"\09\09return 8;\00"
@str.32 = [33 x i8] c"\09} else if (SCHEME_CHARP(arg)) {\00"
@str.33 = [29 x i8] c"\09\09*f = SCHEME_CHAR_VAL(arg);\00"
@str.35 = [33 x i8] c"\09} else if (SCHEME_BOOLP(arg)) {\00"
@str.36 = [35 x i8] c"\09\09*f = SCHEME_FALSEP(arg) ? 0 : 1;\00"
@str.37 = [12 x i8] c"\09\09return 4;\00"
@str.38 = [3 x i8] c"\09}\00"
@str.39 = [11 x i8] c"\09return 0;\00"
@str.40 = [2 x i8] c"}\00"
define void @make_tail() {
%1 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([59 x i8], [59 x i8]* @str, i64 0, i64 0))
%2 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([2 x i8], [2 x i8]* @str.19, i64 0, i64 0))
%3 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([55 x i8], [55 x i8]* @str.20, i64 0, i64 0))
%4 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([37 x i8], [37 x i8]* @str.21, i64 0, i64 0))
%5 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([12 x i8], [12 x i8]* @str.37, i64 0, i64 0))
%6 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([32 x i8], [32 x i8]* @str.23, i64 0, i64 0))
%7 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([28 x i8], [28 x i8]* @str.24, i64 0, i64 0))
%8 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([12 x i8], [12 x i8]* @str.37, i64 0, i64 0))
%9 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([35 x i8], [35 x i8]* @str.26, i64 0, i64 0))
%10 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([37 x i8], [37 x i8]* @str.27, i64 0, i64 0))
%11 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([12 x i8], [12 x i8]* @str.37, i64 0, i64 0))
%12 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([32 x i8], [32 x i8]* @str.29, i64 0, i64 0))
%13 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([28 x i8], [28 x i8]* @str.30, i64 0, i64 0))
%14 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([12 x i8], [12 x i8]* @str.31, i64 0, i64 0))
%15 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([33 x i8], [33 x i8]* @str.32, i64 0, i64 0))
%16 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([29 x i8], [29 x i8]* @str.33, i64 0, i64 0))
%17 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([12 x i8], [12 x i8]* @str.37, i64 0, i64 0))
%18 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([33 x i8], [33 x i8]* @str.35, i64 0, i64 0))
%19 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([35 x i8], [35 x i8]* @str.36, i64 0, i64 0))
%20 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([12 x i8], [12 x i8]* @str.37, i64 0, i64 0))
%21 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([3 x i8], [3 x i8]* @str.38, i64 0, i64 0))
%22 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([11 x i8], [11 x i8]* @str.39, i64 0, i64 0))
%23 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([2 x i8], [2 x i8]* @str.40, i64 0, i64 0))
ret void
}