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 DELTA (resolve dest) val
xform (SEI blk) = xform (SEI blk) =
SEI (mapBlock xform blk) SEI (mapBlock xform blk)
xform (COPYVECTOR src dest) = xform (PUSH val blk) =
COPYVECTOR (resolve src) (resolve dest) PUSH (resolve val) (mapBlock xform blk)
xform (COPYROUTINE name dest) = xform (COPYROUTINE name dest) =
COPYROUTINE name (resolve dest) COPYROUTINE name (resolve dest)
xform other = xform other =

1
src/SixtyPical/Model.hs
View File

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