diff options
author | Kartik Agaram <vc@akkartik.com> | 2019-05-20 00:18:23 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2019-05-20 00:18:23 -0700 |
commit | fc6605de48f3221efdbde1d363a202c336b2b919 (patch) | |
tree | 533709a83574ba65a4b925fbebf1f7770e99c7e8 /subx | |
parent | 7fd1881e228f2552285eff9a1193893adefad23e (diff) | |
download | mu-fc6605de48f3221efdbde1d363a202c336b2b919.tar.gz |
.
Diffstat (limited to 'subx')
-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 |