From: Ian Lynagh <igloo@earth.li>
Date: Tue, 20 May 2008 16:24:11 +0000 (+0000)
Subject: Add wrappers for [gs]etrlimit
X-Git-Tag: 2008-05-28~1
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4b593b28980c0d138b388a845c30df183442cc0d;p=ghc-base.git

Add wrappers for [gs]etrlimit
This is for #2038: macros are used in the Linux .h includes to redirect
to a 64-bit version when large file support is enabled.
---

diff --git a/include/HsBase.h b/include/HsBase.h
index 1f1837b..1992342 100644
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -691,6 +691,16 @@ INLINE int __hscore_mkstemp(char *filetemplate) {
     return (mkstemp(filetemplate));
 }
 
+#if !defined(__MINGW32__) && !defined(irix_HOST_OS)
+INLINE int __hscore_getrlimit(int resource, struct rlimit *rlim) {
+    return (getrlimit(resource, rlim));
+}
+
+INLINE int __hscore_setrlimit(int resource, struct rlimit *rlim) {
+    return (setrlimit(resource, rlim));
+}
+#endif
+
 // select-related stuff
 
 #if !defined(__MINGW32__)