changeset 55674:97c2d7314ac2

(create_child): Use INTMASK.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 18 May 2004 22:09:25 +0000
parents 4401083a1583
children 506ecef6bbf8
files src/w32proc.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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;