diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-09-24 22:20:57 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-09-24 22:20:57 +0200 |
| commit | b30bbcab2892f9c41d6b1057eb09804e2d9be4e6 (patch) | |
| tree | bd6db707f8bef38be0ac967f170e0d822142422f /lib/Language/Elna/CodeGenerator.hs | |
| parent | e66ccf46f445f04fbbeb1b0bfb273b806d22f65b (diff) | |
| download | elna-b30bbcab2892f9c41d6b1057eb09804e2d9be4e6.tar.gz | |
Parse call statements
Diffstat (limited to 'lib/Language/Elna/CodeGenerator.hs')
| -rw-r--r-- | lib/Language/Elna/CodeGenerator.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Language/Elna/CodeGenerator.hs b/lib/Language/Elna/CodeGenerator.hs index e61e274..832917f 100644 --- a/lib/Language/Elna/CodeGenerator.hs +++ b/lib/Language/Elna/CodeGenerator.hs @@ -1,5 +1,5 @@ module Language.Elna.CodeGenerator - ( Asm(..) + ( Statement(..) , generateCode ) where @@ -15,12 +15,12 @@ data Directive | FunctionDirective deriving (Eq, Show) -data Asm +data Statement = Instruction RiscV.Instruction | JumpLabel ByteString [Directive] deriving Eq -generateCode :: SymbolTable -> Vector Quadruple -> Vector Asm +generateCode :: SymbolTable -> Vector Quadruple -> Vector Statement generateCode _ _ = Vector.fromList [ JumpLabel "main" [GlobalDirective, FunctionDirective] , Instruction (RiscV.CallInstruction "printi") |