From 679e7f083e69c45756f277108dd9035067c7fcc5 Mon Sep 17 00:00:00 2001 From: hallgren <hallgren> Date: Mon, 2 Aug 1993 20:20:35 +0000 Subject: [PATCH] Fixed errors in last checkin (fixing getrusage) and added getpagesize. --- lisp/hpux-os.c | 24 +++++++++++++++--------- 1 file changed, 15 insertions(+), 9 deletions(-) diff --git a/lisp/hpux-os.c b/lisp/hpux-os.c index f9cd1114e..b144b0f40 100644 --- a/lisp/hpux-os.c +++ b/lisp/hpux-os.c @@ -1,5 +1,5 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hpux-os.c,v 1.2 1993/08/02 19:56:26 hallgren Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hpux-os.c,v 1.3 1993/08/02 20:20:35 hallgren Exp $ * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. @@ -318,15 +318,15 @@ getrusage(int who,struct rusage *rusage) return; } if(who == RUSAGE_SELF) { - rusage.ru_utime.tv_sec=buf.tms_utime/clk_tck; - rusage.ru_utime.tv_usec=(buf.tms_utime%clk) * 100000; - rusage.ru_stime.tv_sec=buf.tms_stime/clk_tck; - rusage.ru_stime.tv_usec=(buf.tms_stime%clk_tck) * 100000; + rusage->ru_utime.tv_sec=buf.tms_utime/clk_tck; + rusage->ru_utime.tv_usec=(buf.tms_utime%clk_tck) * 100000; + rusage->ru_stime.tv_sec=buf.tms_stime/clk_tck; + rusage->ru_stime.tv_usec=(buf.tms_stime%clk_tck) * 100000; } else if(who == RUSAGE_CHILDREN) { - rusage.ru_utime.tv_sec=buf.tms_cutime/clk_tck; - rusage.ru_utime.tv_usec=(buf.tms_cutime%clk) * 100000; - rusage.ru_stime.tv_sec=buf.tms_cstime/clk_tck; - rusage.ru_stime.tv_usec=(buf.tms_cstime%clk_tck) * 100000; + rusage->ru_utime.tv_sec=buf.tms_cutime/clk_tck; + rusage->ru_utime.tv_usec=(buf.tms_cutime%clk_tck) * 100000; + rusage->ru_stime.tv_sec=buf.tms_cstime/clk_tck; + rusage->ru_stime.tv_usec=(buf.tms_cstime%clk_tck) * 100000; } } @@ -365,3 +365,9 @@ gethostid(void) return addr; } + +int +getpagesize(void) +{ + return os_vm_page_size; +} -- GitLab