}
#else /* not NO_LIM_DATA */
+#if defined (HAVE_GETRLIMIT) && defined (RLIMIT_AS)
+static void
+get_lim_data ()
+{
+ struct rlimit rlimit;
+
+ getrlimit (RLIMIT_AS, &rlimit);
+ if (rlimit.rlim_cur == RLIM_INFINITY)
+ lim_data = -1;
+ else
+ lim_data = rlimit.rlim_cur;
+}
+
+#else /* not HAVE_GETRLIMIT */
+
#ifdef USG
static void
#endif /* BSD4_2 */
#endif /* not WINDOWSNT */
#endif /* not USG */
+#endif /* not HAVE_GETRLIMIT */
#endif /* not NO_LIM_DATA */
\f
/* Verify amount of memory available, complaining if we're near the end. */
unsigned long data_size;
enum warnlevel new_warnlevel;
- /* Cygwin has a faulty getrlimit implementation:
- http://lists.gnu.org/archive/html/emacs-devel/2008-08/msg00125.html */
-#if defined (HAVE_GETRLIMIT) && ! defined (CYGWIN)
- struct rlimit rlimit;
-
- getrlimit (RLIMIT_AS, &rlimit);
- if (RLIM_INFINITY == rlimit.rlim_max
- /* This is a nonsensical case, but it happens -- rms. */
- || rlimit.rlim_cur > rlimit.rlim_max)
- return;
- five_percent = rlimit.rlim_max / 20;
- data_size = rlimit.rlim_cur;
-
-#else /* not HAVE_GETRLIMIT */
-
if (lim_data == 0)
get_lim_data ();
five_percent = lim_data / 20;
cp = (char *) (*__morecore) (0);
data_size = (char *) cp - (char *) data_space_start;
-#endif /* not HAVE_GETRLIMIT */
-
if (!warn_function)
return;
warnlevel = warned_85;
}
-#if ! defined (HAVE_GETRLIMIT) || defined (CYGWIN)
if (EXCEEDS_LISP_PTR (cp))
(*warn_function) ("Warning: memory in use exceeds lisp pointer size");
-#endif
}
\f
/* Enable memory usage warnings.