2 do_tms(TARG,gimme,arglast)
10 STR **st = stack->ary_array;
11 register int sp = arglast[0];
13 if (gimme != G_ARRAY) {
14 str_sset(TARG,&str_undef);
19 (void)times(×buf);
26 (void)astore(stack,++sp,
27 str_2mortal(str_nmake(((double)timesbuf.tms_utime)/HZ)));
28 (void)astore(stack,++sp,
29 str_2mortal(str_nmake(((double)timesbuf.tms_stime)/HZ)));
30 (void)astore(stack,++sp,
31 str_2mortal(str_nmake(((double)timesbuf.tms_cutime)/HZ)));
32 (void)astore(stack,++sp,
33 str_2mortal(str_nmake(((double)timesbuf.tms_cstime)/HZ)));
35 (void)astore(stack,++sp,
36 str_2mortal(str_nmake(0.0)));