diff options
Diffstat (limited to 'subx')
-rw-r--r-- | subx/056trace.subx | 7 | ||||
-rw-r--r-- | subx/058stream-equal.subx | 7 | ||||
-rw-r--r-- | subx/059stop.subx | 7 | ||||
-rw-r--r-- | subx/061read-byte.subx | 8 | ||||
-rw-r--r-- | subx/066write-buffered.subx | 8 | ||||
-rw-r--r-- | subx/067print-int.subx | 7 | ||||
-rw-r--r-- | subx/071read-line.subx | 7 | ||||
-rw-r--r-- | subx/072slice.subx | 7 | ||||
-rw-r--r-- | subx/073next-token.subx | 7 | ||||
-rw-r--r-- | subx/074print-int-decimal.subx | 7 | ||||
-rw-r--r-- | subx/075array-equal.subx | 5 | ||||
-rw-r--r-- | subx/apps/assort.subx | 5 | ||||
-rw-r--r-- | subx/apps/crenshaw2-1.subx | 4 | ||||
-rw-r--r-- | subx/apps/crenshaw2-1b.subx | 4 | ||||
-rw-r--r-- | subx/apps/dquotes.subx | 5 | ||||
-rw-r--r-- | subx/apps/factorial.subx | 4 | ||||
-rw-r--r-- | subx/apps/hex.subx | 5 | ||||
-rw-r--r-- | subx/apps/pack.subx | 5 | ||||
-rw-r--r-- | subx/apps/survey.subx | 5 |
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 |