diff options
| -rw-r--r-- | subx/058stream-equal.subx | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/subx/058stream-equal.subx b/subx/058stream-equal.subx index 9bb36cf9..64ea7d4c 100644 --- a/subx/058stream-equal.subx +++ b/subx/058stream-equal.subx @@ -33,6 +33,7 @@ stream-data-equal?: # f : (address stream), s : (address string) -> EAX : boole # EDI = s 8b/copy 1/mod/*+disp8 5/rm32/EBP . . . 7/r32/EDI 0xc/disp8 . # copy *(EBP+12) to EDI # if (f->write != s->length) return false +$stream-data-equal?:compare-lengths: 39/compare 0/mod/indirect 7/rm32/EDI . . . 0/r32/EAX . . # compare *EDI and EAX 75/jump-if-not-equal $stream-data-equal?:false/disp8 # currs/EDI = s->data |