# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1084918165 0
# Node ID 97c2d7314ac275b8befe35abc8060a9ce605f57b
# Parent  4401083a1583bfdc4f068ebaf5284a2e808b9e9d
(create_child): Use INTMASK.

diff -r 4401083a1583 -r 97c2d7314ac2 src/w32proc.c
--- a/src/w32proc.c	Tue May 18 20:26:26 2004 +0000
+++ b/src/w32proc.c	Tue May 18 22:09:25 2004 +0000
@@ -1,5 +1,5 @@
 /* Process support for GNU Emacs on the Microsoft W32 API.
-   Copyright (C) 1992, 1995, 1999, 2000, 2001 Free Software Foundation, Inc.
+   Copyright (C) 1992, 95, 99, 2000, 01, 04  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -367,7 +367,7 @@
     cp->pid = -cp->pid;
 
   /* pid must fit in a Lisp_Int */
-  cp->pid = XUINT (make_number (cp->pid));
+  cp->pid = cp->pid & INTMASK;
 
   *pPid = cp->pid;