gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-04-22 16:33:29 +00:00
Code Issues Projects Releases Packages Wiki Activity

Patch for Solaris 2.4. Use times() instead of getrusage(). (Patch

Browse source 
from Stephen Peters <speters@us.oracle.com>)


git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@21 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Andrew McCallum 1994-11-08 19:47:22 +00:00
parent 665a565c02
commit 010386a9b9
1 changed files with 29 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
Source/Time.m
View file

@ -30,6 +30,10 @@
#include <ucbinclude/sys/resource.h>
#endif
#if (sun && __svr4__) /* solaris */
#include <sys/times.h>
#endif
/* There are several places where I need to deal with tz more intelligently */
/* I should allow customization of a strftime() format string for printing. */
@ -92,6 +96,20 @@ id monthNames;
+ (long) millisecondsToRun: (void(*)())aFunc
{
#if (sun && __svr4__)
/* As of Solaris 2.4, getrusage is not supported with the system libraries
or with multi-threaded applications. Thus, we use the times() call
instead. */
struct tms start_tms, end_tms;
times(&start_tms);
(*aFunc)();
times(&end_tms);
/* CLK_TCK is the number of clock ticks each second */
return ((long)((end_tms.tms_utime - start_tms.tms_utime +
end_tms.tms_stime - start_tms.tms_stime) * 1000) / CLK_TCK);
#else
struct rusage start_ru, end_ru;
getrusage(RUSAGE_SELF, &start_ru);
@ -99,26 +117,30 @@ id monthNames;
getrusage(RUSAGE_SELF, &end_ru);
return ((end_ru.ru_utime.tv_sec - start_ru.ru_utime.tv_sec +
end_ru.ru_stime.tv_sec - start_ru.ru_stime.tv_sec) * 1000 +
/* xxx disabled for now; not needed? */
#if 0 && (sun && __svr4__) /* xxx A hack for solaris */
(end_ru.ru_utime.tv_nsec - start_ru.ru_utime.tv_nsec +
end_ru.ru_stime.tv_nsec - start_ru.ru_stime.tv_nsec) / 1000000);
#else
(end_ru.ru_utime.tv_usec - start_ru.ru_utime.tv_usec +
end_ru.ru_stime.tv_usec - start_ru.ru_stime.tv_usec) / 1000);
#endif
#endif /* solaris */
/* should add a warning on overflow. */
}
+ getSeconds: (long *)sec microseconds: (long *)usec toRun: (void(*)())aFunc
{
#if (sun && __svr4__) /* solaris */
struct tms start_tms, end_tms;
#else
struct rusage start_ru, end_ru;
#endif /* solaris */
[self notImplemented:_cmd];
#if (sun && __svr4__) /* solaris */
times(&start_tms);
(*aFunc)();
times(&end_tms);
#else
getrusage(RUSAGE_SELF, &start_ru);
(*aFunc)();
getrusage(RUSAGE_SELF, &end_ru);
#endif /* solaris */
return self;
}