diff options
| author | Rose Hogenson <rosehogenson@posteo.net> | 2024-02-07 21:08:35 -0800 |
|---|---|---|
| committer | Rose Hogenson <rosehogenson@posteo.net> | 2024-02-19 14:24:27 -0800 |
| commit | bc2fef3a2ab81270af207568706647ced919bbe6 (patch) | |
| tree | bbb63738ec94757ff65554bcc8bc6a4ab2cfdef9 /linker.sml | |
| parent | Fix some bugs in the bytecode interpreter. (diff) | |
| download | sml-bc2fef3a2ab81270af207568706647ced919bbe6.tar.zst | |
Support function arguments.
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); |