From d29012d30e158edc28d4467b69a95b5a3c68f04d Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Thu, 12 Sep 2024 02:21:48 +0200
Subject: Pass relocation base table

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 872cad9..646d967 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -3,7 +3,7 @@ module Main
     ) where
 
 import Language.Elna.CommandLine (CommandLine(..), commandLine, execParser)
-import Language.Elna.PrinterWriter (riscv32Elf, riscv32Header)
+import Language.Elna.PrinterWriter (riscv32Elf)
 import Language.Elna.Object.Elf (elfObject)
 import Language.Elna.Parser (programP)
 import Language.Elna.NameAnalysis (nameAnalysis)
@@ -28,7 +28,7 @@ main  = execParser commandLine >>= withCommandLine
         let symbolTable = nameAnalysis program
             _ = typeAnalysis symbolTable program
             intermediate' = intermediate symbolTable program
-         in elfObject output riscv32Header
+         in elfObject output
             $ riscv32Elf
             $ generateCode symbolTable intermediate'
     withParsedInput _ (Left errorBundle) = putStrLn
-- 
cgit v1.2.3