summaryrefslogtreecommitdiff
path: root/lib/Language/Elna/CodeGenerator.hs
diff options
context:
space:
mode:
authorEugen Wissner <belka@caraus.de>2024-09-22 23:45:59 +0200
committerEugen Wissner <belka@caraus.de>2024-09-22 23:45:59 +0200
commite66ccf46f445f04fbbeb1b0bfb273b806d22f65b (patch)
tree636144d461660602656f74d7de99e2d5b434bb0c /lib/Language/Elna/CodeGenerator.hs
parentdaec506ed3f90e61c6a3c4d5b38c19e28ebb1978 (diff)
downloadelna-e66ccf46f445f04fbbeb1b0bfb273b806d22f65b.tar.gz
Take function name from the generated asm
Diffstat (limited to 'lib/Language/Elna/CodeGenerator.hs')
-rw-r--r--lib/Language/Elna/CodeGenerator.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Language/Elna/CodeGenerator.hs b/lib/Language/Elna/CodeGenerator.hs
index 1ddfb21..e61e274 100644
--- a/lib/Language/Elna/CodeGenerator.hs
+++ b/lib/Language/Elna/CodeGenerator.hs
@@ -3,7 +3,7 @@ module Language.Elna.CodeGenerator
, generateCode
) where
-import Data.Text (Text)
+import Data.ByteString (ByteString)
import Data.Vector (Vector)
import qualified Data.Vector as Vector
import Language.Elna.Intermediate (Quadruple(..))
@@ -17,7 +17,7 @@ data Directive
data Asm
= Instruction RiscV.Instruction
- | JumpLabel Text [Directive]
+ | JumpLabel ByteString [Directive]
deriving Eq
generateCode :: SymbolTable -> Vector Quadruple -> Vector Asm