diff options
| author | Camil Staps | 2016-07-06 12:45:03 +0200 |
|---|---|---|
| committer | Camil Staps | 2016-07-06 12:45:03 +0200 |
| commit | d13c8c39bde8c0cfea466a4cff5189b9532005ce (patch) | |
| tree | 1347f3b67d14a8ae3df774d57d20b1130d3f0d80 /ABC/Assembler.dcl | |
| parent | Added Machine as module level (diff) | |
toString for Assembler (and Statement)
Diffstat (limited to 'ABC/Assembler.dcl')
| -rw-r--r-- | ABC/Assembler.dcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ABC/Assembler.dcl b/ABC/Assembler.dcl index 6b0a585..281190d 100644 --- a/ABC/Assembler.dcl +++ b/ABC/Assembler.dcl @@ -1,5 +1,6 @@ definition module ABC.Assembler +from StdOverloaded import class toString from ABC.Machine.Def import ::Arity, ::Name, ::NrArgs, ::ArgNr, ::Instruction, ::State from ABC.Machine.AStack import ::ASrc, ::ADst from ABC.Machine.BStack import ::BSrc, ::BDst @@ -75,4 +76,7 @@ from ABC.Machine.GraphStore import ::Desc | MulI | SubI +instance toString Assembler +instance toString Statement + assemble :: Assembler -> ([Instruction], [Desc]) |