code: 9ferno

Download patch

ref: 13cba16e660ec21c94360b2ea9b6ecb09f4fdbef
parent: 293e43cec9cf60a8250cd45ca725753722015df2
author: 9ferno <gophone2015@gmail.com>
date: Wed Feb 16 08:47:36 EST 2022

fixed wrong word lengths

--- a/os/pc64/primitives-nasm.s
+++ b/os/pc64/primitives-nasm.s
@@ -77,7 +77,7 @@
 MVDENTRY "Dtop" Dtop 4 DTOP	; last defined header link address
 MVDENTRY "There" There 5 THERE	; here of the variables space
 MVDENTRY "Pid" Pid 3 FTHPID
-MVDENTRY "Parentpid" Parentpid 4 FTHPARENTPID
+MVDENTRY "Parentpid" Parentpid 9 FTHPARENTPID
 ; the below memory locations are left alone as zeros by the initializer
 MVDENTRY "S0" S0 2 PSTACK
 MVDENTRY "Wordb" Wordb 5 WORDB
--- a/os/pc64/words-nasm.s
+++ b/os/pc64/words-nasm.s
@@ -813,7 +813,7 @@
 dd M_store
 dd M_exitcolon
 
-CENTRY ">word" C_toword 7 ; ( 'Bufferfds -- 'Wordfd )
+CENTRY ">word" C_toword 5 ; ( 'Bufferfds -- 'Wordfd )
 dd MC_WORDNUM
 dd C_cells
 dd M_plus
@@ -1355,7 +1355,7 @@
 dd C_query
 dd M_exitcolon
 
-CENTRY "cdoublequote" C_counted_doublequote 11 ; ( -- 'Wordb ) read from #n/Infd/doublequote into Tib and then parse to a counted string in Wordb
+CENTRY "cdoublequote" C_counted_doublequote 12 ; ( -- 'Wordb ) read from #n/Infd/doublequote into Tib and then parse to a counted string in Wordb
 dd MC_DOUBLEQUOTENUM
 dd C_query
 dd C_parse