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

   1 /* machine description file for Megatest 68000's.
   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, Inc., 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21
  22 /* The following line tells the configuration script what sort of
  23    operating system this machine is likely to run.
  24    USUAL-OPSYS="bsd4-2"  */
  25
  26 /* Define WORDS_BIG_ENDIAN iff lowest-numbered byte in a word
  27    is the most significant byte.  */
  28
  29 #define WORDS_BIG_ENDIAN
  30
  31 /* XINT must explicitly sign-extend */
  32
  33 #define EXPLICIT_SIGN_EXTEND
  34
  35 /* Say this machine is a 68000 */
  36
  37 #define m68000
  38
  39 /* Use type int rather than a union, to represent Lisp_Object */
  40
  41 #define NO_UNION_TYPE
  42
  43 /* Data type of load average, as read out of kmem.  */
  44
  45 #define LOAD_AVE_TYPE double
  46
  47 /* Convert that into an integer that is 100 for a load average of 1.0  */
  48
  49 #define LOAD_AVE_CVT(x) ((int) ((x) * 100.0))