Patch against current trunk attached. It is a one-liner, so I do not
believe anyone can claim copyright over it.

Cheers,

        Manuel.

BTW, bugs.r-project.org is painfully slow. I cannot login, I cannot post
messages, I cannot attach files. And it doesn't handle accents in my name.

--- sys-unix.c	2009-10-16 08:54:16.000000000 +0200
+++ sys-unix-fixed.c	2010-02-10 14:52:07.000000000 +0100
@@ -224,8 +224,8 @@ void R_getProcTime(double *data)
 	1e-3 * (self.ru_stime.tv_usec/1000);
     data[3] = (double) children.ru_utime.tv_sec +
 	1e-3 * (children.ru_utime.tv_usec/1000);
-    data[4] = (double) children.ru_utime.tv_sec +
-	1e-3 * (children.ru_utime.tv_usec/1000);
+    data[4] = (double) children.ru_stime.tv_sec +
+	1e-3 * (children.ru_stime.tv_usec/1000);
 #else
     data[0] = rround(timeinfo.tms_utime / clk_tck, 3);
     data[1] = rround(timeinfo.tms_stime / clk_tck, 3);

______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel

Reply via email to