6502/SixtyPical
1
0
Fork 0
mirror of https://github.com/catseye/SixtyPical.git synced 2024-06-26 16:29:28 +00:00
Code Issues Projects Releases Wiki Activity

Pass test, hamfistedly.

Browse Source
This commit is contained in:
Cat's Eye Technologies 2014-04-02 20:16:50 +01:00
parent c9c2d9345f
commit d225d1e727
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/SixtyPical/Checker.hs
View File

@ -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) =