#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 */
typedef int uint32_t;
typedef int uint16_t;

/* Variables and functions */
int get_op(char *, int *);
int parse_num(char *, int *);
int /*<<< orphan*/ printf(char *, char *);
int /*<<< orphan*/ strip_comments(char *);
char *strtok(char *, char *);
int compile(char *line, uint16_t *code) {
  strip_comments(line);
  char *tok;
  tok = strtok(line, " ");
  int ret = 0;
  int op = -1;
  uint32_t arg = -1;
  int i;
  for (i = 0; tok != NULL; i++) {
    printf("%s\n", tok);
    if (i == 0) {
      ret |= get_op(tok, &op);
    } else if (i == 1) {
      ret |= parse_num(tok, &arg);
    } else {
      return 0;
    }
    tok = strtok(NULL, " ");
  }
  code[0] = op;
  code[1] = (op == 2 || (op >= 8 && op <= 14) ? (arg >> 4) & 0xF : 0) << 4;
  code[1] |= op == 15 || op == 0 ? 0 : arg & 0xF;
  return ~ret;
}


x86 assembly (clang, -O0):
<compile>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x10(%rbp),%rdi
call   1030 <strip_comments@plt>
mov    -0x10(%rbp),%rdi
lea    0xe8c(%rip),%rsi
call   1070 <strtok@plt>
mov    %rax,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0xffffffff,-0x28(%rbp)
movl   $0xffffffff,-0x2c(%rbp)
movl   $0x0,-0x30(%rbp)
cmpq   $0x0,-0x20(%rbp)
je     122b <compile+0xdb>
mov    -0x20(%rbp),%rsi
lea    0xe53(%rip),%rdi
call   1040 <printf@plt>
cmpl   $0x0,-0x30(%rbp)
jne    11d6 <compile+0x86>
mov    -0x20(%rbp),%rdi
lea    -0x28(%rbp),%rsi
call   1050 <get_op@plt>
or     -0x24(%rbp),%eax
mov    %eax,-0x24(%rbp)
jmp    1209 <compile+0xb9>
cmpl   $0x1,-0x30(%rbp)
jne    11f8 <compile+0xa8>
mov    -0x20(%rbp),%rdi
lea    -0x2c(%rbp),%rsi
call   1060 <parse_num@plt>
or     -0x24(%rbp),%eax
mov    %eax,-0x24(%rbp)
jmp    1204 <compile+0xb4>
movl   $0x0,-0x4(%rbp)
jmp    12b7 <compile+0x167>
jmp    1209 <compile+0xb9>
xor    %eax,%eax
mov    %eax,%edi
lea    0xdec(%rip),%rsi
call   1070 <strtok@plt>
mov    %rax,-0x20(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1199 <compile+0x49>
mov    -0x28(%rbp),%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
cmpl   $0x2,-0x28(%rbp)
je     1252 <compile+0x102>
cmpl   $0x8,-0x28(%rbp)
jl     1263 <compile+0x113>
cmpl   $0xe,-0x28(%rbp)
jg     1263 <compile+0x113>
mov    -0x2c(%rbp),%eax
sar    $0x4,%eax
and    $0xf,%eax
mov    %eax,-0x34(%rbp)
jmp    126d <compile+0x11d>
xor    %eax,%eax
mov    %eax,-0x34(%rbp)
jmp    126d <compile+0x11d>
mov    -0x34(%rbp),%ecx
shl    $0x4,%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,0x4(%rax)
cmpl   $0xf,-0x28(%rbp)
je     128e <compile+0x13e>
cmpl   $0x0,-0x28(%rbp)
jne    1298 <compile+0x148>
xor    %eax,%eax
mov    %eax,-0x38(%rbp)
jmp    12a1 <compile+0x151>
mov    -0x2c(%rbp),%eax
and    $0xf,%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%ecx
mov    -0x18(%rbp),%rax
or     0x4(%rax),%ecx
mov    %ecx,0x4(%rax)
mov    -0x24(%rbp),%eax
xor    $0xffffffff,%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<compile>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %rsi,%r15
mov    %rdi,%rbx
call   1030 <strip_comments@plt>
lea    0xe90(%rip),%rsi
mov    %rbx,%rdi
call   1070 <strtok@plt>
movl   $0xffffffff,0xc(%rsp)
ff
movl   $0xffffffff,0x8(%rsp)
ff
test   %rax,%rax
je     1209 <compile+0xb9>
mov    %rax,%r14
mov    %r15,0x10(%rsp)
xor    %r15d,%r15d
lea    0xe63(%rip),%r12
lea    0xe5a(%rip),%rbx
lea    0xc(%rsp),%r13
xor    %ebp,%ebp
jmp    11d5 <compile+0x85>
nop
mov    %r14,%rdi
lea    0x8(%rsp),%rsi
call   1060 <parse_num@plt>
or     %eax,%ebp
xor    %edi,%edi
mov    %rbx,%rsi
call   1070 <strtok@plt>
mov    %rax,%r14
add    $0x1,%r15d
test   %rax,%rax
je     11f8 <compile+0xa8>
mov    %r12,%rdi
mov    %r14,%rsi
call   1040 <printf@plt>
cmp    $0x1,%r15d
je     11b0 <compile+0x60>
test   %r15d,%r15d
jne    124f <compile+0xff>
mov    %r14,%rdi
mov    %r13,%rsi
call   1050 <get_op@plt>
jmp    11bd <compile+0x6d>
mov    0xc(%rsp),%ecx
mov    0x8(%rsp),%eax
not    %ebp
mov    0x10(%rsp),%r15
jmp    1218 <compile+0xc8>
mov    $0xffffffff,%eax
mov    $0xffffffff,%ecx
mov    $0xffffffff,%ebp
mov    %ecx,(%r15)
lea    -0x8(%rcx),%edx
mov    %eax,%esi
and    $0xf0,%esi
xor    %edi,%edi
cmp    $0x7,%edx
mov    $0x0,%edx
cmovb  %esi,%edx
cmp    $0x2,%ecx
cmove  %esi,%edx
and    $0xf,%eax
test   %ecx,%ecx
cmove  %ecx,%eax
cmp    $0xf,%ecx
cmove  %edi,%eax
or     %edx,%eax
mov    %eax,0x4(%r15)
jmp    1251 <compile+0x101>
xor    %ebp,%ebp
mov    %ebp,%eax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [2 x i8] c" \00"
@.str.1 = [4 x i8] c"%s\0A\00"
define i32 @compile(i8* %0, i32* %1) {
%3 = alloca i32
%4 = alloca i8*
%5 = alloca i32*
%6 = alloca i8*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
store i8* %0, i8** %4
store i32* %1, i32** %5
%11 = load i8*, i8** %4
%12 = call i32 @strip_comments(i8* %11)
%13 = load i8*, i8** %4
%14 = call i8* @strtok(i8* %13, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str, i64 0, i64 0))
store i8* %14, i8** %6
store i32 0, i32* %7
store i32 -1, i32* %8
store i32 -1, i32* %9
store i32 0, i32* %10
br label %15
15: ; preds = %40, %2
%16 = load i8*, i8** %6
%17 = icmp ne i8* %16, null
br i1 %17, label %18, label %43
18: ; preds = %15
%19 = load i8*, i8** %6
%20 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i8* %19)
%21 = load i32, i32* %10
%22 = icmp eq i32 %21, 0
br i1 %22, label %23, label %28
23: ; preds = %18
%24 = load i8*, i8** %6
%25 = call i32 @get_op(i8* %24, i32* %8)
%26 = load i32, i32* %7
%27 = or i32 %26, %25
store i32 %27, i32* %7
br label %38
28: ; preds = %18
%29 = load i32, i32* %10
%30 = icmp eq i32 %29, 1
br i1 %30, label %31, label %36
31: ; preds = %28
%32 = load i8*, i8** %6
%33 = call i32 @parse_num(i8* %32, i32* %9)
%34 = load i32, i32* %7
%35 = or i32 %34, %33
store i32 %35, i32* %7
br label %37
36: ; preds = %28
store i32 0, i32* %3
br label %82
37: ; preds = %31
br label %38
38: ; preds = %37, %23
%39 = call i8* @strtok(i8* null, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str, i64 0, i64 0))
store i8* %39, i8** %6
br label %40
40: ; preds = %38
%41 = load i32, i32* %10
%42 = add nsw i32 %41, 1
store i32 %42, i32* %10
br label %15
43: ; preds = %15
%44 = load i32, i32* %8
%45 = load i32*, i32** %5
%46 = getelementptr inbounds i32, i32* %45, i64 0
store i32 %44, i32* %46
%47 = load i32, i32* %8
%48 = icmp eq i32 %47, 2
br i1 %48, label %55, label %49
49: ; preds = %43
%50 = load i32, i32* %8
%51 = icmp sge i32 %50, 8
br i1 %51, label %52, label %59
52: ; preds = %49
%53 = load i32, i32* %8
%54 = icmp sle i32 %53, 14
br i1 %54, label %55, label %59
55: ; preds = %52, %43
%56 = load i32, i32* %9
%57 = ashr i32 %56, 4
%58 = and i32 %57, 15
br label %60
59: ; preds = %52, %49
br label %60
60: ; preds = %59, %55
%61 = phi i32 [ %58, %55 ], [ 0, %59 ]
%62 = shl i32 %61, 4
%63 = load i32*, i32** %5
%64 = getelementptr inbounds i32, i32* %63, i64 1
store i32 %62, i32* %64
%65 = load i32, i32* %8
%66 = icmp eq i32 %65, 15
br i1 %66, label %70, label %67
67: ; preds = %60
%68 = load i32, i32* %8
%69 = icmp eq i32 %68, 0
br i1 %69, label %70, label %71
70: ; preds = %67, %60
br label %74
71: ; preds = %67
%72 = load i32, i32* %9
%73 = and i32 %72, 15
br label %74
74: ; preds = %71, %70
%75 = phi i32 [ 0, %70 ], [ %73, %71 ]
%76 = load i32*, i32** %5
%77 = getelementptr inbounds i32, i32* %76, i64 1
%78 = load i32, i32* %77
%79 = or i32 %78, %75
store i32 %79, i32* %77
%80 = load i32, i32* %7
%81 = xor i32 %80, -1
store i32 %81, i32* %3
br label %82
82: ; preds = %74, %36
%83 = load i32, i32* %3
ret i32 %83
}

