From d225d1e727a1f1390c172d720fe7e6e59ba02bd1 Mon Sep 17 00:00:00 2001 From: Cat's Eye Technologies Date: Wed, 2 Apr 2014 20:16:50 +0100 Subject: [PATCH] Pass test, hamfistedly. --- src/SixtyPical/Checker.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/SixtyPical/Checker.hs b/src/SixtyPical/Checker.hs index 1912e5e..7e2e151 100644 --- a/src/SixtyPical/Checker.hs +++ b/src/SixtyPical/Checker.hs @@ -111,7 +111,12 @@ fillOutNamedLocationTypes p@(Program decls routines) = mapProgramRoutines (xform) p where xform (COPY src dest) = - COPY (resolve src) (resolve dest) + -- ewww special-case-y + case ((resolve src), (resolve dest)) of + ((NamedLocation (Just Word) name), A) -> + error ("absolute access of non-byte-based address '" ++ name ++ "'") + _ -> + COPY (resolve src) (resolve dest) xform (CMP dest other) = CMP (resolve dest) (resolve other) xform (ADD dest other) =