code.delx.au - gnu-emacs/blob - 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 /* Now define a symbol for the cpu type, if your compiler
  35    does not define it automatically.  */
  36
  37 #ifndef orion
  38 #define orion
  39 #endif
  40
  41 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
  42  * group of arguments and treat it as an array of the arguments.  */
  43
  44 #define NO_ARG_ARRAY
  45
  46 /* Define WORD_MACHINE if addresses and such have
  47  * to be corrected before they can be used as byte counts.  */
  48
  49 #define WORD_MACHINE
  50
  51 /* Use type int rather than a union, to represent Lisp_Object */
  52 /* This is desirable for most machines.  */
  53
  54 #define NO_UNION_TYPE
  55
  56 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend */
  57
  58 #define EXPLICIT_SIGN_EXTEND
  59
  60 /* Data type of load average, as read out of kmem.  */
  61
  62 #define LOAD_AVE_TYPE double
  63
  64 /* Convert that into an integer that is 100 for a load average of 1.0  */
  65
  66 #ifndef FSCALE
  67 #define FSCALE 1.0
  68 #endif
  69 #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)
  70
  71 /* It is necessary to use the portable imitation of alloca,
  72    since a true stack-allocating one is impossible.  */
  73
  74 #define C_ALLOCA