summaryrefslogtreecommitdiff
path: root/src/dosfns.c
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2009-04-04 09:43:21 +0000
committerEli Zaretskii <eliz@gnu.org>2009-04-04 09:43:21 +0000
commit693a2698d98ab6e9be65802ed29a3f911d1a69ff (patch)
tree316b1a5d54ade766c1080003e715dfdd4bfa4412 /src/dosfns.c
parent99c87dcdb319f8e1ddd2ffea4d24e8de6e44d23c (diff)
downloademacs-693a2698d98ab6e9be65802ed29a3f911d1a69ff.tar.gz
(system_process_attributes) [SYSTEM_MALLOC]: Don't call ret_lim_data.
(Bug#2867)
Diffstat (limited to 'src/dosfns.c')
-rw-r--r--src/dosfns.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/dosfns.c b/src/dosfns.c
index 12c260e1c63..62594f1671f 100644
--- a/src/dosfns.c
+++ b/src/dosfns.c
@@ -571,7 +571,9 @@ system_process_attributes (Lisp_Object pid)
int i;
Lisp_Object cmd_str, decoded_cmd, tem;
double pmem;
+#ifndef SYSTEM_MALLOC
extern unsigned long ret_lim_data ();
+#endif
uid = getuid ();
attrs = Fcons (Fcons (Qeuid, make_fixnum_or_float (uid)), attrs);
@@ -604,8 +606,12 @@ system_process_attributes (Lisp_Object pid)
make_fixnum_or_float ((unsigned long)sbrk(0)/1024)),
attrs);
attrs = Fcons (Fcons (Qetime, tem), attrs);
+#ifndef SYSTEM_MALLOC
+ /* ret_lim_data is on vm-limit.c, which is not compiled in under
+ SYSTEM_MALLOC. */
pmem = (double)((unsigned long) sbrk (0)) / ret_lim_data () * 100.0;
if (pmem > 100)
+#endif
pmem = 100;
attrs = Fcons (Fcons (Qpmem, make_float (pmem)), attrs);
/* Pass 1: Count how much storage we need. */