fix: fix simple mistake in nasm.corth

corth-lang · Apr 16, 2024 · f3bd5cc · f3bd5cc
1 parent 1d3e0d7
commit f3bd5cc
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/compiler/nasm.corth b/compiler/nasm.corth
@@ -338,10 +338,10 @@ proc push-@8global
 in let global output-stream in
   output-stream
   "rax" output-stream nasm:mov-reg-zero
-  "    mov    al, byte [global_" ostrbuf:puts
-  global                         nasm:fput-alpha
-  "]\n"                          ostrbuf:puts
-  "    push   rax\n"             ostrbuf:puts
+  "    mov     al, [global_" ostrbuf:puts
+  global                     nasm:fput-alpha
+  "]\n"                      ostrbuf:puts
+  "    push    rax\n"        ostrbuf:puts
   drop
 end end
 

diff --git a/corth b/corth