From feec2292b5926872de8455d079b92e560a484a7f Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Mon, 14 Jan 2019 16:54:41 -0800 Subject: 4925 --- subx/apps/crenshaw2-1 | Bin 13272 -> 13641 bytes subx/apps/crenshaw2-1b | Bin 13831 -> 14200 bytes subx/apps/factorial | Bin 12190 -> 12559 bytes subx/apps/handle | Bin 12983 -> 13352 bytes subx/apps/hex | Bin 16251 -> 16620 bytes subx/apps/hex.subx | 8 ++++---- 6 files changed, 4 insertions(+), 4 deletions(-) (limited to 'subx/apps') diff --git a/subx/apps/crenshaw2-1 b/subx/apps/crenshaw2-1 index 3b046452..13b71386 100755 Binary files a/subx/apps/crenshaw2-1 and b/subx/apps/crenshaw2-1 differ diff --git a/subx/apps/crenshaw2-1b b/subx/apps/crenshaw2-1b index 41374cc1..a6bc19cf 100755 Binary files a/subx/apps/crenshaw2-1b and b/subx/apps/crenshaw2-1b differ diff --git a/subx/apps/factorial b/subx/apps/factorial index 4878eaa5..bad6fe72 100755 Binary files a/subx/apps/factorial and b/subx/apps/factorial differ diff --git a/subx/apps/handle b/subx/apps/handle index be6ae850..76c7950a 100755 Binary files a/subx/apps/handle and b/subx/apps/handle differ diff --git a/subx/apps/hex b/subx/apps/hex index 35c55cc3..bfbba407 100755 Binary files a/subx/apps/hex and b/subx/apps/hex differ diff --git a/subx/apps/hex.subx b/subx/apps/hex.subx index 8f6e1575..0d2caefe 100644 --- a/subx/apps/hex.subx +++ b/subx/apps/hex.subx @@ -490,7 +490,7 @@ scan-next-byte: # in : (address buffered-file), err : (address buffered-file), # repeatedly # EAX = read-byte(in) # if EAX == 0xffffffff return EAX - # if is-hex-byte?(EAX) return EAX + # if is-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) @@ -510,14 +510,14 @@ $scan-next-byte:loop: # if (EAX == 0xffffffff) return EAX 3d/compare-with-EAX 0xffffffff/imm32 74/jump-if-equal $scan-next-byte:end/disp8 - # if is-hex-byte?(EAX) return EAX + # if is-hex-digit?(EAX) return EAX # . save EAX for now 50/push-EAX - # . is-hex-byte?(EAX) + # . is-hex-digit?(EAX) # . . push args 50/push-EAX # . . call - e8/call is-hex-byte?/disp32 + e8/call is-hex-digit?/disp32 # . . discard args 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP # . compare with 'false' -- cgit 1.4.1-2-gfad0