about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2019-06-12 00:13:34 -0700
committerKartik Agaram <vc@akkartik.com>2019-06-12 00:13:34 -0700
commit66bce436b328171cfbfa02c2e16dafc49343de08 (patch)
tree919fecbcee4cb53e20f33d054042f18a74153e6d
parentbf569a9f6c4b2e59dfe6aa30a9b01d8d77948aa1 (diff)
downloadmu-66bce436b328171cfbfa02c2e16dafc49343de08.tar.gz
.
Now that we don't have to edit code to run a single test, delete that
commented out fragment everywhere.
-rw-r--r--subx/056trace.subx7
-rw-r--r--subx/058stream-equal.subx7
-rw-r--r--subx/059stop.subx7
-rw-r--r--subx/061read-byte.subx8
-rw-r--r--subx/066write-buffered.subx8
-rw-r--r--subx/067print-int.subx7
-rw-r--r--subx/071read-line.subx7
-rw-r--r--subx/072slice.subx7
-rw-r--r--subx/073next-token.subx7
-rw-r--r--subx/074print-int-decimal.subx7
-rw-r--r--subx/075array-equal.subx5
-rw-r--r--subx/apps/assort.subx5
-rw-r--r--subx/apps/crenshaw2-1.subx4
-rw-r--r--subx/apps/crenshaw2-1b.subx4
-rw-r--r--subx/apps/dquotes.subx5
-rw-r--r--subx/apps/factorial.subx4
-rw-r--r--subx/apps/hex.subx5
-rw-r--r--subx/apps/pack.subx5
-rw-r--r--subx/apps/survey.subx5
19 files changed, 0 insertions, 114 deletions
diff --git a/subx/056trace.subx b/subx/056trace.subx
index d2173ddc..b1826a28 100644
--- a/subx/056trace.subx
+++ b/subx/056trace.subx
@@ -39,13 +39,6 @@ _test-trace-stream:
 # . op          subop               mod             rm32          base        index         scale       r32
 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
 
-#? Entry:  # run a single test, while debugging
-#?     e8/call test-trace-single/disp32
-#?     # syscall(exit, Num-test-failures)
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     b8/copy-to-EAX  1/imm32/exit
-#?     cd/syscall  0x80/imm8
-
 # Allocate a new segment for the trace stream, initialize its length, and save its address to Trace-stream.
 # The Trace-stream segment will consist of variable-length lines separated by newlines (0x0a)
 initialize-trace-stream:  # n : int -> <void>
diff --git a/subx/058stream-equal.subx b/subx/058stream-equal.subx
index 9bb36cf9..b9ab889b 100644
--- a/subx/058stream-equal.subx
+++ b/subx/058stream-equal.subx
@@ -5,13 +5,6 @@
 # . op          subop               mod             rm32          base        index         scale       r32
 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
 
-#? Entry:  # run a single test, while debugging
-#?     e8/call test-next-stream-line-equal-stops-at-newline/disp32
-#?     # syscall(exit, Num-test-failures)
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     b8/copy-to-EAX  1/imm32/exit
-#?     cd/syscall  0x80/imm8
-
 # compare all the data in a stream (ignoring the read pointer)
 stream-data-equal?:  # f : (address stream), s : (address string) -> EAX : boolean
     # . prolog
diff --git a/subx/059stop.subx b/subx/059stop.subx
index 0b842e5d..dbe8a663 100644
--- a/subx/059stop.subx
+++ b/subx/059stop.subx
@@ -37,13 +37,6 @@
 # . op          subop               mod             rm32          base        index         scale       r32
 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
 
-#? Entry:  # run a single test, while debugging
-#?     e8/call test-stop-skips-returns-on-exit/disp32
-#?     # syscall(exit, Num-test-failures)
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     b8/copy-to-EAX  1/imm32/exit
-#?     cd/syscall  0x80/imm8
-
 # Configure an exit-descriptor for a call pushing 'nbytes' bytes of args to
 # the stack.
 # Ugly that we need to know the size of args, but so it goes.
diff --git a/subx/061read-byte.subx b/subx/061read-byte.subx
index 81080393..99e2babe 100644
--- a/subx/061read-byte.subx
+++ b/subx/061read-byte.subx
@@ -31,14 +31,6 @@ Stdin:
 # . op          subop               mod             rm32          base        index         scale       r32
 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
 
-#? Entry:  # run a single test, while debugging
-#?     e8/call test-read-byte-buffered-multiple/disp32
-#?     e8/call test-read-byte-buffered-refills-buffer/disp32
-#?     # syscall(exit, Num-test-failures)
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     b8/copy-to-EAX  1/imm32/exit
-#?     cd/syscall  0x80/imm8
-
 # return next byte value in EAX, with top 3 bytes cleared.
 # On reaching end of file, return 0xffffffff (Eof).
 read-byte-buffered:  # f : (address buffered-file) -> byte-or-Eof/EAX
