(system_process_attributes): Compute Qtime and Qctime and add them to the alist.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/sysdep.c b/src/sysdep.c
index 18474c75b1b..1cf9890ecb8 100644
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -3493,12 +3493,18 @@ system_process_attributes (Lisp_Object pid)
           attrs = Fcons (Fcons (Qstime,
                                 ltime_from_jiffies (stime, clocks_per_sec)),
                          attrs);
+          attrs = Fcons (Fcons (Qtime,
+                                ltime_from_jiffies (stime+utime, clocks_per_sec)),
+                         attrs);
           attrs = Fcons (Fcons (Qcutime,
                                 ltime_from_jiffies (cutime, clocks_per_sec)),
                          attrs);
           attrs = Fcons (Fcons (Qcstime,
                                 ltime_from_jiffies (cstime, clocks_per_sec)),
                          attrs);
+          attrs = Fcons (Fcons (Qctime,
+                                ltime_from_jiffies (cstime+cutime, clocks_per_sec)),
+                         attrs);
           attrs = Fcons (Fcons (Qpri, make_number (priority)), attrs);
           attrs = Fcons (Fcons (Qnice, make_number (nice)), attrs);
           attrs = Fcons (Fcons (Qthcount, make_fixnum_or_float (thcount_eint)), attrs);