Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Renaming symbols in desugar, removed incorrect comment in emits

Browse source
This commit is contained in:
sebastianselander 2023-05-05 11:43:17 +02:00
parent fe25f18eb7
commit 747de6a34e
2 changed files with 31 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Codegen/Emits.hs
View file

@ -15,6 +15,7 @@ import Data.Coerce (coerce)
import Data.Map qualified as Map
import Data.Maybe (fromJust, fromMaybe)
import Data.Tuple.Extra (dupe, first, second)
import Debug.Trace (traceShow)
import Monomorphizer.MonomorphizerIr as MIR
import TypeChecker.TypeCheckerIr qualified as TIR
@ -268,7 +269,6 @@ emitECased t e cases = do
emitCases rt ty label stackPtr vs (Branch (MIR.PEnum (TIR.Ident "False"), _) exp) = do
emitCases rt ty label stackPtr vs (Branch (MIR.PLit (MIR.LInt 0, TLit "Bool"), t) exp)
emitCases rt ty label stackPtr vs (Branch (MIR.PEnum consId, _) exp) = do
-- //TODO Penum wrong, acts as a catch all
emit $ Comment "Penum"
cons <- gets constructors
let r = fromJust $ Map.lookup consId cons