diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2021-03-07 21:05:45 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2021-03-07 21:05:45 -0800 |
| commit | de7713d97470528ee47031f64446d45555ee7a10 (patch) | |
| tree | c8c1e0ad7ca220d062c544cbb673c80c7934a83f /linux/hex.subx | |
| parent | 1a1a1671edd8d27cdd6229c08e6b40a202d85740 (diff) | |
| download | mu-de7713d97470528ee47031f64446d45555ee7a10.tar.gz | |
7867
Diffstat (limited to 'linux/hex.subx')
| -rw-r--r-- | linux/hex.subx | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/linux/hex.subx b/linux/hex.subx index ae80a13d..6024eb25 100644 --- a/linux/hex.subx +++ b/linux/hex.subx @@ -479,7 +479,7 @@ scan-next-byte: # in: (addr buffered-file), err: (addr buffered-file), ed: (add # while true # eax = read-byte-buffered(in) # if (eax == Eof) return eax - # if (is-hex-digit?(eax)) return eax + # if (hex-digit?(eax)) return eax # if (eax == ' ' or '\t' or '\n') continue # if (eax == '#') skip-until-newline(in) # else error-byte(ed, err, "invalid byte: " eax) @@ -499,14 +499,14 @@ $scan-next-byte:loop: # if (eax == Eof) return eax 3d/compare-with-eax 0xffffffff/imm32/Eof 74/jump-if-= $scan-next-byte:end/disp8 - # if (is-hex-digit?(eax)) return eax + # if (hex-digit?(eax)) return eax # . save eax for now 50/push-eax - # . is-hex-digit?(eax) + # . hex-digit?(eax) # . . push args 50/push-eax # . . call - e8/call is-hex-digit?/disp32 + e8/call hex-digit?/disp32 # . . discard args 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp # . compare with 'false' |