Permalink
Browse files

Added compilation of casts

  • Loading branch information...
1 parent 65d64fe commit a7850102e944ae5f8cda319405e538c979653345 @ktvoelker committed Apr 6, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −0 Compiler.hs
  2. +0 −2 todo.md
View
@@ -51,6 +51,8 @@ compileExpr e = case e of
[Return $ compileExpr e]) (map compileExpr bVals)
Hs.Case scru name _ alts -> compileCase scru name alts
Hs.Type _ -> ENative "T"
+ Hs.Cast e _ -> compileExpr e
+ _ -> undefined
compileCase :: Hs.Expr Hs.CoreBndr -> Hs.CoreBndr -> [Hs.Alt Hs.CoreBndr] -> Expr
compileCase scru name alts =
View
@@ -4,8 +4,6 @@ TODO
Compile data constructors
-Support casts in the compiler
-
Implement the native functions F and S
Start adding native libraries

0 comments on commit a785010

Please sign in to comment.