More work on moving to machine code emission.

Author: bakpakin

examples/sysir/drawing2.janet

@@ -14,12 +14,6 @@
 (defpointer p16 u16)
 (defpointer cursor p32)
 
-# Linux syscalls
-# (defn-syscall brk:p32 12 [amount:uint])
-# (defn-syscall exit:void 60 [code:int])
-# (defn-syscall write:void 1 [fd:int data:p32 size:uint])
-# (defn-syscall write_string 1 [fd:int data:pointer size:uint])
-
 # External
 (defn-external write:void [fd:int mem:pointer size:uint])
 (defn-external exit:void [x:int])

examples/sysir/x64.janet

@@ -5,7 +5,7 @@
 
 (defsys doloop [x:int y:int]
   (var i:int x)
-  #(printf "i = %d\n" i)
+  (printf "initial i = %d\n" i)
   (while (< i y)
     (set i (+ 1 i))
     (printf "i = %d\n" i))

src/core/sysir.c

@@ -1650,7 +1650,7 @@ void janet_sys_ir_lower_to_c(JanetSysIRLinkage *linkage, JanetBuffer *buffer) {
 #define EMITBINOP_NOSUGAR(OP) emit_binop(ir, buffer, tempbuf, instruction, OP, 0)
 
     /* Prelude */
-    janet_formatb(buffer, "#include <stddef.h>\n#include <stdlib.h>\n#include <stdint.h>\n#include <stdbool.h>\n#include <stdio.h>\n#include <sys/syscall.h>\n#define _t0 void\n\n");
+    janet_formatb(buffer, "#include <stddef.h>\n#include <unistd.h>\n#include <stdlib.h>\n#include <stdint.h>\n#include <stdbool.h>\n#include <stdio.h>\n#include <sys/syscall.h>\n#define _t0 void\n\n");
 
     /* Emit type defs */
     for (uint32_t j = 0; j < (uint32_t) linkage->ir_ordered->count; j++) {