summaryrefslogtreecommitdiffstats
path: root/linker.sml
diff options
context:
space:
mode:
Diffstat (limited to 'linker.sml')
-rw-r--r--linker.sml6
1 files changed, 3 insertions, 3 deletions
diff --git a/linker.sml b/linker.sml
index 6694d89..c8f67e6 100644
--- a/linker.sml
+++ b/linker.sml
@@ -36,9 +36,9 @@ struct
else lowByte w (Word.fromInt v)
fun writeOffset w i =
- if 0 > i orelse i > 127
- then raise Fail ("offset out of range: " ^ Int.toString i)
- else lowByte w (Word.fromInt i)
+ if i < 0
+ then raise Fail ("negative offset: " ^ Int.toString i)
+ else writeInt w i
structure IntMap = Map(type k = int val cmp = Int.compare);