Pass relocation base table

2024-09-12 02:21:48 +02:00
parent 8a0751dfb0
commit d29012d30e
4 changed files with 128 additions and 124 deletions
--- 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