diff --git a/subx/066write-buffered.subx b/subx/066write-buffered.subx
index 343aa364..3b7092c4 100644
--- a/subx/066write-buffered.subx
+++ b/subx/066write-buffered.subx
@@ -5,14 +5,6 @@
 # . op          subop               mod             rm32          base        index         scale       r32
 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
 
-#? Entry:  # run a single test, while debugging
-#?     e8/call test-write-buffered/disp32
-#?     e8/call test-write-buffered-with-intermediate-flush/disp32
-#?     # syscall(exit, Num-test-failures)
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     b8/copy-to-EAX  1/imm32/exit
-#?     cd/syscall  0x80/imm8
-
 write-buffered:  # f : (address buffered-file), msg : (address array byte) -> <void>
     # pseudocode:
     #   in = msg->data
diff --git a/subx/067print-int.subx b/subx/067print-int.subx
index 1280f348..c9b8d2e4 100644
--- a/subx/067print-int.subx
+++ b/subx/067print-int.subx
@@ -5,13 +5,6 @@
 # . op          subop               mod             rm32          base        index         scale       r32
 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
 
-#? Entry:  # run a single test, while debugging
-#?     e8/call test-print-int32/disp32
-#?     # syscall(exit, Num-test-failures)
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     b8/copy-to-EAX  1/imm32/exit
-#?     cd/syscall  0x80/imm8
-
 append-byte-hex:  # f : (address stream), n : int -> <void>
     # . prolog
     55/push-EBP
diff --git a/subx/071read-line.subx b/subx/071read-line.subx
index f33fd035..9189773c 100644
--- a/subx/071read-line.subx
+++ b/subx/071read-line.subx
@@ -3,13 +3,6 @@
 # . op          subop               mod             rm32          base        index         scale       r32
 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
 
-#? Entry:  # run a single test, while debugging
-#?     e8/call test-read-line-buffered/disp32
-#?     # syscall(exit, Num-test-failures)
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     b8/copy-to-EAX  1/imm32/exit
-#?     cd/syscall  0x80/imm8
-
 # read bytes from 'f' until (and including) a newline and store them into 's'
 # 's' fails to grow if and only if no data found
 # just abort if 's' is too small
diff --git a/subx/072slice.subx b/subx/072slice.subx
index 82ce883e..abf88580 100644
--- a/subx/072slice.subx
+++ b/subx/072slice.subx
@@ -6,13 +6,6 @@
 # . op          subop               mod             rm32          base        index         scale       r32
 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
 
-#? Entry:  # run a single test, while debugging
-#?     e8/call test-slice-to-string/disp32
-#?     # syscall(exit, Num-test-failures)
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     b8/copy-to-EAX  1/imm32/exit
-#?     cd/syscall  0x80/imm8
-
 slice-empty?:  # s : (address slice) -> EAX : boolean
     # . prolog
     55/push-EBP
diff --git a/subx/073next-token.subx b/subx/073next-token.subx
index b632e47f..7376c1d0 100644
--- a/subx/073next-token.subx
+++ b/subx/073next-token.subx
@@ -5,13 +5,6 @@
 # . op          subop               mod             rm32          base        index         scale       r32
 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
 
-#? Entry:  # run a single test, while debugging
-#? e8/call test-next-token-from-slice/disp32
-#?     # syscall(exit, Num-test-failures)
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     b8/copy-to-EAX  1/imm32/exit
-#?     cd/syscall  0x80/imm8
-
 # extract the next run of characters that are different from a given 'delimiter' (skipping multiple delimiters if necessary)
 # on reaching end of file, return an empty interval
 next-token:  # in : (address stream), delimiter : byte, out : (address slice)
diff --git a/subx/074print-int-decimal.subx b/subx/074print-int-decimal.subx
index 07b58a13..04dcd1a5 100644
--- a/subx/074print-int-decimal.subx
+++ b/subx/074print-int-decimal.subx
@@ -5,13 +5,6 @@
 # . op          subop               mod             rm32          base        index         scale       r32
 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
 
-#? Entry:  # run a single test, while debugging
-#?     e8/call test-print-int32-decimal-negative/disp32
-#?     # syscall(exit, Num-test-failures)
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     b8/copy-to-EAX  1/imm32/exit
-#?     cd/syscall  0x80/imm8
-
 print-int32-decimal:  # out : (address stream), n : int32
     # works by generating characters from lowest to highest and pushing them
     # to the stack, before popping them one by one into the stream
diff --git a/subx/075array-equal.subx b/subx/075array-equal.subx
index 57eb3934..8834d709 100644
--- a/subx/075array-equal.subx
+++ b/subx/075array-equal.subx
@@ -16,11 +16,6 @@ Entry:
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
 
