Merge pull request #37 from aeternity/fate-compiler

Fate compiler

test/asm_code/all_instructions.fate

@@ -8,11 +8,11 @@ FUNCTION foo () : {tuple, []}
 
   RETURNR a13
 
-  CALL foo
+  CALL "foo"
 
   CALL_R arg125 foo
 
-  CALL_T foo
+  CALL_T "foo"
 
   CALL_TR arg245 foo
 
@@ -104,7 +104,7 @@ FUNCTION foo () : {tuple, []}
 
   LENGTH var216 a143
 
-  STR_EQ { 203961992615221001243597889146034217896 => 0x1f53a1843} 281217554184165828643225535776787296845 a177
+  APPEND { 203961992615221001243597889146034217896 => 0x1f53a1843} 281217554184165828643225535776787296845 a177
 
   STR_JOIN a a 7144184027126178769820155907121270843348
 

test/asm_code/memory.fate

@@ -2,7 +2,7 @@
 FUNCTION call(integer):integer
   STORE var1 arg0
   PUSH  0
-  CALL  write
+  CALL  "write"
   PUSH  var1
   RETURN
 

test/asm_code/test.fate

@@ -19,14 +19,14 @@ FUNCTION inc(integer) -> integer
 
 FUNCTION call(integer) -> integer
   INCA
-  CALL inc
+  CALL "inc"
   INCA
   RETURN
 
 
 FUNCTION tailcall(integer) -> integer
   INCA
-  CALL_T inc
+  CALL_T "inc"
 
 FUNCTION remote_call(integer) : integer
   PUSH arg0
@@ -42,4 +42,4 @@ FUNCTION remote_tailcall(integer) : integer
 ;; _build/default/rel/aessembler/bin/aessembler console
 
 ;; aeb_aefa:file("../../../../test/asm_code/test.fate", []).
-;; f(Asm), f(Env), f(BC), Asm = aefa_asm:read_file("../../../../test/asm_code/test.fate"), {Env, BC} = aefa_asm:asm_to_bytecode(Asm, []), aefa_asm:bytecode_to_fate_code(BC, []).
+;; f(Asm), f(Env), f(BC), Asm = aefa_asm:read_file("../../../../test/asm_code/test.fate"), {Env, BC} = aefa_asm:asm_to_bytecode(Asm, []), aefa_asm:bytecode_to_fate_code(BC, []).