summaryrefslogtreecommitdiff
path: root/tnslc/c_wrap.tnsl
diff options
context:
space:
mode:
authorKyle Gunger <kgunger12@gmail.com>2023-02-21 05:06:49 -0500
committerKyle Gunger <kgunger12@gmail.com>2023-02-21 05:06:49 -0500
commit1309264425fa72fc7703711cbebabd839c3883cb (patch)
tree5f260dfd49f11eb92eac5e7f21799b3df6f70afa /tnslc/c_wrap.tnsl
parentf25b4cb8907746db49e54e4148b3065413364d5f (diff)
Bugfix for method labels
Diffstat (limited to 'tnslc/c_wrap.tnsl')
-rw-r--r--tnslc/c_wrap.tnsl72
1 files changed, 72 insertions, 0 deletions
diff --git a/tnslc/c_wrap.tnsl b/tnslc/c_wrap.tnsl
new file mode 100644
index 0000000..b9b96eb
--- /dev/null
+++ b/tnslc/c_wrap.tnsl
@@ -0,0 +1,72 @@
+/; _alloc (uint size) [~void]
+ ~void out
+ # Mov size into proper register, and set all extras to zero
+ asm "mov rdi, rax"
+ asm "mov rsi, 0"
+ asm "mov rdx, 0"
+ asm "mov rcx, 0"
+ asm "mov r8, 0"
+ asm "mov r9, 0"
+ asm "mov r10, 0"
+ asm "call malloc"
+ # Set out to the returned value
+ # (The compiler assignes spaces sequentially, and we have a uint in r8)
+ asm "mov r9, rax"
+ return out
+;/
+
+/; _realloc (~void ptr, uint new_size) [~void]
+ ~void out
+ # Mov ptr and new size into proper registers, and set all extras to zero
+ asm "mov rdi, rax"
+ asm "mov rsi, rbx"
+ asm "mov rdx, 0"
+ asm "mov rcx, 0"
+ asm "mov r8, 0"
+ asm "mov r9, 0"
+ asm "mov r10, 0"
+ # Do call
+ asm "call realloc"
+ # Set out to the returned value
+ # (The compiler assignes spaces sequentially. We have a ptr in r8, and a uint in r9)
+ asm "mov r10, rax"
+ return out
+;/
+
+/; _delete (~void ptr)
+ # setup call
+ asm "mov rdi, rax"
+ asm "mov rsi, 0"
+ asm "mov rdx, 0"
+ asm "mov rcx, 0"
+ asm "mov r8, 0"
+ asm "mov r9, 0"
+ asm "mov r10, 0"
+ # do call
+ asm "call free"
+ # there's no more to do 'cause free returns nothing
+;/
+
+struct Array {
+ int el_size,
+ int num_el,
+ ~void dat
+}
+
+/; method Array
+
+ /; resize (int num_el)
+ _realloc(dat, num_el * self.el_size)
+ ;/
+
+ /; get (int i) [~void]
+ /; if (i > self.num_el)
+ return self.dat
+ ;/
+ return self.dat + (i * self.el_size)
+ ;/
+
+ /; set (int i, ~void data)
+
+ ;/
+;/ \ No newline at end of file