diff options
Diffstat (limited to 'src/sysdep.c')
| -rw-r--r-- | src/sysdep.c | 20 |
1 files changed, 2 insertions, 18 deletions
diff --git a/src/sysdep.c b/src/sysdep.c index efc627e80b7..9b4bd088046 100644 --- a/src/sysdep.c +++ b/src/sysdep.c | |||
| @@ -2705,15 +2705,7 @@ system_process_attributes (Lisp_Object pid) | |||
| 2705 | struct gcpro gcpro1, gcpro2; | 2705 | struct gcpro gcpro1, gcpro2; |
| 2706 | 2706 | ||
| 2707 | CHECK_NUMBER_OR_FLOAT (pid); | 2707 | CHECK_NUMBER_OR_FLOAT (pid); |
| 2708 | if (FLOATP (pid)) | 2708 | CONS_TO_INTEGER (pid, pid_t, proc_id); |
| 2709 | { | ||
| 2710 | double v = XFLOAT_DATA (pid); | ||
| 2711 | if (! (TYPE_MINIMUM (pid_t) <= v && v < TYPE_MAXIMUM (pid_t) + 1.0)) | ||
| 2712 | return attrs; | ||
| 2713 | proc_id = v; | ||
| 2714 | } | ||
| 2715 | else | ||
| 2716 | proc_id = XINT (pid); | ||
| 2717 | sprintf (procfn, "/proc/%"pMd, proc_id); | 2709 | sprintf (procfn, "/proc/%"pMd, proc_id); |
| 2718 | if (stat (procfn, &st) < 0) | 2710 | if (stat (procfn, &st) < 0) |
| 2719 | return attrs; | 2711 | return attrs; |
| @@ -2978,15 +2970,7 @@ system_process_attributes (Lisp_Object pid) | |||
| 2978 | struct gcpro gcpro1, gcpro2; | 2970 | struct gcpro gcpro1, gcpro2; |
| 2979 | 2971 | ||
| 2980 | CHECK_NUMBER_OR_FLOAT (pid); | 2972 | CHECK_NUMBER_OR_FLOAT (pid); |
| 2981 | if (FLOATP (pid)) | 2973 | CONS_TO_INTEGER (pid, pid_t, proc_id); |
| 2982 | { | ||
| 2983 | double v = XFLOAT_DATA (pid); | ||
| 2984 | if (! (TYPE_MINIMUM (pid_t) <= v && v < TYPE_MAXIMUM (pid_t) + 1.0)) | ||
| 2985 | return attrs; | ||
| 2986 | proc_id = v; | ||
| 2987 | } | ||
| 2988 | else | ||
| 2989 | proc_id = XINT (v); | ||
| 2990 | sprintf (procfn, "/proc/%"pMd, proc_id); | 2974 | sprintf (procfn, "/proc/%"pMd, proc_id); |
| 2991 | if (stat (procfn, &st) < 0) | 2975 | if (stat (procfn, &st) < 0) |
| 2992 | return attrs; | 2976 | return attrs; |