Confused by FFI

[Ian Lynagh]

I was expecting the Haskell program and C program attached to produce
the same results. However, as shown below, the C program gives identical
values for the two pointers whereas the Haskell program gives different
ones.

$ ./c
0x0804f050
0x0804f050
0
$ ./h
0x08084970
0x0807eba8
0

Does anyone know what is going on here?
Am I incorrectly using the FFI?


Thanks
Ian

-------------- next part --------------
A non-text attachment was scrubbed...
Name: foo.c
Type: text/x-csrc
Size: 172 bytes
Desc: not available
Url : http://www.haskell.org/pipermail/glasgow-haskell-bugs/attachments/20020708/74aa6ad9/foo.bin
-------------- next part --------------
\begin{code}
module Main (main) where

import Ptr
import CTypes

data Window = Window
type PWindow = Ptr Window

foreign import ccall unsafe "static ncurses.h initscr" initscr :: IO PWindow
foreign import ccall unsafe "static ncurses.h &stdscr" stdscr :: PWindow
foreign import ccall unsafe "static ncurses.h endwin" endwin :: IO CInt

main :: IO()
main = do w <- initscr
          r <- endwin
          putStrLn (show w)
          putStrLn (show stdscr)
          putStrLn (show r)
\end{code}

-------------- next part --------------

all:
	gcc -lcurses foo.c -o c
	ghc -Wall --make foo -o h -fglasgow-exts -package lang -lcurses

clean:
	rm -f c h *.o *.hi