From 72853d07bb3cfed09f57ee36b582f8f35fee74e4 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Fri, 17 May 2019 18:08:50 -0700 Subject: 5181 Test for the bugfix of commit 2f49a27504. --- subx/apps/dquotes | Bin 25014 -> 22932 bytes subx/apps/dquotes.subx | 20 ++++++++++++++++++++ 2 files changed, 20 insertions(+) (limited to 'subx') diff --git a/subx/apps/dquotes b/subx/apps/dquotes index d9970727..ac7072c9 100755 Binary files a/subx/apps/dquotes and b/subx/apps/dquotes differ diff --git a/subx/apps/dquotes.subx b/subx/apps/dquotes.subx index db1073cf..e44a2c41 100644 --- a/subx/apps/dquotes.subx +++ b/subx/apps/dquotes.subx @@ -1707,6 +1707,16 @@ test-next-word: e8/call next-word/disp32 # . . discard args 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add to ESP + # check-ints-equal(_test-input-stream->read, 4, msg) + # . . push args + 68/push "F - test-next-word/updates-stream-read-correctly"/imm32 + 68/push 4/imm32 + b8/copy-to-EAX _test-input-stream/imm32 + ff 6/subop/push 1/mod/*+disp8 0/rm32/EAX . . . . 4/disp8 . # push *(EAX+4) + # . . call + e8/call check-ints-equal/disp32 + # . . discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP # check-ints-equal(slice->start - _test-input-stream->data, 2, msg) # . check-ints-equal(slice->start - _test-input-stream, 14, msg) # . . push args @@ -1770,6 +1780,16 @@ test-next-word-returns-whole-comment: e8/call next-word/disp32 # . . discard args 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add to ESP + # check-ints-equal(_test-input-stream->read, 5, msg) + # . . push args + 68/push "F - test-next-word-returns-whole-comment/updates-stream-read-correctly"/imm32 + 68/push 5/imm32 + b8/copy-to-EAX _test-input-stream/imm32 + ff 6/subop/push 1/mod/*+disp8 0/rm32/EAX . . . . 4/disp8 . # push *(EAX+4) + # . . call + e8/call check-ints-equal/disp32 + # . . discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP # check-ints-equal(slice->start - _test-input-stream->data, 2, msg) # . check-ints-equal(slice->start - _test-input-stream, 14, msg) # . . push args -- cgit 1.4.1-2-gfad0