From 17c838e4755fefadfb001c19ba2f079eaba340f6 Mon Sep 17 00:00:00 2001
From: Kyle Gunger <kgunger12@gmail.com>
Date: Fri, 30 Dec 2022 11:18:57 -0500
Subject: Small fix for vtrack setup

---
 tnslc/compile/compile.tnsl | 108 ++++++++++++++++++++++-----------------------
 tnslc/dummy.tnsl           |   5 ++-
 2 files changed, 58 insertions(+), 55 deletions(-)

(limited to 'tnslc')

diff --git a/tnslc/compile/compile.tnsl b/tnslc/compile/compile.tnsl
index 9b593b2..cdb651f 100644
--- a/tnslc/compile/compile.tnsl
+++ b/tnslc/compile/compile.tnsl
@@ -412,7 +412,7 @@
 			;int nloc = tab`.next_loc(last)
 			
 			;Value store = {false, false, nloc, 0, last}
-			/; if (store.loc !< 0)
+			/; if (store.loc !< 0 && tmp.loc !> 5)
 				;{}uint8 tstr = store.set_value(tmp)
 				;add_strings(csec, ~tstr)
 				;tmp.loc = tmp.loc + 1
@@ -436,9 +436,9 @@
 ;/
 
 # Evaluate a value and return it to the register pointed at by reg
-/; eval_value (~int cur, ~{}Token data, ~VTrack tab, gsc, ~{}uint8 hsec, csec, dsec, int reg)
+/; eval_value (~int cur, ~{}Token data, ~VTrack tab, gsc, ~{}uint8 hsec, csec, dsec) [Value]
 	/; if (token_is(cur, data, ";/"))
-		;return
+		;return NV
 	;/
 
 	;int val_layer = 0
@@ -494,16 +494,15 @@
 	;tnsl.io.println(to_call)
 		# Set read head to first parameter
 	;cur`++
-	;int reg = 0
 	/; loop (!token_is(cur, data, ")"))
 		/; if (token_is(cur, data, ","))
 			;cur`++
 		;; else
 			/; if (reg < 7)
-				;eval_value(cur, data, tab, gsc, hsec, csec, dsec, reg)
+				;eval_value(cur, data, tab, gsc, hsec, csec, dsec)
 				;reg++
 			;; else
-				;eval_value(cur, data, tab, gsc, hsec, csec, dsec, reg)
+				;eval_value(cur, data, tab, gsc, hsec, csec, dsec)
 				;push_asm(get_reg(8, "bp"))
 			;/
 		;/
@@ -567,61 +566,62 @@
 /; compile_statement (~int cur, ~{}Token data, ~VTrack tab, gsc, ~{}uint8 hsec, csec, dsec) [bool]
 	;cur`++
 	;bool r = false
