From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Sun, 30 May 2021 04:34:43 +0000 (+1000)
Subject: bug fix for handling main arg -v
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=7033427a2bd4f714eaf49126a84f1059bf7a90d6;p=rrq%2Frrqforth.git

bug fix for handling main arg -v
---

diff --git a/rrqforth.asm b/rrqforth.asm
index f7f310a..f5d6269 100644
--- a/rrqforth.asm
+++ b/rrqforth.asm
@@ -212,13 +212,11 @@ main:
 	;; return boolean in rdx
 	;; implementation for that 2 byte asciiz string
 main_is_verbose_data:
-	dq main_is_verbose_data_end - $	; length of data 
 	db '-v',0
-main_is_verbose_data_end:
 
 main_is_verbose:
 	mov rbx,qword [p_args_DFA] ; Pointer to main arguments
-	mov r8,qword [rbx]
+	mov r8,qword [rbx]	   ; r8 = count of pointers
 	xor rdx,rdx
 	cld
 main_is_verbose_next:
@@ -227,13 +225,11 @@ main_is_verbose_next:
 	add rbx,8
 	mov rsi,qword [rbx]
 	mov rdi,main_is_verbose_data
-	lodsq
-	mov rcx,rax
 main_is_verbose_loop:
 	cmpsb
 	jne main_is_verbose_next
-	dec rcx
-	jg main_is_verbose_loop
+	cmp byte[rsi-1],0
+	jne main_is_verbose_loop
 	not rdx
 main_is_not_verbose:
 	ret