diff options
| author | Paul Eggert | 2012-06-23 09:44:45 -0700 |
|---|---|---|
| committer | Paul Eggert | 2012-06-23 09:44:45 -0700 |
| commit | db7b8d066d675f326a9f2cce7dfd54fbbbeb88a0 (patch) | |
| tree | 146c95f8ea5deb90ebb2181ef46d26fecb7b3895 | |
| parent | dc5d230cac26a7ad04afd63bfc8db7c3df529fba (diff) | |
| download | emacs-db7b8d066d675f326a9f2cce7dfd54fbbbeb88a0.tar.gz emacs-db7b8d066d675f326a9f2cce7dfd54fbbbeb88a0.zip | |
* sysdep.c [__FreeBSD__]: Fix more recently-introduced typos.
Privately reported by Herbert J. Skuhra.
(make_lisp_timeval) [__FreeBSD__]: Rename from TIMELIST.
All uses changed.
(system_process_attributes) [__FreeBSD__]: Invoke make_lisp_time,
not make_lisp_timeval, when the argument is of type EMACS_TIME.
| -rw-r--r-- | src/ChangeLog | 9 | ||||
| -rw-r--r-- | src/sysdep.c | 24 |
2 files changed, 24 insertions, 9 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index b23e92057b0..223d9c4bd13 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,12 @@ | |||
| 1 | 2012-06-23 Paul Eggert <eggert@cs.ucla.edu> | ||
| 2 | |||
| 3 | * sysdep.c [__FreeBSD__]: Fix more recently-introduced typos. | ||
| 4 | Privately reported by Herbert J. Skuhra. | ||
| 5 | (make_lisp_timeval) [__FreeBSD__]: Rename from TIMELIST. | ||
| 6 | All uses changed. | ||
| 7 | (system_process_attributes) [__FreeBSD__]: Invoke make_lisp_time, | ||
| 8 | not make_lisp_timeval, when the argument is of type EMACS_TIME. | ||
| 9 | |||
| 1 | 2012-06-23 Eli Zaretskii <eliz@gnu.org> | 10 | 2012-06-23 Eli Zaretskii <eliz@gnu.org> |
| 2 | 11 | ||
| 3 | * w32proc.c (Fw32_get_locale_info): Fix an off-by-one error in | 12 | * w32proc.c (Fw32_get_locale_info): Fix an off-by-one error in |
diff --git a/src/sysdep.c b/src/sysdep.c index 875f343135e..42f53a75e9d 100644 --- a/src/sysdep.c +++ b/src/sysdep.c | |||
| @@ -3116,7 +3116,7 @@ timeval_to_EMACS_TIME (struct timeval t) | |||
| 3116 | } | 3116 | } |
| 3117 | 3117 | ||
| 3118 | static Lisp_Object | 3118 | static Lisp_Object |
| 3119 | TIMELIST (struct timeval t) | 3119 | make_lisp_timeval (struct timeval t) |
| 3120 | { | 3120 | { |
| 3121 | return make_lisp_time (timeval_to_EMACS_TIME (t)); | 3121 | return make_lisp_time (timeval_to_EMACS_TIME (t)); |
| 3122 | } | 3122 | } |
| @@ -3216,32 +3216,38 @@ system_process_attributes (Lisp_Object pid) | |||
| 3216 | attrs = Fcons (Fcons (Qcminflt, make_number (proc.ki_rusage_ch.ru_minflt)), attrs); | 3216 | attrs = Fcons (Fcons (Qcminflt, make_number (proc.ki_rusage_ch.ru_minflt)), attrs); |
| 3217 | attrs = Fcons (Fcons (Qcmajflt, make_number (proc.ki_rusage_ch.ru_majflt)), attrs); | 3217 | attrs = Fcons (Fcons (Qcmajflt, make_number (proc.ki_rusage_ch.ru_majflt)), attrs); |
| 3218 | 3218 | ||
| 3219 | attrs = Fcons (Fcons (Qutime, TIMELIST (proc.ki_rusage.ru_utime)), attrs); | 3219 | attrs = Fcons (Fcons (Qutime, make_lisp_timeval (proc.ki_rusage.ru_utime)), |
| 3220 | attrs = Fcons (Fcons (Qstime, TIMELIST (proc.ki_rusage.ru_stime)), attrs); | 3220 | attrs); |
| 3221 | attrs = Fcons (Fcons (Qstime, make_lisp_timeval (proc.ki_rusage.ru_stime)), | ||
| 3222 | attrs); | ||
| 3221 | EMACS_ADD_TIME (t, | 3223 | EMACS_ADD_TIME (t, |
| 3222 | timeval_to_EMACS_TIME (proc.ki_rusage.ru_utime), | 3224 | timeval_to_EMACS_TIME (proc.ki_rusage.ru_utime), |
| 3223 | timeval_to_EMACS_TIME (proc.ki_rusage.ru_stime)); | 3225 | timeval_to_EMACS_TIME (proc.ki_rusage.ru_stime)); |
| 3224 | attrs = Fcons (Fcons (Qtime, TIMELIST (t)), attrs); | 3226 | attrs = Fcons (Fcons (Qtime, make_lisp_time (t)), attrs); |
| 3225 | 3227 | ||
| 3226 | attrs = Fcons (Fcons (Qcutime, TIMELIST (proc.ki_rusage_ch.ru_utime)), attrs); | 3228 | attrs = Fcons (Fcons (Qcutime, |
| 3227 | attrs = Fcons (Fcons (Qcstime, TIMELIST (proc.ki_rusage_ch.ru_utime)), attrs); | 3229 | make_lisp_timeval (proc.ki_rusage_ch.ru_utime)), |
| 3230 | attrs); | ||
| 3231 | attrs = Fcons (Fcons (Qcstime, | ||
| 3232 | make_lisp_timeval (proc.ki_rusage_ch.ru_utime)), | ||
| 3233 | attrs); | ||
| 3228 | EMACS_ADD_TIME (t, | 3234 | EMACS_ADD_TIME (t, |
| 3229 | timeval_to_EMACS_TIME (proc.ki_rusage_ch.ru_utime), | 3235 | timeval_to_EMACS_TIME (proc.ki_rusage_ch.ru_utime), |
| 3230 | timeval_to_EMACS_TIME (proc.ki_rusage_ch.ru_stime)); | 3236 | timeval_to_EMACS_TIME (proc.ki_rusage_ch.ru_stime)); |
| 3231 | attrs = Fcons (Fcons (Qctime, TIMELIST (t)), attrs); | 3237 | attrs = Fcons (Fcons (Qctime, make_lisp_time (t)), attrs); |
| 3232 | 3238 | ||
| 3233 | attrs = Fcons (Fcons (Qthcount, make_fixnum_or_float (proc.ki_numthreads)), | 3239 | attrs = Fcons (Fcons (Qthcount, make_fixnum_or_float (proc.ki_numthreads)), |
| 3234 | attrs); | 3240 | attrs); |
| 3235 | attrs = Fcons (Fcons (Qpri, make_number (proc.ki_pri.pri_native)), attrs); | 3241 | attrs = Fcons (Fcons (Qpri, make_number (proc.ki_pri.pri_native)), attrs); |
| 3236 | attrs = Fcons (Fcons (Qnice, make_number (proc.ki_nice)), attrs); | 3242 | attrs = Fcons (Fcons (Qnice, make_number (proc.ki_nice)), attrs); |
| 3237 | attrs = Fcons (Fcons (Qstart, TIMELIST (proc.ki_start)), attrs); | 3243 | attrs = Fcons (Fcons (Qstart, make_lisp_timeval (proc.ki_start)), attrs); |
| 3238 | attrs = Fcons (Fcons (Qvsize, make_number (proc.ki_size >> 10)), attrs); | 3244 | attrs = Fcons (Fcons (Qvsize, make_number (proc.ki_size >> 10)), attrs); |
| 3239 | attrs = Fcons (Fcons (Qrss, make_number (proc.ki_rssize * pagesize >> 10)), | 3245 | attrs = Fcons (Fcons (Qrss, make_number (proc.ki_rssize * pagesize >> 10)), |
| 3240 | attrs); | 3246 | attrs); |
| 3241 | 3247 | ||
| 3242 | EMACS_GET_TIME (now); | 3248 | EMACS_GET_TIME (now); |
| 3243 | EMACS_SUB_TIME (t, now, timeval_to_EMACS_TIME (proc.ki_start)); | 3249 | EMACS_SUB_TIME (t, now, timeval_to_EMACS_TIME (proc.ki_start)); |
| 3244 | attrs = Fcons (Fcons (Qetime, TIMELIST (t)), attrs); | 3250 | attrs = Fcons (Fcons (Qetime, make_lisp_time (t)), attrs); |
| 3245 | 3251 | ||
| 3246 | len = sizeof fscale; | 3252 | len = sizeof fscale; |
| 3247 | if (sysctlbyname ("kern.fscale", &fscale, &len, NULL, 0) == 0) | 3253 | if (sysctlbyname ("kern.fscale", &fscale, &len, NULL, 0) == 0) |