-	/; if (cur` < len data`)
-		/; if (token_is(cur, data, "asm"))
-			;cur`++
-			;{}uint8 raw_asm = unquote_string(data`{cur`}.data`)
-			;raw_asm.append('\n')
-			;csec`.append('\t')
-			;add_strings(csec, ~raw_asm)
-			;cur`++
-		;; else if (token_is(cur, data, "raw"))
-			;cur`++
-			;r = true
-		;; else if (token_is(cur, data, "return"))
-			;cur`++
-			;eval_value(cur, data, tab, gsc, hsec, csec, dsec, 0)
-			;tail_guard(csec)
-			;add_strings(csec, ~(tnslc.COMMON_ASM{0}))
-			;return true
-		;; else if (is_call(cur, data))
-			# Function call
-			;eval_call(cur, data, tab, gsc, hsec, csec, dsec)
-		;; else if (name_to_index(data`{cur`}.data`, tab) !< 0)
-			# set value
-			;int i = name_to_index(data`{cur`}.data`, tab)
-			;{}uint8 tmp = index_to_loc(i)
-			;eval_value(cur, data, tab, gsc, hsec, csec, dsec, 0)
-			;tmp = mov_asm(get_reg(tab`.sym_types{i}._size, "ax"), tmp)
-			;add_strings(csec, ~tmp)
-		;; else
-			#Definition
-			;VType def_t = get_vtype(cur, data)
+	/; if (cur` !< len data`)
+		;return false
+	;/
+
+	/; if (token_is(cur, data, "asm"))
+		;cur`++
+		;{}uint8 raw_asm = unquote_string(data`{cur`}.data`)
+		;raw_asm.append('\n')
+		;csec`.append('\t')
+		;add_strings(csec, ~raw_asm)
+		;cur`++
+	;; else if (token_is(cur, data, "raw"))
+		;cur`++
+		;r = true
+	;; else if (token_is(cur, data, "return"))
+		;cur`++
+		;eval_value(cur, data, tab, gsc, hsec, csec, dsec, 0)
+		;tail_guard(csec)
+		;add_strings(csec, ~(tnslc.COMMON_ASM{0}))
+		;return true
+	;; else if (is_call(cur, data))
+		# Function call
+		;eval_call(cur, data, tab, gsc, hsec, csec, dsec)
+	;; else if (name_to_index(data`{cur`}.data`, tab) !< 0)
+		# set value
+		;int i = name_to_index(data`{cur`}.data`, tab)
+		;{}uint8 tmp = index_to_loc(i)
+		;eval_value(cur, data, tab, gsc, hsec, csec, dsec)
+		;tmp = mov_asm(get_reg(tab`.sym_types{i}._size, "ax"), tmp)
+		;add_strings(csec, ~tmp)
+	;; else
+		#Definition
+		;VType def_t = get_vtype(cur, data)
+		;cur`++
+		
+		/; loop (data`{cur`}.token_type == TOKEN_TYPE.DEFWORD)
+			;{}uint8 init = tab`.add_track(data`{cur`}.data`, def_t)
+			;add_strings(~out, ~init)
 			;cur`++
-			
-			/; loop (data`{cur`}.token_type == TOKEN_TYPE.DEFWORD)
-				;{}uint8 init = tab`.add_track(data`{cur`}.data`, def_t)
-				;add_strings(~out, ~init)
+			/; if (token_is(cur, data, ","))
 				;cur`++
+			;; else if (token_is(cur, data, "="))
+				;{}uint8 set = index_to_loc(len tab`.sym_names - 1, tab)
+				;eval_value(cur, data, tab, gsc, hsec, csec, dsec, loc)
 				/; if (token_is(cur, data, ","))
 					;cur`++
-				;; else if (token_is(cur, data, "="))
-					;{}uint8 set = index_to_loc(len tab`.sym_names - 1, tab)
-					;eval_value(cur, data, tab, gsc, hsec, csec, dsec, loc)
-					/; if (token_is(cur, data, ","))
-						;cur`++
-					;/
-				;; else
-					;break
 				;/
+			;; else
+				;break
 			;/
-			/; if (string_equate(data`{cur`+1}.data`, "="))
-
-			;/
-		;; if (token_is(cur, data, "return"))
-			;add_strings(csec, ~(tnslc.COMMON_ASM{0}))
-			;return true
 		;/
+		/; if (string_equate(data`{cur`+1}.data`, "="))
+		;/
+	;; if (token_is(cur, data, "return"))
+		;add_strings(csec, ~(tnslc.COMMON_ASM{0}))
+		;return true
 	;/
 
 	;return false
diff --git a/tnslc/dummy.tnsl b/tnslc/dummy.tnsl
index e5d1c74..eda351a 100644
--- a/tnslc/dummy.tnsl
+++ b/tnslc/dummy.tnsl
@@ -6,7 +6,10 @@
     test a, b
 }
 
-/; main (uint argc, ~~uint8 argv, v, f, c, d) [int]
+/; main (uint argc, ~~uint8 argv) [int]
+    # Fix for main func
+    ;asm "mov %rdi, %r8"
+    ;asm "mov %rsi, %r9"
     # ;~void ptr = _alloc(10)
     # ;_delete(ptr)
     ;return 1
-- 
cgit v1.2.3