diff options
| author | simonmar <unknown> | 2005-03-24 09:27:20 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-03-24 09:27:20 +0000 |
| commit | 7f788ada6ceebd48d129a6a6c9375944fea83ff7 (patch) | |
| tree | 99c7a59e7877fec0d513bd64f5c9dc40e1795c02 /ghc/lib/compat/cbits | |
| parent | cf2c44b860f77127a95be322d832c1a73929753b (diff) | |
| download | haskell-7f788ada6ceebd48d129a6a6c9375944fea83ff7.tar.gz | |
[project @ 2005-03-24 09:27:20 by simonmar]
omit __hscore_getFolderPath if __GLASGOW_HASKELL__ < 604
Diffstat (limited to 'ghc/lib/compat/cbits')
| -rw-r--r-- | ghc/lib/compat/cbits/directory.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/lib/compat/cbits/directory.c b/ghc/lib/compat/cbits/directory.c index 1479a251df..79d6cd4d44 100644 --- a/ghc/lib/compat/cbits/directory.c +++ b/ghc/lib/compat/cbits/directory.c @@ -1,7 +1,7 @@ -#include "../../../includes/ghcconfig.h" - #include "HsFFI.h" +#include "../../../includes/ghcconfig.h" + #if HAVE_LIMITS_H #include <limits.h> #endif @@ -49,6 +49,7 @@ INLINE int __hscore_CSIDL_APPDATA() { return CSIDL_APPDATA; } INLINE int __hscore_CSIDL_WINDOWS() { return CSIDL_WINDOWS; } INLINE int __hscore_CSIDL_PERSONAL() { return CSIDL_PERSONAL; } +#if __GLASGOW_HASKELL__ < 604 /* * Function: __hscore_getFolderPath() * @@ -91,4 +92,5 @@ __hscore_getFolderPath(HWND hwndOwner, return (int)funcPtr(hwndOwner,nFolder,hToken,dwFlags,pszPath); /* ToDo: unload the DLL on shutdown? */ } +#endif /* __GLASGOW_HASKELL__ < 604 */ #endif |