comparison src/w32.c @ 97371:23de3091fdd0

(process_times): Fix the case of System process.

97370:758f38fd4cba

  *stime = ltime (stime_sec, stime_usec);
  tem2 = convert_time_raw (ft_user) * 0.1L;
  utime_usec = fmodl (tem2, 1000000.0L);
  utime_sec = tem2 * 0.000001L;
  *utime = ltime (utime_sec, utime_usec);
  tem = (convert_time_raw (ft_creation) - utc_base) * 0.1L;
  ctime_usec = fmodl (tem, 1000000.0L);
  ctime_sec = tem * 0.000001L;
  *ctime = ltime (ctime_sec, ctime_usec);
  tem = (convert_time_raw (ft_current) - utc_base) * 0.1L - tem;
  etime_usec = fmodl (tem, 1000000.0L);
  etime_sec = tem * 0.000001L;
  *etime = ltime (etime_sec, etime_usec);

  *pcpu = 100.0 * (tem1 + tem2) / tem;
}

Lisp_Object
w32_system_process_attributes (pid)
     Lisp_Object pid;

97371:23de3091fdd0

  *stime = ltime (stime_sec, stime_usec);
  tem2 = convert_time_raw (ft_user) * 0.1L;
  utime_usec = fmodl (tem2, 1000000.0L);
  utime_sec = tem2 * 0.000001L;
  *utime = ltime (utime_sec, utime_usec);
  tem = convert_time_raw (ft_creation);
  /* Process no 4 (System) returns zero creation time.  */
  if (tem)
    tem = (tem - utc_base) * 0.1;
  ctime_usec = fmodl (tem, 1000000.0L);
  ctime_sec = tem * 0.000001L;
  *ctime = ltime (ctime_sec, ctime_usec);
  if (tem)
    tem = (convert_time_raw (ft_current) - utc_base) * 0.1L - tem;
  etime_usec = fmodl (tem, 1000000.0L);
  etime_sec = tem * 0.000001L;
  *etime = ltime (etime_sec, etime_usec);

  if (tem)
    {
      *pcpu = 100.0 * (tem1 + tem2) / tem;
      if (*pcpu > 100)
	*pcpu = 100.0;
    }
  else
    *pcpu = 0;

  return 1;
}

Lisp_Object
w32_system_process_attributes (pid)
     Lisp_Object pid;