1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-10-31 14:04:58 +00:00

Fix #107 (syntax errors in stdlib, overpanicky statement preprocessor)

This commit is contained in:
Karol Stasiak 2021-03-20 01:23:51 +01:00
parent 1e4a193741
commit 062483971a
6 changed files with 6 additions and 6 deletions

View File

@ -6,7 +6,7 @@
// CHROUT. Write byte to default output. (If not screen, must call OPEN and CHKOUT beforehands.)
// Input: A = Byte to write.
asm void chrout(byte register(a) char) @$FFD2 !preserves_a !preserves_x !preserves_y extern
asm void chrout(byte register(a) char) !preserves_a !preserves_x !preserves_y @$FFD2 extern
asm void putchar(byte register(a) char) {
JSR chrout

View File

@ -5,7 +5,7 @@
// CHROUT. Write byte to default output. (If not screen, must call OPEN and CHKOUT beforehands.)
// Input: A = Byte to write.
asm void chrout(byte register(a) char) @$FFD2 !preserves_a !preserves_x !preserves_y extern
asm void chrout(byte register(a) char) !preserves_a !preserves_x !preserves_y @$FFD2 !preserves_a !preserves_x !preserves_y extern
asm void putchar(byte register(a) char) {
JSR chrout

View File

@ -2,7 +2,7 @@
// CHROUT. Write byte to default output. (If not screen, must call OPEN and CHKOUT beforehands.)
// Input: A = Byte to write.
asm void chrout(byte register(a) char) @$FFD2 !preserves_a !preserves_x !preserves_y extern
asm void chrout(byte register(a) char) !preserves_a !preserves_x !preserves_y @$FFD2 extern
// CHRIN. Read byte from default input (for keyboard, read a line from the screen). (If not keyboard, must call OPEN and CHKIN beforehands.)
// Output: A = Byte read.

View File

@ -6,7 +6,7 @@
// CHROUT. Write byte to default output. (If not screen, must call OPEN and CHKOUT beforehands.)
// Input: A = Byte to write.
asm void putchar(byte register(a) char) @$FFD2 !preserves_a !preserves_x !preserves_y extern
asm void putchar(byte register(a) char) !preserves_a !preserves_x !preserves_y @$FFD2 extern
inline void new_line() {
putchar(13)

View File

@ -6,7 +6,7 @@
// CHROUT. Write byte to default output. (If not screen, must call OPEN and CHKOUT beforehands.)
// Input: A = Byte to write.
asm void chrout(byte register(a) char) @$FFD2 !preserves_a !preserves_x !preserves_y extern
asm void chrout(byte register(a) char) !preserves_a !preserves_x !preserves_y @$FFD2 extern
asm void putchar(byte register(a) char) {
JSR chrout

View File

@ -2802,7 +2802,7 @@ class Environment(val parent: Option[Environment], val prefix: String, val cpuFa
def overlapsVariable(variable: String, expr: Expression): Boolean = {
if (eval(expr).isDefined) return false
if (expr.containsVariable(variable)) return true
val varRootName = get[Thing](variable).rootName
val varRootName = maybeGet[Thing](variable).getOrElse{return false}.rootName
if (varRootName == "?") return true
if (varRootName == "") return false
overlapsVariableImpl(varRootName, expr)