X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=include%2FHsBase.h;h=f15fc83aafa06d533791028b1a1db4d822eea02b;hb=a0edfd924f34dc719d90e1564de800a318d918f8;hp=1d4d3d948dd54f7295897f354eb803c49bc0b84c;hpb=74a183eea405edd37475917a952c87165eba758f;p=haskell-directory.git diff --git a/include/HsBase.h b/include/HsBase.h index 1d4d3d9..f15fc83 100644 --- a/include/HsBase.h +++ b/include/HsBase.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: HsBase.h,v 1.6 2002/03/26 23:50:56 sof Exp $ + * $Id: HsBase.h,v 1.7 2002/04/02 15:33:34 sof Exp $ * * (c) The University of Glasgow 2001-2002 * @@ -179,9 +179,11 @@ StgWord64 stg_integerToWord64 (StgInt sa, StgByteArray /* Really: mp_limb_t* */ #define INLINE extern inline #endif +#if !defined(mingw32_TARGET_OS) INLINE int __hscore_sigaddset( sigset_t * set, int s ) { return sigaddset(set,s); } +#endif INLINE int __hscore_s_isreg(m) { return S_ISREG(m); } INLINE int __hscore_s_isdir(m) { return S_ISDIR(m); }