Mercurial > emacs
view src/m/ibms390x.h @ 112318:deae5bb3f0f6
Give a name FLOAT_TO_STRING_BUFSIZE to the constant 350.
* lisp.h (FLOAT_TO_STRING_BUFSIZE): New macro.
* data.c (Fnumber_to_string): Use it.
* print.c (float_to_string, print_object): Likewise.
author | Paul Eggert <eggert@cs.ucla.edu> |
---|---|
date | Sun, 09 Jan 2011 00:21:21 -0800 |
parents | 2278399d2eb9 |
children | e567154bfaa7 417b1e4d63cd |
line wrap: on
line source
/* Machine description file for IBM S390 in 64-bit mode Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ #include "ibms390.h" #define BITS_PER_LONG 64 #define BITS_PER_EMACS_INT 64 /* Define the type to use. */ #define EMACS_INT long #define EMACS_UINT unsigned long /* On the 64 bit architecture, we can use 60 bits for addresses */ #define VALBITS 60 /* Define XPNTR to avoid or'ing with DATA_SEG_BITS */ #define XPNTR(a) XUINT (a) /* arch-tag: 4b87653c-6add-4663-8691-7d9dc17b5519 (do not change this comment) */