🚀 go-pugleaf

GNU Emacs 19.27.2 (alpha-dec-osf2.0, X toolkit) of Fri Sep 16 1994 on kitt.tekla.fi

	Here's a patch for getloadavg() on OSF_ALPHA. They might be
	The Right Thing on OSF_MIPS also, but I have no access to such
	machine, so I can't check it.

	jtp

I want a WESSON OIL lease!!


*** getloadavg.c.orig   Fri Sep 16 14:08:32 1994
--- getloadavg.c        Fri Sep 16 14:11:37 1994
***************
*** 149,154 ****
--- 149,155 ----
  
  #if defined (__osf__) && (defined (__alpha) || defined (__alpha__))
  #define OSF_ALPHA
+ #include <sys/table.h>
  #endif
  
  #if defined (__osf__) && (defined (mips) || defined (__mips__))
***************
*** 701,706 ****
--- 702,719 ----
         ? load_ave.tl_avenrun.d[0]
         : (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.  */