From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Sep 1994 00:16:57 +0000 (+0000)
Subject: (getloadavg): Add OSF_ALPHA support.
X-Git-Tag: emacs-19.34~7038
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bbd619d769e0f033881cfd903309b1c447798770;p=emacs.git

(getloadavg): Add OSF_ALPHA support.
---

diff --git a/src/getloadavg.c b/src/getloadavg.c
index 0f730a7ab2b..e7804f02b98 100644
--- a/src/getloadavg.c
+++ b/src/getloadavg.c
@@ -149,6 +149,7 @@ extern int errno;
 
 #if defined (__osf__) && (defined (__alpha) || defined (__alpha__))
 #define OSF_ALPHA
+#include <sys/table.h>
 #endif
 
 #if defined (__osf__) && (defined (mips) || defined (__mips__))
@@ -702,6 +703,18 @@ getloadavg (loadavg, nelem)
        : (load_ave.tl_avenrun.l[0] / (double) load_ave.tl_lscale));
 #endif	/* OSF_MIPS */
 
+#if !defined (LDAV_DONE) && defined (OSF_ALPHA)
+#define LDAV_DONE
+
+  struct tbl_loadavg load_ave;
+  table (TBL_LOADAVG, 0, &load_ave, 1, sizeof (load_ave));
+  for (elem = 0; elem < nelem; elem++)
+    loadavg[elem]
+      = (load_ave.tl_lscale == 0
+       ? load_ave.tl_avenrun.d[elem]
+       : (load_ave.tl_avenrun.l[elem] / (double) load_ave.tl_lscale));
+#endif /* OSF_ALPHA */
+
 #if !defined (LDAV_DONE) && defined (VMS)
   /* VMS specific code -- read from the Load Ave driver.  */