Make SIEVE JITable

src/samplesrc/sieve.pla

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

src/vmsrc/apple/cmdjit.pla

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