mirror of
https://github.com/irmen/prog8.git
synced 2024-11-23 07:32:10 +00:00
fix fallthrough problem with 'when'. Fix too greedy asm optimization that caused conditional jumps to fail sometimes because the condition value wasn't loaded.
This commit is contained in:
Irmen de Jong
parent
225bfc4164
commit
b976360248
@ -1017,6 +1017,7 @@ $counterVar .byte 0""")
|
||||
}
|
||||
}
|
||||
}
|
||||
out(" jmp $endLabel")
|
||||
for(choiceBlock in choiceBlocks) {
|
||||
out(choiceBlock.first)
|
||||
translate(choiceBlock.second)
|
||||
|
||||
@ -31,13 +31,6 @@ fun optimizeAssembly(lines: MutableList<String>): Int {
|
||||
numberOfOptimizations++
|
||||
}
|
||||
|
||||
mods = optimizeStoreLoadSame(linesByFour)
|
||||
if(mods.isNotEmpty()) {
|
||||
apply(mods, lines)
|
||||
linesByFour = getLinesBy(lines, 4)
|
||||
numberOfOptimizations++
|
||||
}
|
||||
|
||||
mods= optimizeJsrRts(linesByFour)
|
||||
if(mods.isNotEmpty()) {
|
||||
apply(mods, lines)
|
||||
|
||||
@ -7,8 +7,6 @@
|
||||
; staged speed increase
|
||||
; some simple sound effects
|
||||
|
||||
; TODO fix auto dropping of blocks (first fix testarrays)
|
||||
|
||||
%target c64
|
||||
%import syslib
|
||||
%import textio
|
||||
|
||||
396
examples/test.p8
396
examples/test.p8
@ -7,198 +7,218 @@
|
||||
|
||||
main {
|
||||
|
||||
|
||||
sub keypress(ubyte key) {
|
||||
txt.print("keypress:")
|
||||
txt.print_ub(key)
|
||||
txt.chrout('=')
|
||||
when key {
|
||||
157, ',' -> txt.chrout('a')
|
||||
29, '/' -> txt.chrout('b')
|
||||
17, '.' -> txt.chrout('c')
|
||||
145, ' ' -> txt.chrout('d')
|
||||
}
|
||||
txt.chrout('\n')
|
||||
}
|
||||
|
||||
sub start() {
|
||||
|
||||
byte bb= -22
|
||||
ubyte ubb = 22
|
||||
word ww= -2222
|
||||
uword uww = 2222
|
||||
float ff = -1.2345
|
||||
|
||||
repeat(25)
|
||||
txt.chrout('\n')
|
||||
|
||||
if bb < -1 {
|
||||
txt.print("1 ok\n")
|
||||
} else {
|
||||
txt.print("1 fail\n")
|
||||
repeat {
|
||||
ubyte key=c64.GETIN()
|
||||
if key
|
||||
keypress(key)
|
||||
}
|
||||
|
||||
if bb < -99 {
|
||||
txt.print("2 fail\n")
|
||||
} else {
|
||||
txt.print("2 ok\n")
|
||||
}
|
||||
|
||||
if bb<0 {
|
||||
txt.print("2b ok\n")
|
||||
} else {
|
||||
txt.print("2b fail\n")
|
||||
}
|
||||
|
||||
if ww < -1 {
|
||||
txt.print("3 ok\n")
|
||||
} else {
|
||||
txt.print("3 fail\n")
|
||||
}
|
||||
|
||||
if ww < -9999 {
|
||||
txt.print("4 fail\n")
|
||||
} else {
|
||||
txt.print("4 ok\n")
|
||||
}
|
||||
|
||||
if ww < 0 {
|
||||
txt.print("4b ok\n")
|
||||
} else {
|
||||
txt.print("4b fail\n")
|
||||
}
|
||||
|
||||
if ff < -1.0 {
|
||||
txt.print("4c ok\n")
|
||||
} else {
|
||||
txt.print("4c fail\n")
|
||||
}
|
||||
|
||||
if ff < -9999.9 {
|
||||
txt.print("4d fail\n")
|
||||
} else {
|
||||
txt.print("4d ok\n")
|
||||
}
|
||||
|
||||
if ff < 0.0 {
|
||||
txt.print("4e ok\n")
|
||||
} else {
|
||||
txt.print("4e fail\n")
|
||||
}
|
||||
|
||||
if ubb < 100 {
|
||||
txt.print("4f ok\n")
|
||||
} else {
|
||||
txt.print("4f fail\n")
|
||||
}
|
||||
|
||||
if ubb < 2 {
|
||||
txt.print("4g fail\n")
|
||||
} else {
|
||||
txt.print("4g ok\n")
|
||||
}
|
||||
|
||||
if ubb<0 {
|
||||
txt.print("4h fail\n")
|
||||
} else {
|
||||
txt.print("4h ok\n")
|
||||
}
|
||||
|
||||
if uww < 10000 {
|
||||
txt.print("4i ok\n")
|
||||
} else {
|
||||
txt.print("4i fail\n")
|
||||
}
|
||||
|
||||
if uww < 2 {
|
||||
txt.print("4j fail\n")
|
||||
} else {
|
||||
txt.print("4j ok\n")
|
||||
}
|
||||
|
||||
if uww < 0 {
|
||||
txt.print("4k fail\n")
|
||||
} else {
|
||||
txt.print("4k ok\n")
|
||||
}
|
||||
|
||||
|
||||
|
||||
if bb > -99 {
|
||||
txt.print("5 ok\n")
|
||||
} else {
|
||||
txt.print("5 fail\n")
|
||||
}
|
||||
|
||||
if bb > -1 {
|
||||
txt.print("6 fail\n")
|
||||
} else {
|
||||
txt.print("6 ok\n")
|
||||
}
|
||||
|
||||
if bb > 0 {
|
||||
txt.print("6b fail\n")
|
||||
} else {
|
||||
txt.print("6b ok\n")
|
||||
}
|
||||
|
||||
if ww > -9999 {
|
||||
txt.print("7 ok\n")
|
||||
} else {
|
||||
txt.print("7 fail\n")
|
||||
}
|
||||
|
||||
if ww > -1 {
|
||||
txt.print("8 fail\n")
|
||||
} else {
|
||||
txt.print("8 ok\n")
|
||||
}
|
||||
|
||||
if ww>0 {
|
||||
txt.print("8b fail\n")
|
||||
} else {
|
||||
txt.print("8b ok\n")
|
||||
}
|
||||
|
||||
if ff > -1.0 {
|
||||
txt.print("8c fail\n")
|
||||
} else {
|
||||
txt.print("8c ok\n")
|
||||
}
|
||||
|
||||
if ff > -9999.9 {
|
||||
txt.print("8d ok\n")
|
||||
} else {
|
||||
txt.print("8d fail\n")
|
||||
}
|
||||
|
||||
if ff > 0.0 {
|
||||
txt.print("8e fail\n")
|
||||
} else {
|
||||
txt.print("8e ok\n")
|
||||
}
|
||||
|
||||
if ubb > 5 {
|
||||
txt.print("8f ok\n")
|
||||
} else {
|
||||
txt.print("8f fail\n")
|
||||
}
|
||||
|
||||
if ubb > 250 {
|
||||
txt.print("8g fail\n")
|
||||
} else {
|
||||
txt.print("8g ok\n")
|
||||
}
|
||||
|
||||
if ubb > 0 {
|
||||
txt.print("8h ok\n")
|
||||
} else {
|
||||
txt.print("8h fail\n")
|
||||
}
|
||||
|
||||
if uww > 5 {
|
||||
txt.print("8i ok\n")
|
||||
} else {
|
||||
txt.print("8i fail\n")
|
||||
}
|
||||
|
||||
if uww > 9999 {
|
||||
txt.print("8j fail\n")
|
||||
} else {
|
||||
txt.print("8j ok\n")
|
||||
}
|
||||
|
||||
if uww>0 {
|
||||
txt.print("8b ok\n")
|
||||
} else {
|
||||
txt.print("8b fail\n")
|
||||
}
|
||||
; byte bb= -22
|
||||
; ubyte ubb = 22
|
||||
; word ww= -2222
|
||||
; uword uww = 2222
|
||||
; float ff = -1.2345
|
||||
;
|
||||
; repeat(25)
|
||||
; txt.chrout('\n')
|
||||
;
|
||||
; if bb < -1 {
|
||||
; txt.print("1 ok\n")
|
||||
; } else {
|
||||
; txt.print("1 fail\n")
|
||||
; }
|
||||
;
|
||||
; if bb < -99 {
|
||||
; txt.print("2 fail\n")
|
||||
; } else {
|
||||
; txt.print("2 ok\n")
|
||||
; }
|
||||
;
|
||||
; if bb<0 {
|
||||
; txt.print("2b ok\n")
|
||||
; } else {
|
||||
; txt.print("2b fail\n")
|
||||
; }
|
||||
;
|
||||
; if ww < -1 {
|
||||
; txt.print("3 ok\n")
|
||||
; } else {
|
||||
; txt.print("3 fail\n")
|
||||
; }
|
||||
;
|
||||
; if ww < -9999 {
|
||||
; txt.print("4 fail\n")
|
||||
; } else {
|
||||
; txt.print("4 ok\n")
|
||||
; }
|
||||
;
|
||||
; if ww < 0 {
|
||||
; txt.print("4b ok\n")
|
||||
; } else {
|
||||
; txt.print("4b fail\n")
|
||||
; }
|
||||
;
|
||||
; if ff < -1.0 {
|
||||
; txt.print("4c ok\n")
|
||||
; } else {
|
||||
; txt.print("4c fail\n")
|
||||
; }
|
||||
;
|
||||
; if ff < -9999.9 {
|
||||
; txt.print("4d fail\n")
|
||||
; } else {
|
||||
; txt.print("4d ok\n")
|
||||
; }
|
||||
;
|
||||
; if ff < 0.0 {
|
||||
; txt.print("4e ok\n")
|
||||
; } else {
|
||||
; txt.print("4e fail\n")
|
||||
; }
|
||||
;
|
||||
; if ubb < 100 {
|
||||
; txt.print("4f ok\n")
|
||||
; } else {
|
||||
; txt.print("4f fail\n")
|
||||
; }
|
||||
;
|
||||
; if ubb < 2 {
|
||||
; txt.print("4g fail\n")
|
||||
; } else {
|
||||
; txt.print("4g ok\n")
|
||||
; }
|
||||
;
|
||||
; if ubb<0 {
|
||||
; txt.print("4h fail\n")
|
||||
; } else {
|
||||
; txt.print("4h ok\n")
|
||||
; }
|
||||
;
|
||||
; if uww < 10000 {
|
||||
; txt.print("4i ok\n")
|
||||
; } else {
|
||||
; txt.print("4i fail\n")
|
||||
; }
|
||||
;
|
||||
; if uww < 2 {
|
||||
; txt.print("4j fail\n")
|
||||
; } else {
|
||||
; txt.print("4j ok\n")
|
||||
; }
|
||||
;
|
||||
; if uww < 0 {
|
||||
; txt.print("4k fail\n")
|
||||
; } else {
|
||||
; txt.print("4k ok\n")
|
||||
; }
|
||||
;
|
||||
;
|
||||
;
|
||||
; if bb > -99 {
|
||||
; txt.print("5 ok\n")
|
||||
; } else {
|
||||
; txt.print("5 fail\n")
|
||||
; }
|
||||
;
|
||||
; if bb > -1 {
|
||||
; txt.print("6 fail\n")
|
||||
; } else {
|
||||
; txt.print("6 ok\n")
|
||||
; }
|
||||
;
|
||||
; if bb > 0 {
|
||||
; txt.print("6b fail\n")
|
||||
; } else {
|
||||
; txt.print("6b ok\n")
|
||||
; }
|
||||
;
|
||||
; if ww > -9999 {
|
||||
; txt.print("7 ok\n")
|
||||
; } else {
|
||||
; txt.print("7 fail\n")
|
||||
; }
|
||||
;
|
||||
; if ww > -1 {
|
||||
; txt.print("8 fail\n")
|
||||
; } else {
|
||||
; txt.print("8 ok\n")
|
||||
; }
|
||||
;
|
||||
; if ww>0 {
|
||||
; txt.print("8b fail\n")
|
||||
; } else {
|
||||
; txt.print("8b ok\n")
|
||||
; }
|
||||
;
|
||||
; if ff > -1.0 {
|
||||
; txt.print("8c fail\n")
|
||||
; } else {
|
||||
; txt.print("8c ok\n")
|
||||
; }
|
||||
;
|
||||
; if ff > -9999.9 {
|
||||
; txt.print("8d ok\n")
|
||||
; } else {
|
||||
; txt.print("8d fail\n")
|
||||
; }
|
||||
;
|
||||
; if ff > 0.0 {
|
||||
; txt.print("8e fail\n")
|
||||
; } else {
|
||||
; txt.print("8e ok\n")
|
||||
; }
|
||||
;
|
||||
; if ubb > 5 {
|
||||
; txt.print("8f ok\n")
|
||||
; } else {
|
||||
; txt.print("8f fail\n")
|
||||
; }
|
||||
;
|
||||
; if ubb > 250 {
|
||||
; txt.print("8g fail\n")
|
||||
; } else {
|
||||
; txt.print("8g ok\n")
|
||||
; }
|
||||
;
|
||||
; if ubb > 0 {
|
||||
; txt.print("8h ok\n")
|
||||
; } else {
|
||||
; txt.print("8h fail\n")
|
||||
; }
|
||||
;
|
||||
; if uww > 5 {
|
||||
; txt.print("8i ok\n")
|
||||
; } else {
|
||||
; txt.print("8i fail\n")
|
||||
; }
|
||||
;
|
||||
; if uww > 9999 {
|
||||
; txt.print("8j fail\n")
|
||||
; } else {
|
||||
; txt.print("8j ok\n")
|
||||
; }
|
||||
;
|
||||
; if uww>0 {
|
||||
; txt.print("8b ok\n")
|
||||
; } else {
|
||||
; txt.print("8b fail\n")
|
||||
; }
|
||||
|
||||
; @($c000) *= 99 ; TODO implement
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user