Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove debug method from subphase4

Browse source
This commit is contained in:
I-Al-Istannen 2020-04-08 20:08:57 +02:00
parent d35de03936
commit dd71e3a84c
1 changed files with 0 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/Mima/Asm/Phase2/Subphase4.hs
View file

@ -2,7 +2,6 @@
module Mima.Asm.Phase2.Subphase4 module Mima.Asm.Phase2.Subphase4
( subphase4 ( subphase4
, throughThePhases
) where ) where
import Control.Monad import Control.Monad
@ -11,14 +10,8 @@ import Control.Monad.Trans.Reader
import qualified Data.Map.Strict as Map import qualified Data.Map.Strict as Map
import Data.Maybe import Data.Maybe
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.IO as T
import Data.Void import Data.Void
import Text.Megaparsec
import Mima.Asm.Phase1.Parse
import Mima.Asm.Phase2.Subphase1
import Mima.Asm.Phase2.Subphase2
import Mima.Asm.Phase2.Subphase3
import Mima.Asm.Phase2.Types import Mima.Asm.Phase2.Types
import Mima.Asm.Weed import Mima.Asm.Weed
import qualified Mima.Vm.Instruction as Vm import qualified Mima.Vm.Instruction as Vm
@ -80,15 +73,3 @@ updateToken (TokenReg s addr reg) = TokenReg s addr <$> resolveReg addr reg
subphase4 :: Map.Map T.Text Vm.MimaAddress -> Phase2 'S3 s -> Weed (WeedError s) (Phase2 'S4 s) subphase4 :: Map.Map T.Text Vm.MimaAddress -> Phase2 'S3 s -> Weed (WeedError s) (Phase2 'S4 s)
subphase4 labelMap phase2 = runReaderT (traverse updateToken phase2) labelMap subphase4 labelMap phase2 = runReaderT (traverse updateToken phase2) labelMap
throughThePhases :: String -> IO (Phase2 'S4 Span)
throughThePhases name = do
text <- T.readFile name
let Right res1 = parse parsePhase1 name text
let Right s1 = runWeed $ subphase1 res1
let Right s2 = runWeed $ subphase2 s1
_ <- traverse print s2
putStrLn "HEY"
let Right (s3, m, _) = runWeed $ subphase3 s2
let Right s4 = runWeed $ subphase4 m s3
pure s4