Hooks for the stuff in linker.c

git-svn-id: svn://svn.valgrind.org/vex/trunk@5

diff --git a/VEX/Linker.hs b/VEX/Linker.hs
new file mode 100644 (file)
index 0000000..0f4bc7a
--- /dev/null
+++ b/VEX/Linker.hs
@@ -0,0 +1,8 @@
+
+module Linker  ( linker )
+
+where
+
+foreign import ccall "linker_top_level" linker_top_level :: Int -> IO Int
+
+linker = linker_top_level