-    # for debugging: run a single test
-#?     e8/call test-parse-array-of-ints-empty/disp32
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     eb/jump  $array-equal-main:end/disp8
-
     e8/call  run-tests/disp32  # 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.
 $array-equal-main:end:
     # syscall(exit, Num-test-failures)
diff --git a/subx/apps/assort.subx b/subx/apps/assort.subx
index 8c5fd184..ab58fa3e 100644
--- a/subx/apps/assort.subx
+++ b/subx/apps/assort.subx
@@ -34,11 +34,6 @@ Entry:
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
 
-    # for debugging: run a single test
-#?     e8/call test-convert/disp32
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     eb/jump  $main:end/disp8
-
     # run tests if necessary, convert stdin if not
     # . prolog
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
diff --git a/subx/apps/crenshaw2-1.subx b/subx/apps/crenshaw2-1.subx
index 5ec2e829..0c3f180b 100644
--- a/subx/apps/crenshaw2-1.subx
+++ b/subx/apps/crenshaw2-1.subx
@@ -41,10 +41,6 @@ Entry:  # run tests if necessary, call 'compile' if not
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
 
-#?     # for debugging: run a single test; don't bother setting status code
-#?     e8/call test-get-num-aborts-on-non-digit-in-Look/disp32
-#?     eb/jump  $main:end/disp8
-
     # . prolog
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
     # - if argc > 1 and argv[1] == "test", then return run_tests()
diff --git a/subx/apps/crenshaw2-1b.subx b/subx/apps/crenshaw2-1b.subx
index 4f350cf4..e1bb6448 100644
--- a/subx/apps/crenshaw2-1b.subx
+++ b/subx/apps/crenshaw2-1b.subx
@@ -41,10 +41,6 @@ Entry:  # run tests if necessary, call 'compile' if not
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
 
-#?     # for debugging: run a single test; don't bother setting status code
-#?     e8/call test-get-num-reads-single-digit/disp32
-#?     eb/jump  $main:end/disp8
-
     # . prolog
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
     # - if argc > 1 and argv[1] == "test", then return run_tests()
diff --git a/subx/apps/dquotes.subx b/subx/apps/dquotes.subx
index db315665..87b808be 100644
--- a/subx/apps/dquotes.subx
+++ b/subx/apps/dquotes.subx
@@ -30,11 +30,6 @@ Entry:
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
 
-    # for debugging: run a single test
-#?     e8/call  test-convert-processes-string-literals/disp32
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     eb/jump  $main:end/disp8
-
     # run tests if necessary, convert stdin if not
     # . prolog
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
diff --git a/subx/apps/factorial.subx b/subx/apps/factorial.subx
index a9f88363..98efc6fa 100644
--- a/subx/apps/factorial.subx
+++ b/subx/apps/factorial.subx
@@ -29,10 +29,6 @@ Entry:  # run tests if necessary, compute `factorial(5)` if not
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
 
-#?     # for debugging: run a single test; don't bother setting status code
-#?     e8/call test-get-num-reads-single-digit/disp32
-#?     eb/jump  $main:end/disp8
-
     # . prolog
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
     # - if argc > 1 and argv[1] == "test", then return run_tests()
diff --git a/subx/apps/hex.subx b/subx/apps/hex.subx
index 6b82a1e9..a24c5a2e 100644
--- a/subx/apps/hex.subx
+++ b/subx/apps/hex.subx
@@ -28,11 +28,6 @@ Entry:  # run tests if necessary, convert stdin if not
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
 
-#?     # for debugging: run a single test
-#?     e8/call test-convert-next-octet-aborts-on-single-hex-byte/disp32
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     eb/jump  $main:end/disp8
-
     # . prolog
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
     # - if argc > 1 and argv[1] == "test", then return run_tests()
diff --git a/subx/apps/pack.subx b/subx/apps/pack.subx
index 0dd03fed..68d936f9 100644
--- a/subx/apps/pack.subx
+++ b/subx/apps/pack.subx
@@ -29,11 +29,6 @@ Entry:  # run tests if necessary, convert stdin if not
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
 
-    # for debugging: run a single test
-#?     e8/call test-emit-non-number-with-all-hex-digits-and-metadata/disp32
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     eb/jump  $main:end/disp8
-
     # . prolog
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
     # - if argc > 1 and argv[1] == "test", then return run_tests()
diff --git a/subx/apps/survey.subx b/subx/apps/survey.subx
index aa6e53c1..b6f94fff 100644
--- a/subx/apps/survey.subx
+++ b/subx/apps/survey.subx
@@ -54,11 +54,6 @@ Entry:
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
 
-    # for debugging: run a single test
-#?     e8/call test-convert-computes-addresses/disp32
-#?     8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           3/r32/EBX   Num-test-failures/disp32          # copy *Num-test-failures to EBX
-#?     eb/jump  $main:end/disp8
-
     # run tests if necessary, convert stdin if not
     # . prolog
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP