Mercurial > emacs

comparison src/data.c @ 50109:d23ab2416c49

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(long_to_cons): Fix type of top.
author Andreas Schwab <schwab@suse.de>
date Wed, 12 Mar 2003 23:46:41 +0000
parents 7931f73b31db
children 77bee06b14c5
comparison
equal deleted inserted replaced
50108:a9ff586d3d09 50109:d23ab2416c49
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.
6 6
7 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
2243 2243
2244 Lisp_Object 2244 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);
2252 if (top == (unsigned long)-1 >> 16) 2252 if (top == (unsigned long)-1 >> 16)
2253 return Fcons (make_number (-1), make_number (bot)); 2253 return Fcons (make_number (-1), make_number (bot));