cvs commit: fptools/libraries/base/Data/Array Storable.hs

[Alastair Reid]

reid        2002/08/08 15:29:28 PDT

  Modified files:
    libraries/base/Data/Array Storable.hs 
  Log:
  Hugs provides makeForeignPtr instead of newForeignPtr.
  
  It is hoped that these macros overcome the difference.
  
  + #ifdef __HUGS__
  + #define MAKE_ARRAY(x) makeForeignPtr (x) free
  + #else
  + #define MAKE_ARRAY(x) newForeignPtr (x) (free (x))
  + #endif
  
  I could probably get away with introducing a Haskell functions instead
  of a macro..
  
  [Untested since Data.Array.Base requires the pattern guard extension
  so I can't load it.  Still, I think this will be ready to go once we
  fix D.A.B]
  
  Revision  Changes    Path
  1.6       +8 -2      fptools/libraries/base/Data/Array/Storable.hs