From 1cbbef19afcf997315431e3aa45f824fe8a8a0e7 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 8 Sep 2024 02:08:13 +0200
Subject: Stub the implementation for all phases

---
 lib/Language/Elna/CodeGenerator.hs | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'lib/Language/Elna/CodeGenerator.hs')

diff --git a/lib/Language/Elna/CodeGenerator.hs b/lib/Language/Elna/CodeGenerator.hs
index cdbfc01..6097843 100644
--- a/lib/Language/Elna/CodeGenerator.hs
+++ b/lib/Language/Elna/CodeGenerator.hs
@@ -1,3 +1,16 @@
 module Language.Elna.CodeGenerator
-    (
+    ( generateCode
     ) where
+
+import Data.Vector (Vector)
+import qualified Data.Vector as Vector
+import Language.Elna.Intermediate (Quadruple(..))
+import qualified Language.Elna.Architecture.RiscV as RiscV
+import Language.Elna.SymbolTable (SymbolTable)
+
+generateCode :: SymbolTable -> Vector Quadruple -> Vector RiscV.Instruction
+generateCode _ _ = Vector.fromList
+    [ RiscV.Instruction RiscV.OpImm $ RiscV.I RiscV.A0 RiscV.ADDI RiscV.Zero 0
+    , RiscV.Instruction RiscV.OpImm $ RiscV.I RiscV.A7 RiscV.ADDI RiscV.Zero 93
+    , RiscV.Instruction RiscV.System $ RiscV.Type RiscV.Zero RiscV.PRIV RiscV.Zero RiscV.ECALL
+    ]
-- 
cgit v1.2.3