haskell: get address of a haskell function (at runtime)

.gitignore

*.hi
*_stub.h
*.o
main

README

http://stackoverflow.com/questions/10967598/get-the-address-of-a-function-without-ffi

ffi.c

void func(void);

unsigned long getFuncAddr(void)
{
	return (unsigned long) func;
}

main.hs

{-# LANGUAGE ForeignFunctionInterface #-}
module Main where

import Foreign
import Foreign.C.Types
import Text.Printf

foreign import ccall "getFuncAddr"
  getFuncAddr :: CULong

main :: IO ()
main = do
  printf "0x%016x\n" (fromIntegral getFuncAddr :: Word64)

foreign export ccall func :: IO ()
func :: IO ()
func = do
  printf "hello world\n"

Makefile

all: main
	./$<
	objdump -D $< | grep '<func>'

main: main.hs ffi.c
	ghc --make -O2 $^ -o $@