code.delx.au - gnu-emacs/blob - src/m/orion105.h

   1 /* machine description file for HLH Orion 1/05 (Clipper).
   2    Copyright (C) 1985, 2002, 2003, 2004, 2005,
   3                  2006 Free Software Foundation, Inc.
   4    Lee McLoughlin <lmjm%doc.imperial.ac.uk@nss.cs.ucl.ac.uk>
   5
   6 This file is part of GNU Emacs.
   7
   8 GNU Emacs is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 2, or (at your option)
  11 any later version.
  12
  13 GNU Emacs is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with GNU Emacs; see the file COPYING.  If not, write to
  20 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  21 Boston, MA 02110-1301, USA.  */
  22
  23
  24 /* The following line tells the configuration script what sort of
  25    operating system this machine is likely to run.
  26    USUAL-OPSYS="bsd4-2"  */
  27
  28 /* Define WORDS_BIG_ENDIAN iff lowest-numbered byte in a word
  29    is the most significant byte.  */
  30
  31 #undef WORDS_BIG_ENDIAN
  32
  33 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
  34  * group of arguments and treat it as an array of the arguments.  */
  35
  36 #define NO_ARG_ARRAY
  37
  38 /* Define WORD_MACHINE if addresses and such have
  39  * to be corrected before they can be used as byte counts.  */
  40
  41 /* Use type int rather than a union, to represent Lisp_Object */
  42 /* This is desirable for most machines.  */
  43
  44 #define NO_UNION_TYPE
  45
  46 /* Data type of load average, as read out of kmem.  */
  47 /* This used to be `double'.  */
  48
  49 #define LOAD_AVE_TYPE long
  50
  51 /* Convert that into an integer that is 100 for a load average of 1.0  */
  52
  53 /* This used to be 1.0.  */
  54 #ifndef FSCALE
  55 #define FSCALE 256
  56 #endif
  57 #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)
  58
  59 /* HLH have a SIGWINCH defined (but unimplemented) so we need a sigmask */
  60 #ifndef sigmask
  61 #define sigmask(m) (1 << ((m) - 1))
  62 #endif
  63
  64 /* Here is where programs actually start running */
  65 #define TEXT_START 0x8000
  66 #define LD_TEXT_START_ADDR 8000
  67
  68 /* Arguments to ignore before argc in crt0.c.  */
  69 #define DUMMIES dummy1, dummy2,
  70
  71 /* arch-tag: 32fed6e3-8cae-4882-b327-a68c2af6db7a
  72    (do not change this comment) */