From d940187fd8720e0ab3c00e5a6a7ae8f181c7752d Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sun, 12 Feb 2023 15:37:25 -0800 Subject: Add lambda functions. --- linker.sml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'linker.sml') diff --git a/linker.sml b/linker.sml index 874e145..6694d89 100644 --- a/linker.sml +++ b/linker.sml @@ -31,14 +31,14 @@ struct end fun writeVar w v = - if v > 7 + if v > CodeGen.tempReg then raise Fail ("var out of range: " ^ Int.toString v) else lowByte w (Word.fromInt v) fun writeOffset w i = - if ~128 > i orelse i > 127 + if 0 > i orelse i > 127 then raise Fail ("offset out of range: " ^ Int.toString i) - else lowByte w + else lowByte w (Word.fromInt i) structure IntMap = Map(type k = int val cmp = Int.compare); @@ -58,13 +58,13 @@ struct makeOpcode w 2 false false | Syntax.OPoke (off, p, v) => (makeOpcode w 3 (isConst v) false ; - writeInt w off ; + writeOffset w off ; writeVar w p ; writeValue w v) | Syntax.OPeek (r, off, v) => (makeOpcode w 4 (isConst v) false ; writeVar w r ; - writeInt w off ; + writeOffset w off ; writeValue w v) | Syntax.OShuf (r, v) => (makeOpcode w 5 (isConst v) false ; -- cgit v1.3.1