# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1047512801 0
# Node ID d23ab2416c49db1655367b30ff6c2cf7662e44f7
# Parent  a9ff586d3d0957e69aa19e2cac24d1691699bb44
(long_to_cons): Fix type of top.

diff -r a9ff586d3d09 -r d23ab2416c49 src/data.c
--- 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);