src/m/orion.h

   1 /* machine description file for HLH Orion.
   2    Copyright (C) 1985 Free Software Foundation, Inc.
   3
   4 This file is part of GNU Emacs.
   5
   6 GNU Emacs is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2, or (at your option)
   9 any later version.
  10
  11 GNU Emacs is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Emacs; see the file COPYING.  If not, write to
  18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19
  20
  21 /* The following line tells the configuration script what sort of
  22    operating system this machine is likely to run.
  23    USUAL-OPSYS="bsd4-2"  */
  24
  25 /* The following three symbols give information on
  26  the size of various data types.  */
  27
  28 #define SHORTBITS 16            /* Number of bits in a short */
  29
  30 #define INTBITS 32              /* Number of bits in an int */
  31
  32 #define LONGBITS 32             /* Number of bits in a long */
  33
  34 /* Define BIG_ENDIAN iff lowest-numbered byte in a word
  35    is the most significant byte.  */
  36
  37 #undef BIG_ENDIAN
  38
  39 /* Now define a symbol for the cpu type, if your compiler
  40    does not define it automatically.  */
  41
  42 #ifndef orion
  43 #define orion
  44 #endif
  45
  46 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
  47  * group of arguments and treat it as an array of the arguments.  */
  48
  49 #define NO_ARG_ARRAY
  50
  51 /* Define WORD_MACHINE if addresses and such have
  52  * to be corrected before they can be used as byte counts.  */
  53
  54 #define WORD_MACHINE
  55
  56 /* Use type int rather than a union, to represent Lisp_Object */
  57 /* This is desirable for most machines.  */
  58
  59 #define NO_UNION_TYPE
  60
  61 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend */
  62
  63 #define EXPLICIT_SIGN_EXTEND
  64
  65 /* Data type of load average, as read out of kmem.  */
  66
  67 #define LOAD_AVE_TYPE double
  68
  69 /* Convert that into an integer that is 100 for a load average of 1.0  */
  70
  71 #ifndef FSCALE
  72 #define FSCALE 1.0
  73 #endif
  74 #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)
  75
  76 /* It is necessary to use the portable imitation of alloca,
  77    since a true stack-allocating one is impossible.  */
  78
  79 #define C_ALLOCA