diff options
Diffstat (limited to 'tnslc/c_wrap.tnsl')
| -rw-r--r-- | tnslc/c_wrap.tnsl | 72 |
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 |