diff options
| author | Andreas Schwab | 2003-03-12 23:46:41 +0000 |
|---|---|---|
| committer | Andreas Schwab | 2003-03-12 23:46:41 +0000 |
| commit | 9bc7166b125412b7ca7ed533ec59322c23521d63 (patch) | |
| tree | d376bef2e1e882c017ccb7027a8ece8f39ce38a6 /src/data.c | |
| parent | d930143556f4dcc28eb5c771dd2c19be73c7df75 (diff) | |
| download | emacs-9bc7166b125412b7ca7ed533ec59322c23521d63.tar.gz emacs-9bc7166b125412b7ca7ed533ec59322c23521d63.zip | |
(long_to_cons): Fix type of top.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index f3157b33364..2c7442c61aa 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter. | 1 | /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter. |
| 2 | Copyright (C) 1985,86,88,93,94,95,97,98,99, 2000, 2001 | 2 | Copyright (C) 1985,86,88,93,94,95,97,98,99, 2000, 2001, 2003 |
| 3 | Free Software Foundation, Inc. | 3 | Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | This file is part of GNU Emacs. | 5 | This file is part of GNU Emacs. |
| @@ -2245,7 +2245,7 @@ Lisp_Object | |||
| 2245 | long_to_cons (i) | 2245 | long_to_cons (i) |
| 2246 | unsigned long i; | 2246 | unsigned long i; |
| 2247 | { | 2247 | { |
| 2248 | unsigned int top = i >> 16; | 2248 | unsigned long top = i >> 16; |
| 2249 | unsigned int bot = i & 0xFFFF; | 2249 | unsigned int bot = i & 0xFFFF; |
| 2250 | if (top == 0) | 2250 | if (top == 0) |
| 2251 | return make_number (bot); | 2251 | return make_number (bot); |