From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 May 2004 22:09:25 +0000 (+0000)
Subject: (create_child): Use INTMASK.
X-Git-Tag: ttn-vms-21-2-B4~6150
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=acba5cae3e7cfadd80c89e8a22860113504d1379;p=emacs.git

(create_child): Use INTMASK.
---

diff --git a/src/w32proc.c b/src/w32proc.c
index 842869726df..8452337f7e2 100644
--- a/src/w32proc.c
+++ b/src/w32proc.c
@@ -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 @@ create_child (char *exe, char *cmdline, char *env, int is_gui_app,
     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;