Fix string allocation misalignment

ekoeppen · Feb 24, 2014 · d00c921 · d00c921
1 parent f98cfb0
commit d00c921
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/generic/CoreForth.s b/generic/CoreForth.s
@@ -551,7 +551,7 @@ fill_done:
 
     defword "S\"", SQUOT, F_IMMED
     .word LIT_XT, XSQUOTE, COMMAXT, LIT, '"', WORD
-    .word FETCHBYTE, INCR, ALIGNED, ALLOT
+    .word FETCHBYTE, ALLOT, ALIGN
     .word GTGTSOURCE, EXIT
 
     defword ".\"", DOTQUOT, F_IMMED
@@ -560,7 +560,7 @@ fill_done:
     defword "SZ\"", SZQUOT, F_IMMED
     .word LIT_XT, XSQUOTE, COMMAXT, LIT, '"', WORD
     .word LIT, 1, OVER, ADDSTORE, LIT, 0, OVER, DUP, FETCHBYTE, ADD, STOREBYTE
-    .word FETCHBYTE, INCR, ALIGNED, ALLOT
+    .word FETCHBYTE, ALLOT, ALIGN
     .word GTGTSOURCE, EXIT
 
     defword "PAD", PAD