From 273afdbee113cc4d7a14052e54e5a1f7fbe255d8 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Sat, 5 Jun 2021 20:49:42 +1000 Subject: [PATCH] add ignorable char count for OPEN-FILE --- compile.asm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compile.asm b/compile.asm index 53dbaec..be5a908 100644 --- a/compile.asm +++ b/compile.asm @@ -316,9 +316,10 @@ p_evaluate_stream_BAD: dq 15000 WORD p_open_file,'OPEN-FILE',fasm - ;; ( chaz* -- fd ) + ;; ( chaz* n -- fd ) ;; Open the nominated file pushr rsi + add rsp,8 ; drop n ... assuming NUL-ended string push qword 0 push qword 0 DOFORTH sys_open @@ -326,7 +327,7 @@ p_evaluate_stream_BAD: next WORD p_load_file,'LOAD-FILE' - ;; ( chaz* -- ) + ;; ( chaz* n -- ) dq p_open_file dq p_dup, p_0less BRANCH 1,p_load_file_badfile -- 2.39.2