LLVM IR (-O2):
@.str = [2 x i8] c" \00"
@.str.1 = [4 x i8] c"%s\0A\00"
define i32 @compile(i8* %0, i32* nocapture writeonly %1) {
%3 = alloca i32
%4 = alloca i32
%5 = tail call i32 @strip_comments(i8* %0)
%6 = tail call i8* @strtok(i8* %0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str, i64 0, i64 0))
%7 = bitcast i32* %3 to i8*
store i32 -1, i32* %3
%8 = bitcast i32* %4 to i8*
store i32 -1, i32* %4
%9 = icmp eq i8* %6, null
br i1 %9, label %29, label %10
10: ; preds = %2, %19
%11 = phi i32 [ %23, %19 ], [ 0, %2 ]
%12 = phi i32 [ %21, %19 ], [ 0, %2 ]
%13 = phi i8* [ %22, %19 ], [ %6, %2 ]
%14 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i8* %13)
switch i32 %11, label %46 [
i32 0, label %15
i32 1, label %17
]
15: ; preds = %10
%16 = call i32 @get_op(i8* %13, i32* %3)
br label %19
17: ; preds = %10
%18 = call i32 @parse_num(i8* %13, i32* %4)
br label %19
19: ; preds = %17, %15
%20 = phi i32 [ %16, %15 ], [ %18, %17 ]
%21 = or i32 %20, %12
%22 = call i8* @strtok(i8* null, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str, i64 0, i64 0))
%23 = add nuw nsw i32 %11, 1
%24 = icmp eq i8* %22, null
br i1 %24, label %25, label %10
25: ; preds = %19
%26 = load i32, i32* %3
%27 = load i32, i32* %4
%28 = xor i32 %21, -1
br label %29
29: ; preds = %25, %2
%30 = phi i32 [ -1, %2 ], [ %27, %25 ]
%31 = phi i32 [ -1, %2 ], [ %26, %25 ]
%32 = phi i32 [ -1, %2 ], [ %28, %25 ]
store i32 %31, i32* %1
%33 = icmp eq i32 %31, 2
%34 = add i32 %31, -8
%35 = icmp ult i32 %34, 7
%36 = or i1 %33, %35
%37 = and i32 %30, 240
%38 = select i1 %36, i32 %37, i32 0
%39 = getelementptr inbounds i32, i32* %1, i64 1
%40 = icmp eq i32 %31, 15
%41 = icmp eq i32 %31, 0
%42 = or i1 %40, %41
%43 = and i32 %30, 15
%44 = select i1 %42, i32 0, i32 %43
%45 = or i32 %38, %44
store i32 %45, i32* %39
br label %46
46: ; preds = %10, %29
%47 = phi i32 [ %32, %29 ], [ 0, %10 ]
ret i32 %47
}