x86 NCG bug with stdcall f.i. "wrapper"
Original message from Sven Panne:
HOpenGL did it once again... :-} The NCG for x86
doesn't honour the calling convention for "wrappers":
-- example module ------------------------------------
module CB where
import Foreign.C.Types ( CInt )
import Foreign.Ptr ( FunPtr )
type Callback = CInt -> IO ()
foreign import ccall "wrapper" makeCallback1 ::
Callback -> IO (FunPtr Callback)
foreign import stdcall "wrapper" makeCallback2 ::
Callback -> IO (FunPtr Callback)
-- shell transcript ----------------------------------
$ rm -f *.o ; ghc -c -fffi CB.hs ; nm *.o|grep _CB_d
U _CB_dS1
U _CB_dS2 <= !!!!!!!!!! @8 is missing
00000008 T _CB_dS1
00000070 T _CB_dS2@8
$ rm -f *.o ; ghc -c -fffi CB.hs -O ; nm *.o|grep
_CB_d
U _CB_dUu@8
U _CB_dUv
00000070 T _CB_dUu@8
------------------------------------------------------
I'd be grateful if this would be be fixed for the next
patchlevel release.
Cheers,
S.
Trac metadata
Trac field |
Value |
Version |
5.04 |
Type |
Bug |
TypeOfFailure |
OtherFailure |
Priority |
normal |
Resolution |
ResolvedFixed |
Component |
Compiler (FFI) |
Test case |
|
Differential revisions |
|
BlockedBy |
|
Related |
|
Blocking |
|
CC |
|
Operating system |
|
Architecture |
|