comparison src/ntproc.c @ 357:4711e16a8e49 r21-1-8

Import from CVS: tag r21-1-8
author cvs
date Mon, 13 Aug 2007 10:57:04 +0200
parents 7c94d56991e1
children a4f53d9b3154
comparison
equal deleted inserted replaced
356:e85f639a32f3 357:4711e16a8e49
381 CloseHandle (cp->procinfo.hThread); 381 CloseHandle (cp->procinfo.hThread);
382 CloseHandle (cp->procinfo.hProcess); 382 CloseHandle (cp->procinfo.hProcess);
383 cp->procinfo.hThread=NULL; 383 cp->procinfo.hThread=NULL;
384 cp->procinfo.hProcess=NULL; 384 cp->procinfo.hProcess=NULL;
385 385
386 /* Hack for Windows 95, which assigns large (ie negative) pids */
387 if (cp->pid < 0)
388 cp->pid = -cp->pid;
389
390 /* pid must fit in a Lisp_Int */ 386 /* pid must fit in a Lisp_Int */
391 #ifdef USE_UNION_TYPE 387
392 cp->pid = (cp->pid & ((1U << VALBITS) - 1));
393 #else
394 cp->pid = (cp->pid & VALMASK);
395 #endif
396 388
397 *pPid = cp->pid; 389 *pPid = cp->pid;
398 390
399 return TRUE; 391 return TRUE;
400 392