comparison src/ntproc.c @ 432:3a7e78e1142d r21-2-24

Import from CVS: tag r21-2-24
author cvs
date Mon, 13 Aug 2007 11:29:58 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
comparison
equal deleted inserted replaced
431:a97165e56215 432:3a7e78e1142d
443 CloseHandle (cp->procinfo.hThread); 443 CloseHandle (cp->procinfo.hThread);
444 CloseHandle (cp->procinfo.hProcess); 444 CloseHandle (cp->procinfo.hProcess);
445 cp->procinfo.hThread=NULL; 445 cp->procinfo.hThread=NULL;
446 cp->procinfo.hProcess=NULL; 446 cp->procinfo.hProcess=NULL;
447 447
448 /* Hack for Windows 95, which assigns large (ie negative) pids */
449 if (cp->pid < 0)
450 cp->pid = -cp->pid;
451
452 /* pid must fit in a Lisp_Int */ 448 /* pid must fit in a Lisp_Int */
453 #ifdef USE_UNION_TYPE 449
454 cp->pid = (cp->pid & ((1U << VALBITS) - 1));
455 #else
456 cp->pid = (cp->pid & VALMASK);
457 #endif
458 450
459 *pPid = cp->pid; 451 *pPid = cp->pid;
460 452
461 return TRUE; 453 return TRUE;
462 454