changeset 50109:d23ab2416c49

(long_to_cons): Fix type of top.
author Andreas Schwab <schwab@suse.de>
date Wed, 12 Mar 2003 23:46:41 +0000
parents a9ff586d3d09
children b8c1a5c8f9c0
files src/data.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Wed Mar 12 23:28:03 2003 +0000
+++ b/src/data.c	Wed Mar 12 23:46:41 2003 +0000
@@ -1,5 +1,5 @@
 /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter.
-   Copyright (C) 1985,86,88,93,94,95,97,98,99, 2000, 2001
+   Copyright (C) 1985,86,88,93,94,95,97,98,99, 2000, 2001, 2003
    Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -2245,7 +2245,7 @@
 long_to_cons (i)
      unsigned long i;
 {
-  unsigned int top = i >> 16;
+  unsigned long top = i >> 16;
   unsigned int bot = i & 0xFFFF;
   if (top == 0)
     return make_number (bot);