diff options
Diffstat (limited to 'subx')
| -rw-r--r-- | subx/059read-byte.subx | 53 | ||||
| -rwxr-xr-x | subx/apps/crenshaw2-1 | bin | 7704 -> 7870 bytes | |||
| -rwxr-xr-x | subx/apps/crenshaw2-1b | bin | 8265 -> 8431 bytes | |||
| -rwxr-xr-x | subx/apps/factorial | bin | 6595 -> 6761 bytes | |||
| -rwxr-xr-x | subx/apps/hex | bin | 11219 -> 11385 bytes |
5 files changed, 53 insertions, 0 deletions
diff --git a/subx/059read-byte.subx b/subx/059read-byte.subx index 8307a167..2ec73f70 100644 --- a/subx/059read-byte.subx +++ b/subx/059read-byte.subx @@ -34,6 +34,7 @@ Stdin: # main: e8/call run-tests/disp32 # 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'. #? e8/call test-read-byte-multiple/disp32 +#? e8/call test-read-byte-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 @@ -63,6 +64,8 @@ read-byte: # f : (address buffered-file) -> byte-or-eof/EAX e8/call clear-stream/disp32 # . . discard args 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP + # . f->read must now be 0; update ECX + 31/xor 3/mod/direct 1/rm32/ECX . . . 1/r32/ECX . . # clear ECX # . EAX = read(f->fd, stream = f+4) # . . push args 50/push-EAX @@ -231,6 +234,56 @@ test-read-byte-end-of-file: # . end c3/return +test-read-byte-refills-buffer: + # - consume buffered-file's buffer, check that next read-byte still works + # setup + # . clear-stream(_test-stream) + # . . push args + 68/push _test-stream/imm32 + # . . call + e8/call clear-stream/disp32 + # . . discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP + # . clear-stream(_test-buffered-file+4) + # . . push args + b8/copy-to-EAX _test-buffered-file/imm32 + 05/add-to-EAX 4/imm32 + 50/push-EAX + # . . call + e8/call clear-stream/disp32 + # . . discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP + # . write(_test-stream, "Abcdefgh") + # . . push args + 68/push "Abcdefgh"/imm32 + 68/push _test-stream/imm32 + # . . call + e8/call write/disp32 + # . . discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add to ESP + # pretend buffer is full + # . _test-buffered-file->read = 6 # >= _test-buffered-file->length + b8/copy-to-EAX _test-buffered-file/imm32 + c7/copy 1/mod/*+disp8 0/rm32/EAX . . . . 8/disp8 6/imm32 # copy to *(EAX+8) + # read-byte(_test-buffered-file) + # . . push args + 68/push _test-buffered-file/imm32 + # . . call + e8/call read-byte/disp32 + # . . discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP + # check-ints-equal(EAX, 'A', msg) + # . . push args + 68/push "F - test-read-byte-refills-buffer"/imm32 + 68/push 0x41/imm32 + 50/push-EAX + # . . call + e8/call check-ints-equal/disp32 + # . . discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP + # . end + c3/return + == data # a test buffered file for _test-stream diff --git a/subx/apps/crenshaw2-1 b/subx/apps/crenshaw2-1 index a9b572b1..3f3861f6 100755 --- a/subx/apps/crenshaw2-1 +++ b/subx/apps/crenshaw2-1 Binary files differdiff --git a/subx/apps/crenshaw2-1b b/subx/apps/crenshaw2-1b index 06cb42ef..89b77a2c 100755 --- a/subx/apps/crenshaw2-1b +++ b/subx/apps/crenshaw2-1b Binary files differdiff --git a/subx/apps/factorial b/subx/apps/factorial index 8b15bbe5..115d3ed1 100755 --- a/subx/apps/factorial +++ b/subx/apps/factorial Binary files differdiff --git a/subx/apps/hex b/subx/apps/hex index d18ddd6f..1a402d89 100755 --- a/subx/apps/hex +++ b/subx/apps/hex Binary files differ |