[cvs-nhc98] cvs commit: nhc98/src/compiler98 Foreign.hs

[Sven Panne]

panne       2004/06/12 07:20:42 PDT

  Modified files:
    src/compiler98       Foreign.hs 
  Log:
  Fixed prototype generation for functions returning a FunPtr, e.g.:
  
     foreign import ccall unsafe "foo" foo :: CString -> IO (FunPtr a)
  
  The former prototype was:
  
     extern NodePtr(*)() foo(void*);
  
  but this is not really C, we want:
  
     extern NodePtr(*foo(void*))();
  
  The fix could probably need some review & cleanup => Malcolm? :-)
  
  Revision  Changes    Path
  1.27      +6 -0      nhc98/src/compiler98/Foreign.hs