6502/SixtyPical
1
0
Fork 0
mirror of https://github.com/catseye/SixtyPical.git synced 2024-11-26 14:49:15 +00:00
Code Issues Projects Releases Wiki Activity

No more COPYVECTOR

Browse Source
This commit is contained in:
Cat's Eye Technologies 2014-04-03 22:17:46 +01:00
parent 2088769b8e
commit e2704df129
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/SixtyPical/Checker.hs
View File

@ -136,8 +136,8 @@ fillOutNamedLocationTypes p@(Program decls routines) =
DELTA (resolve dest) val
xform (SEI blk) =
SEI (mapBlock xform blk)
xform (COPYVECTOR src dest) =
COPYVECTOR (resolve src) (resolve dest)
xform (PUSH val blk) =
PUSH (resolve val) (mapBlock xform blk)
xform (COPYROUTINE name dest) =
COPYROUTINE name (resolve dest)
xform other =

1
src/SixtyPical/Model.hs
View File

@ -78,7 +78,6 @@ data Instruction = COPY StorageLocation StorageLocation
| DELTA StorageLocation DataValue
| SEI [Instruction]
| PUSH StorageLocation [Instruction]
| COPYVECTOR StorageLocation StorageLocation
| COPYROUTINE RoutineName StorageLocation
| NOP
deriving (Show, Ord, Eq)