Fixed off-by-one error in dumpstack subroutine.

[vvhitespace] / stdlib / debug.pvvs

diff --git a/stdlib/debug.pvvs b/stdlib/debug.pvvs
index 8baef32..960c65b 100644 (file)
--- a/stdlib/debug.pvvs
+++ b/stdlib/debug.pvvs
@@ -34,8 +34,8 @@ SNT                      | SWAP
 
 @ Print output line for this memory location
 NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)
 
 @ Print output line for this memory location
 NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)

-SSSTTTSTSN               | PUSH ASCII ':'

 SSSTSSTN                 | PUSH ASCII '\t'
 SSSTSSTN                 | PUSH ASCII '\t'

+SSSTTTSTSN               | PUSH ASCII ':'

 TNSS                     | PUTC
 TNSS                     | PUTC
 SNS                      | DUP
 TNSS                     | PUTC
 TNSS                     | PUTC
 SNS                      | DUP


@@ -89,8 +89,8 @@ NSTTTTTSSN               | JSR > 111100 (debug:printstring)
 NSSVSSTTTSSTSSSSSSSTN    | Mark: 00111001 00000001
 SNS                      | DUP
 NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)
 NSSVSSTTTSSTSSSSSSSTN    | Mark: 00111001 00000001
 SNS                      | DUP
 NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)

-SSSTTTSTSN               | PUSH ASCII ':'

 SSSTSSTN                 | PUSH ASCII '\t'
 SSSTSSTN                 | PUSH ASCII '\t'

+SSSTTTSTSN               | PUSH ASCII ':'

 TNSS                     | PUTC
 TNSS                     | PUTC
 SNT                      | SWAP
 TNSS                     | PUTC
 TNSS                     | PUTC
 SNT                      | SWAP


@@ -101,10 +101,10 @@ SSSTSTSN                 | PUSH ASCII '\n'
 TNSS                     | PUTC
 
 @ Figure out if the loop is complete.
 TNSS                     | PUTC
 
 @ Figure out if the loop is complete.

-SNS                      | DUP
-NTSSSTTTSSTSSSSSSSSN     | BRZ > 00111001 00000000

 SSSTN                    | PUSH 1
 TSST                     | SUBTRACT
 SSSTN                    | PUSH 1
 TSST                     | SUBTRACT

+SNS                      | DUP
+NTSSSTTTSSTSSSSSSSSN     | BRZ > 00111001 00000000

 NSNSSTTTSSTSSSSSSSTN     | JMP > 00111001 00000001
 
 @ Clean up and return
 NSNSSTTTSSTSSSSSSSTN     | JMP > 00111001 00000001
 
 @ Clean up and return