diff options
Diffstat (limited to 'linker.sml')
| -rw-r--r-- | linker.sml | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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); |
