From 308a427f3cdb2c7f618b0d48640d064b88bbbceb Mon Sep 17 00:00:00 2001 From: Kyle Gunger Date: Sun, 21 Jul 2024 00:15:20 -0400 Subject: Basic tokenizer --- tnslc/utils/c_wrap_linux.tnsl | 4 ++-- tnslc/utils/file.tnsl | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'tnslc/utils') diff --git a/tnslc/utils/c_wrap_linux.tnsl b/tnslc/utils/c_wrap_linux.tnsl index 1e3155e..62c3962 100644 --- a/tnslc/utils/c_wrap_linux.tnsl +++ b/tnslc/utils/c_wrap_linux.tnsl @@ -1,5 +1,5 @@ # Must be included at the top of the file -asm "extern malloc, realloc, free, printf, open, close, read, write, fseek" +asm "extern malloc, realloc, free, printf, open, close, read, write, lseek" {}uint8 _alert = "Alert!\n\0" {}uint8 _dec = "%d\n\0" @@ -218,7 +218,7 @@ asm "extern malloc, realloc, free, printf, open, close, read, write, fseek" asm "mov rdi, r10" asm "mov rsi, r11" asm "mov rdx, 0" # standard value for SEEK_SET as per GNU libc - asm "call fseek wrt ..plt" + asm "call lseek wrt ..plt" # get return value asm "mov r12, rax" diff --git a/tnslc/utils/file.tnsl b/tnslc/utils/file.tnsl index 22b11f1..1d8a1e9 100644 --- a/tnslc/utils/file.tnsl +++ b/tnslc/utils/file.tnsl @@ -98,8 +98,8 @@ struct File { return ;/ - _fseek(self.handle, self.pos - 1) self.pos = self.pos - 1 + _fseek(self.handle, self.pos) /; if (self.at_end == true) self.at_end = false -- cgit v1.2.3