diff options
Diffstat (limited to '310copy-bytes.subx')
-rw-r--r-- | 310copy-bytes.subx | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/310copy-bytes.subx b/310copy-bytes.subx index eed337c0..176c4c33 100644 --- a/310copy-bytes.subx +++ b/310copy-bytes.subx @@ -56,7 +56,7 @@ $copy-bytes:end: 5d/pop-to-ebp c3/return -stream-to-string: # in: (addr stream _), out: (addr handle array _) +stream-to-array: # in: (addr stream _), out: (addr handle array _) # . prologue 55/push-ebp 89/<- %ebp 4/r32/esp @@ -81,7 +81,7 @@ stream-to-string: # in: (addr stream _), out: (addr handle array _) 8d/copy-address *(eax+4) 0/r32/eax # (copy-bytes %edx %eax %ecx) -$stream-to-string:end: +$stream-to-array:end: # . restore registers 5e/pop-to-esi 5a/pop-to-edx @@ -92,7 +92,7 @@ $stream-to-string:end: 5d/pop-to-ebp c3/return -test-stream-to-string: +test-stream-to-array: # . prologue 55/push-ebp 89/<- %ebp 4/r32/esp @@ -106,7 +106,7 @@ test-stream-to-string: 68/push 0/imm32 89/<- %ecx 4/r32/esp # - (stream-to-string _test-input-stream %ecx) + (stream-to-array _test-input-stream %ecx) (lookup *ecx *(ecx+4)) # => eax (check-strings-equal %eax "bc") # . epilogue @@ -114,9 +114,9 @@ test-stream-to-string: 5d/pop-to-ebp c3/return -# like stream-to-string but ignore surrounding quotes +# like stream-to-array but ignore surrounding quotes # we might do other stuff here later -unquote-stream-to-string: # in: (addr stream _), out: (addr handle array _) +unquote-stream-to-array: # in: (addr stream _), out: (addr handle array _) # . prologue 55/push-ebp 89/<- %ebp 4/r32/esp @@ -131,7 +131,7 @@ unquote-stream-to-string: # in: (addr stream _), out: (addr handle array _) 8b/-> *esi 1/r32/ecx 2b/subtract *(esi+4) 1/r32/ecx 81 7/subop/compare %ecx 2/imm32 - 7c/jump-if-< $unquote-stream-to-string:end/disp8 + 7c/jump-if-< $unquote-stream-to-array:end/disp8 81 5/subop/subtract %ecx 2/imm32 # allocate (allocate-array Heap %ecx *(ebp+0xc)) @@ -144,7 +144,7 @@ unquote-stream-to-string: # in: (addr stream _), out: (addr handle array _) 8d/copy-address *(eax+4) 0/r32/eax # (copy-bytes %edx %eax %ecx) -$unquote-stream-to-string:end: +$unquote-stream-to-array:end: # . restore registers 5e/pop-to-esi 5a/pop-to-edx |