6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-10-18 22:24:28 +00:00
Code Issues Projects Releases Wiki Activity

Make SIEVE JITable

Browse Source
This commit is contained in:
David Schmenk 2018-03-29 07:58:31 -07:00
parent 3968f82625
commit 148031d192
2 changed files with 25 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/samplesrc/sieve.pla
View File

@ -11,8 +11,9 @@ def beep#0
putc(7) putc(7)
end end
beep def sieve#0
//for iter = 1 to 10 beep
//for iter = 1 to 10
flag = heapalloc(sizepl) flag = heapalloc(sizepl)
memset(flag, TRUE, sizepl) memset(flag, TRUE, sizepl)
count = 0 count = 0
@ -29,8 +30,11 @@ beep
putln putln
fin fin
next next
//next //next
beep beep
end
sieve
puti(count) puti(count)
puts(" primes.\n") puts(" primes.\n")
done done

2
src/vmsrc/apple/cmdjit.pla
View File

@ -59,7 +59,7 @@ word syscmdln
word = @execmod, @open, @close, @read, @write word = @execmod, @open, @close, @read, @write
byte perr byte perr
byte jitcount = 45 byte jitcount = 45
byte jitsize = 128 byte jitsize = 255
// //
// Working input buffer overlayed with strings table // Working input buffer overlayed with strings table
// //