Return to m-hp9000s800.h CVS log

Up to [Apple XNU] / GNUtools / emacs / src

Annotation of GNUtools/emacs/src/m-hp9000s800.h, revision 1.1

1.1     ! root        1: /* m- file for hp9000 series 800 machines.
        !             2:    Copyright (C) 1987 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 1, 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 three symbols give information on
        !            22:  the size of various data types.  */
        !            23: 
        !            24: #define SHORTBITS 16           /* Number of bits in a short */
        !            25: 
        !            26: #define INTBITS 32             /* Number of bits in an int */
        !            27: 
        !            28: #define LONGBITS 32            /* Number of bits in a long */
        !            29: 
        !            30: /* Define BIG_ENDIAN iff lowest-numbered byte in a word
        !            31:    is the most significant byte.  */
        !            32: 
        !            33: #define BIG_ENDIAN
        !            34: 
        !            35: /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
        !            36:  * group of arguments and treat it as an array of the arguments.  */
        !            37: 
        !            38: #define NO_ARG_ARRAY
        !            39: 
        !            40: /* Define WORD_MACHINE if addresses and such have
        !            41:  * to be corrected before they can be used as byte counts.  */
        !            42: 
        !            43: #undef WORD_MACHINE
        !            44: 
        !            45: /* Define how to take a char and sign-extend into an int.
        !            46:    On machines where char is signed, this is a no-op.  */
        !            47: 
        !            48: #define SIGN_EXTEND_CHAR(c) (c)
        !            49: 
        !            50: /* Now define a symbol for the cpu type, if your compiler
        !            51:    does not define it automatically:
        !            52:    Ones defined so far include vax, m68000, ns16000, pyramid,
        !            53:    orion, tahoe, APOLLO and many others */
        !            54: #ifndef hp9000s800
        !            55: #      define hp9000s800
        !            56: #endif
        !            57: 
        !            58: /* Use type int rather than a union, to represent Lisp_Object */
        !            59: /* This is desirable for most machines.  */
        !            60: 
        !            61: #define NO_UNION_TYPE
        !            62: 
        !            63: /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
        !            64:    the 24-bit bit field into an int.  In other words, if bit fields
        !            65:    are always unsigned.
        !            66: 
        !            67:    If you use NO_UNION_TYPE, this flag does not matter.  */
        !            68: 
        !            69: #define EXPLICIT_SIGN_EXTEND
        !            70: 
        !            71: /* Data type of load average, as read out of kmem.  */
        !            72: 
        !            73: #define LOAD_AVE_TYPE double
        !            74: 
        !            75: /* Convert that into an integer that is 100 for a load average of 1.0  */
        !            76: 
        !            77: #define LOAD_AVE_CVT(x) ((int) (x * 100.0))
        !            78: 
        !            79: 
        !            80: /* Define CANNOT_DUMP on machines where unexec does not work.
        !            81:    Then the function dump-emacs will not be defined
        !            82:    and temacs will do (load "loadup") automatically unless told otherwise.  */
        !            83: 
        !            84: #undef CANNOT_DUMP
        !            85: 
        !            86: /* Define VIRT_ADDR_VARIES if the virtual addresses of
        !            87:    pure and impure space as loaded can vary, and even their
        !            88:    relative order cannot be relied on.
        !            89: 
        !            90:    Otherwise Emacs assumes that text space precedes data space,
        !            91:    numerically.  */
        !            92: 
        !            93: #define VIRT_ADDR_VARIES
        !            94: 
        !            95: /* Define C_ALLOCA if this machine does not support a true alloca
        !            96:    and the one written in C should be used instead.
        !            97:    Define HAVE_ALLOCA to say that the system provides a properly
        !            98:    working alloca function and it should be used.
        !            99:    Define neither one if an assembler-language alloca
        !           100:    in the file alloca.s should be used.  */
        !           101: 
        !           102: #define C_ALLOCA
        !           103: /* #define HAVE_ALLOCA */
        !           104: 
        !           105: /* the data segment on this machine always starts at address 0x40000000. */
        !           106: 
        !           107: #define DATA_SEG_BITS 0x40000000
        !           108: 
        !           109: #define VALBITS    26
        !           110: #define GCTYPEBITS 5
        !           111: 
        !           112: #define DATA_START    0x40000000
        !           113: #define TEXT_START    0x00000000
        !           114: 
        !           115: #define STACK_DIRECTION 1 
        !           116: 
        !           117: /* Define NO_REMAP if memory segmentation makes it not work well
        !           118:    to change the boundary between the text section and data section
        !           119:    when Emacs is dumped.  If you define this, the preloaded Lisp
        !           120:    code will not be sharable; but that's better than failing completely.  */
        !           121: 
        !           122: #define NO_REMAP
        !           123: 
        !           124: /* This machine requires completely different unexec code
        !           125:    which lives in a separate file.  Specify the file name.  */
        !           126: 
        !           127: #define UNEXEC unexhp9k800.o
        !           128: 
        !           129: #define LIBS_MACHINE
        !           130: #define LIBS_DEBUG
        !           131: 
        !           132: /* Define NEED_BSDTTY if you have such. */
        !           133: 
        !           134: #define NEED_BSDTTY
        !           135: 
        !           136: /* The standard definitions of these macros would work ok,
        !           137:    but these are faster because the constants are short. */
        !           138:    
        !           139: 
        !           140: #define XUINT(a) (((unsigned)(a) << INTBITS-VALBITS) >> INTBITS-VALBITS)
        !           141: 
        !           142: #define XSET(var, type, ptr) \
        !           143:    ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << INTBITS-VALBITS) >> INTBITS-VALBITS))
        !           144: 
        !           145: #define XSETINT(a, b)  XSET(a, XTYPE(a), b)
        !           146: #define XSETUINT(a, b) XSET(a, XTYPE(a), b)
        !           147: #define XSETPNTR(a, b) XSET(a, XTYPE(a), b)
        !           148: #define XMARKBIT(a) ((a) < 0)
        !           149: #define XSETMARKBIT(a,b) ((a) = ((b) ? (a)|MARKBIT : (a) & ~MARKBIT))
        !           150: 
        !           151: #if 0  /* Loses when sign bit of type field is set.  */
        !           152: #define XUNMARK(a) ((a) = (((a) << INTBITS-GCTYPEBITS-VALBITS) >> INTBITS-GCTYPEBITS-VALBITS))
        !           153: #endif
        !           154: 
        !           155: /* The symbol in the kernel where the load average is found
        !           156:    is named _avenrun.  At this time there are two major flavors
        !           157:    of hp-ux (there is the s800 and s300 (s200) flavors).  The
        !           158:    differences are thusly moved to the corresponding m- file.
        !           159: */
        !           160: 
        !           161: /* no underscore please */
        !           162: #define LDAV_SYMBOL "avenrun"
        !           163: #define CPTIME_SYMBOL "cp_time"
        !           164: #define DKXFER_SYMBOL "dk_xfer"
        !           165: 
        !           166: #if 0 /* No longer true in HPUX 7.0 */
        !           167: /* In hpux, for unknown reasons, S_IFLNK is defined even though
        !           168:    symbolic links do not exist.
        !           169:    Make sure our conditionals based on S_IFLNK are not confused.
        !           170: 
        !           171:    Here we assume that stat.h is included before config.h
        !           172:    so that we can override it here.  */
        !           173: 
        !           174: #undef S_IFLNK
        !           175: #endif
        !           176: 
        !           177: /* Define the BSTRING functions in terms of the sysV functions. */
        !           178: 
        !           179: #define bcopy(a,b,s)   memcpy (b,a,s)
        !           180: #define bzero(a,s)     memset (a,0,s)
        !           181: #define bcmp           memcmp
        !           182: 
        !           183: /* On USG systems these have different names. */
        !           184: 
        !           185: #define index strchr
        !           186: #define rindex strrchr
        !           187: 
        !           188: /* Include the file bsdtty.h, since job control exists.  */
        !           189: #define NEED_BSDTTY

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