Mercurial > emacs

comparison src/lisp.h @ 60897:0f9e0d897751

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make_number): Make prototype more precise.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 24 Mar 2005 19:53:53 +0000
parents 4a07536ef0de
children 4d082fa849ea 2006100ee57e 4da4a09e8b1b
comparison
equal deleted inserted replaced
60896:25e4a0f171b5 60897:0f9e0d897751
1 /* Fundamental definitions for GNU Emacs Lisp interpreter. 1 /* Fundamental definitions for GNU Emacs Lisp interpreter.
2 Copyright (C) 1985,86,87,93,94,95,97,98,1999,2000,01,02,03,2004 2 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2000,
3 Free Software Foundation, Inc. 3 2001, 2002, 2003, 2004, 2005 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
8 it under the terms of the GNU General Public License as published by 8 it under the terms of the GNU General Public License as published by
449 449
450 #if __GNUC__ >= 2 && defined (__OPTIMIZE__) 450 #if __GNUC__ >= 2 && defined (__OPTIMIZE__)
451 #define make_number(N) \ 451 #define make_number(N) \
452 (__extension__ ({ Lisp_Object _l; _l.s.val = (N); _l.s.type = Lisp_Int; _l; })) 452 (__extension__ ({ Lisp_Object _l; _l.s.val = (N); _l.s.type = Lisp_Int; _l; }))
453 #else 453 #else
454 extern Lisp_Object make_number (); 454 extern Lisp_Object make_number P_ ((EMACS_INT));
455 #endif 455 #endif
456 456
457 #define EQ(x, y) ((x).s.val == (y).s.val && (x).s.type == (y).s.type) 457 #define EQ(x, y) ((x).s.val == (y).s.val && (x).s.type == (y).s.type)
458 458
459 #endif /* NO_UNION_TYPE */ 459 #endif /* NO_UNION_TYPE */