Return to m-tahoe.h CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / src

Annotation of 43BSD/contrib/emacs/src/m-tahoe.h, revision 1.1.1.1

1.1       root        1: /* m- file for tahoe.
                      2:    Copyright (C) 1985 Richard M. Stallman.
                      3: 
                      4: This file is part of GNU Emacs.
                      5: 
                      6: GNU Emacs is distributed in the hope that it will be useful,
                      7: but WITHOUT ANY WARRANTY.  No author or distributor
                      8: accepts responsibility to anyone for the consequences of using it
                      9: or for whether it serves any particular purpose or works at all,
                     10: unless he says so in writing.  Refer to the GNU Emacs General Public
                     11: License for full details.
                     12: 
                     13: Everyone is granted permission to copy, modify and redistribute
                     14: GNU Emacs, but only under the conditions described in the
                     15: GNU Emacs General Public License.   A copy of this license is
                     16: supposed to have been given to you along with GNU Emacs so you
                     17: can know your rights and responsibilities.  It should be in a
                     18: file named COPYING.  Among other things, the copyright notice
                     19: and this notice must be preserved on all copies.  */
                     20: 
                     21: 
                     22: /* The following three symbols give information on
                     23:  the size of various data types.  */
                     24: 
                     25: #define SHORTBITS 16           /* Number of bits in a short */
                     26: 
                     27: #define INTBITS 32             /* Number of bits in an int */
                     28: 
                     29: #define LONGBITS 32            /* Number of bits in a long */
                     30: 
                     31: /* lowest-numbered byte is most significant */
                     32: 
                     33: #define BIG_ENDIAN
                     34: 
                     35: /* XINT must explicitly sign-extend */
                     36: 
                     37: #define EXPLICIT_SIGN_EXTEND
                     38: 
                     39: /* Define how to take a char and sign-extend into an int.
                     40:    On machines where char is signed, this is a no-op.  */
                     41: 
                     42: #define SIGN_EXTEND_CHAR(c) (c)
                     43: 
                     44: /* Say this machine is a tahoe */
                     45: 
                     46: #ifndef tahoe
                     47: #define tahoe
                     48: #endif /* not tahoe */
                     49: 
                     50: /* Use type int rather than a union, to represent Lisp_Object */
                     51: 
                     52: #define NO_UNION_TYPE
                     53: 
                     54: /* Data type of load average, as read out of kmem.  */
                     55: 
                     56: #define LOAD_AVE_TYPE double
                     57: 
                     58: /* Convert that into an integer that is 100 for a load average of 1.0  */
                     59: 
                     60: #define LOAD_AVE_CVT(x) ((int) ((x) * 100.0))
                     61: 
                     62: /* This triggers some stuff to avoid a compiler bug */
                     63: 
                     64: #define TAHOE_REGISTER_BUG

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.