diff options
Diffstat (limited to 'src/w32.c')
| -rw-r--r-- | src/w32.c | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/src/w32.c b/src/w32.c index 296729a0e0b..b421667e241 100644 --- a/src/w32.c +++ b/src/w32.c @@ -6544,7 +6544,6 @@ global_memory_status_ex (MEMORY_STATUS_EX *buf) Lisp_Object list_system_processes (void) { - struct gcpro gcpro1; Lisp_Object proclist = Qnil; HANDLE h_snapshot; @@ -6556,8 +6555,6 @@ list_system_processes (void) DWORD proc_id; BOOL res; - GCPRO1 (proclist); - proc_entry.dwSize = sizeof (PROCESSENTRY32); for (res = process32_first (h_snapshot, &proc_entry); res; res = process32_next (h_snapshot, &proc_entry)) @@ -6567,7 +6564,6 @@ list_system_processes (void) } CloseHandle (h_snapshot); - UNGCPRO; proclist = Fnreverse (proclist); } @@ -6696,7 +6692,6 @@ process_times (HANDLE h_proc, Lisp_Object *ctime, Lisp_Object *etime, Lisp_Object system_process_attributes (Lisp_Object pid) { - struct gcpro gcpro1, gcpro2, gcpro3; Lisp_Object attrs = Qnil; Lisp_Object cmd_str, decoded_cmd, tem; HANDLE h_snapshot, h_proc; @@ -6728,8 +6723,6 @@ system_process_attributes (Lisp_Object pid) h_snapshot = create_toolhelp32_snapshot (TH32CS_SNAPPROCESS, 0); - GCPRO3 (attrs, decoded_cmd, tem); - if (h_snapshot != INVALID_HANDLE_VALUE) { PROCESSENTRY32 pe; @@ -6771,10 +6764,7 @@ system_process_attributes (Lisp_Object pid) } if (!found_proc) - { - UNGCPRO; - return Qnil; - } + return Qnil; h_proc = OpenProcess (PROCESS_QUERY_INFORMATION | PROCESS_VM_READ, FALSE, proc_id); @@ -6991,7 +6981,6 @@ system_process_attributes (Lisp_Object pid) if (h_proc) CloseHandle (h_proc); - UNGCPRO; return attrs; } |