1 files changed, 2 insertions, 2 deletions

diff --git a/src/sysdep.c b/src/sysdep.c
index a82f802a785..bf87fa2ff0b 100644
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -3107,8 +3107,8 @@ system_process_attributes (Lisp_Object pid)
           attrs = Fcons (Fcons (Qrss, make_fixnum_or_float (pinfo.pr_rssize)), attrs);
 
           /* pr_pctcpu and pr_pctmem are encoded as a fixed point 16 bit number in  [0 ... 1].  */
-          attrs = Fcons (Fcons (Qpcpu, (pinfo.pr_pctcpu * 100.0) / (double)0x8000), attrs);
-          attrs = Fcons (Fcons (Qpmem, (pinfo.pr_pctmem * 100.0) / (double)0x8000), attrs);
+          attrs = Fcons (Fcons (Qpcpu, make_float (100.0 / 0x8000 * pinfo.pr_pctcpu)), attrs);
+          attrs = Fcons (Fcons (Qpmem, make_float (100.0 / 0x8000 * pinfo.pr_pctmem)), attrs);
 
           decoded_cmd
             =  code_convert_string_norecord (make_unibyte_string (pinfo.pr_fname,