From fdf56ce9d0de459dc5bd65537847ded7b02ad5c2 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Wed, 2 Oct 2024 22:56:15 +0200 Subject: Negate integral expressions --- src/Main.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 456c5ad..e5a217f 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -3,14 +3,14 @@ module Main ) where import Language.Elna.CommandLine (CommandLine(..), commandLine, execParser) -import Language.Elna.PrinterWriter (riscv32Elf) import Language.Elna.Object.Elf (elfObject) -import Language.Elna.Allocator (allocate) -import Language.Elna.Parser (programP) -import Language.Elna.NameAnalysis (nameAnalysis) -import Language.Elna.TypeAnalysis (typeAnalysis) -import Language.Elna.Intermediate (intermediate) -import Language.Elna.CodeGenerator (generateRiscV, riscVConfiguration) +import Language.Elna.Backend.Allocator (allocate) +import Language.Elna.Glue (glue) +import Language.Elna.Frontend.NameAnalysis (nameAnalysis) +import Language.Elna.Frontend.Parser (programP) +import Language.Elna.Frontend.TypeAnalysis (typeAnalysis) +import Language.Elna.RiscV.CodeGenerator (generateRiscV, riscVConfiguration) +import Language.Elna.RiscV.ElfWriter (riscv32Elf) import Data.Maybe (fromMaybe) import System.FilePath (replaceExtension, takeFileName) import Text.Megaparsec (runParser, errorBundlePretty) @@ -34,6 +34,6 @@ main = execParser commandLine >>= withCommandLine let _ = typeAnalysis symbolTable program instructions = generateRiscV $ allocate riscVConfiguration - $ intermediate symbolTable program + $ glue symbolTable program in elfObject output $ riscv32Elf instructions -- cgit v1.2.3