mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 07:33:01 +00:00
Code Issues 1 Releases Wiki Activity

More work on moving to machine code emission.

Browse Source
This commit is contained in:
Calvin Rose
2025-03-30 12:48:30 -05:00
parent c677c72a73
commit 871f8ebf4e
4 changed files with 234 additions and 279 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
examples/sysir/drawing2.janet
View File

@@ -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])

2
examples/sysir/x64.janet
View File

@@ -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))