X-Git-Url: https://git.lukelau.me/?p=kaleidoscope-hs.git;a=blobdiff_plain;f=Main.hs;fp=Main.hs;h=2a5a7e0fbc6c490b0d90af2da2e54a843138341f;hp=f32003bdd2dbb48eba325526bf1849444fd1d09d;hb=795fc872e603cc359ec6e307969ac925c3b5dc4d;hpb=cd0347585b7a03941baad82b4f2ed6deb8ff78f4

diff --git a/Main.hs b/Main.hs
index f32003b..2a5a7e0 100644
--- a/Main.hs
+++ b/Main.hs
@@ -7,6 +7,7 @@ import Control.Monad.IO.Class
 import Data.String
 import qualified Data.Map as Map
 import qualified Data.Text.Lazy.IO as Text
+import LLVM.AST.AddrSpace
 import LLVM.AST.Constant
 import LLVM.AST.Float
 import LLVM.AST.FloatingPointPredicate hiding (False, True)
@@ -80,3 +81,12 @@ buildExpr (BinOp op a b) = do
                   K.Cmp LT -> fcmp OLT
                   K.Cmp GT -> fcmp OGT
                   K.Cmp EQ -> fcmp OEQ
+
+buildExpr (Call callee params) = do
+  paramOps <- mapM buildExpr params
+  let nam = fromString callee
+      -- get a pointer to the function
+      typ = FunctionType Type.double (replicate (length params) Type.double) False
+      ptrTyp = Type.PointerType typ (AddrSpace 0)
+      ref = GlobalReference ptrTyp nam
+  call (ConstantOperand ref) (zip paramOps (repeat []))