From bc2fef3a2ab81270af207568706647ced919bbe6 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rosehogenson@posteo.net>
Date: Wed, 7 Feb 2024 21:08:35 -0800
Subject: Support function arguments.

---
 linker.sml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'linker.sml')

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);
 
-- 
cgit v1.3.1