diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-09-12 02:21:48 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-09-12 02:21:48 +0200 |
| commit | d29012d30e158edc28d4467b69a95b5a3c68f04d (patch) | |
| tree | b4e08ff4cf3b0fdc078df749c63532e9cf7362c9 /src/Main.hs | |
| parent | 8a0751dfb000451b394f1d6443532753595f5f19 (diff) | |
| download | elna-d29012d30e158edc28d4467b69a95b5a3c68f04d.tar.gz | |
Pass relocation base table
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |