duskos

commit 80786c7ae2499d7e86920dfe6e959d7c5e3dc8ec
parent a72e86b07b624a8ad2c05381750b7fa075926570
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Tue, 29 Nov 2022 20:07:43 -0500

comp/c: fix line counting bug in tokenizer

Diffstat:
M
fs/comp/c/tok.fs
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/fs/comp/c/tok.fs b/fs/comp/c/tok.fs
@@ -88,10 +88,10 @@ create _ 10 c, ," 09AZaz__$$"
       else ( c1 c2 ) ccputback 1 ( c1 len ) _writesym then ( tok )
       dup case
         S" /*" of s= drop begin ( )
-            ccin ?line+ '*' = dup if drop ccin '/' = then until nextt? endof
+            ccin ?line+ '*' = dup if drop ccin ?line+ '/' = then until
+          nextt? endof
         S" //" of s= drop begin ( )
-            ccin dup not if ( EOF! ) rdrop exit then LF = until
-            1 to+ curline 1 to _firstchar
+            ccin dup not if ( EOF! ) rdrop exit then ?line+ LF = until
           nextt? endof
       endcase
     endof