projects
/
kaleidoscope-hs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Resolve symbols
[kaleidoscope-hs.git]
/
Main.hs
diff --git
a/Main.hs
b/Main.hs
index c2fff06f82a811a3cc789fc37a3836fb70fa5d26..64d73e60e0a059864222aec09f8b2ad0803adcfd 100644
(file)
--- a/
Main.hs
+++ b/
Main.hs
@@
-26,6
+26,7
@@
import LLVM.OrcJIT.CompileLayer
import LLVM.PassManager
import LLVM.Pretty
import LLVM.Target
import LLVM.PassManager
import LLVM.Pretty
import LLVM.Target
+import Numeric
import System.IO
import System.IO.Error
import Text.Read (readMaybe)
import System.IO
import System.IO.Error
import Text.Read (readMaybe)
@@
-53,7
+54,10
@@
main = do
-- This can eventually be used to resolve external functions, e.g. a stdlib call
symResolver :: MangledSymbol -> IO (Either JITSymbolError JITSymbol)
-- This can eventually be used to resolve external functions, e.g. a stdlib call
symResolver :: MangledSymbol -> IO (Either JITSymbolError JITSymbol)
-symResolver sym = undefined
+symResolver sym = do
+ ptr <- getSymbolAddressInProcess sym
+ putStrLn $ "Resolving " <> show sym <> " to 0x" <> showHex ptr ""
+ return (Right (JITSymbol ptr defaultJITSymbolFlags))
repl :: ModuleBuilderT (ReaderT JITEnv IO) ()
repl = do
repl :: ModuleBuilderT (ReaderT JITEnv IO) ()
repl = do