X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=inline;f=main.asm;h=e6b0ac280cfc359bbad93881900df086e3e0379e;hb=4d233157714c21c1c15e7b271460a1692da55f52;hp=d2cd54deb29e91c65f5d366d344aba29911eba39;hpb=02f53b20b4f7244a84a442bbae10eb8401abcfc5;p=rrq%2Fjonasforth.git

diff --git a/main.asm b/main.asm
index d2cd54d..e6b0ac2 100644
--- a/main.asm
+++ b/main.asm
@@ -198,8 +198,8 @@ forth_asm READ_WORD, 'READ-WORD'
 ;; Takes a string on the stack and replaces it with the decimal number that the
 ;; string represents.
 forth_asm PARSE_NUMBER, 'PARSE-NUMBER'
-  pop [parse_number.length]     ; Length
-  pop [parse_number.buffer]     ; String pointer
+  pop rcx     ; Length
+  pop rdi     ; String pointer
 
   push rsi
   call parse_number