Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-02-16 22:30:46 +00:00
Code Issues Projects Releases Wiki Activity

tweak

Browse Source
This commit is contained in:
Irmen de Jong 2019-07-02 22:27:31 +02:00
parent 89314a0e1a
commit 5ed0893d96
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/src/prog8/astvm/AstVm.kt
View File

@ -286,7 +286,7 @@ class AstVm(val program: Program) {
private fun executeStatement(sub: INameScope, stmt: IStatement) { private fun executeStatement(sub: INameScope, stmt: IStatement) {
instructionCounter++ instructionCounter++
if (instructionCounter % 100 == 0) if (instructionCounter % 200 == 0)
Thread.sleep(1) Thread.sleep(1)
when (stmt) { when (stmt) {
is NopStatement, is Label, is Subroutine -> { is NopStatement, is Label, is Subroutine -> {

4
examples/mandelbrot.p8
View File

@ -39,9 +39,9 @@
} }
} }
float duration = floor(((c64.TIME_LO as float) float duration = ((c64.TIME_LO as float)
+ 256.0*(c64.TIME_MID as float) + 256.0*(c64.TIME_MID as float)
+ 65536.0*(c64.TIME_HI as float))/60.0) + 65536.0*(c64.TIME_HI as float))/60.0
c64scr.plot(0, 21) c64scr.plot(0, 21)
c64scr.print("finished in ") c64scr.print("finished in ")
c64flt.print_f(duration) c64flt.print_f(duration)