annotate src/m/hp800.h @ 75944:ecc35001afc5

Add copyright and license notice. Copyright years copied from base include file usg5-4.h.
author Glenn Morris <rgm@gnu.org>
date Fri, 16 Feb 2007 08:36:56 +0000
parents 53a1273f562c
children c8470b905d7a f83d17e1ace6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
75525
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1 /* machine description file for hp9000 series 800 machines.
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2 Copyright (C) 1987, 2001, 2002, 2003, 2004, 2005,
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
3 2006, 2007 Free Software Foundation, Inc.
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
4
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
5 This file is part of GNU Emacs.
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
6
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
10 any later version.
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
11
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
15 GNU General Public License for more details.
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
16
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
20 Boston, MA 02110-1301, USA. */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
21
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
22
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
23 /* The following line tells the configuration script what sort of
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
24 operating system this machine is likely to run.
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
25 USUAL-OPSYS="hpux" */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
26
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
27 /* Define WORDS_BIG_ENDIAN iff lowest-numbered byte in a word
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
28 is the most significant byte. */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
29
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
30 #define WORDS_BIG_ENDIAN
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
31
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
32 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
33 * group of arguments and treat it as an array of the arguments. */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
34
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
35 #define NO_ARG_ARRAY
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
36
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
37 /* Define WORD_MACHINE if addresses and such have
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
38 * to be corrected before they can be used as byte counts. */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
39
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
40 #undef WORD_MACHINE
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
41
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
42 /* Now define a symbol for the cpu type, if your compiler
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
43 does not define it automatically:
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
44 Ones defined so far include vax, m68000, ns16000, pyramid,
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
45 orion, tahoe, APOLLO and many others */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
46 #ifndef hp9000s800
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
47 # define hp9000s800
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
48 #endif
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
49
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
50 /* Use type int rather than a union, to represent Lisp_Object */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
51 /* This is desirable for most machines. */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
52
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
53 #define NO_UNION_TYPE
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
54
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
55 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
56 the bit field into an int. In other words, if bit fields
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
57 are always unsigned.
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
58
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
59 If you use NO_UNION_TYPE, this flag does not matter. */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
60
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
61 #define EXPLICIT_SIGN_EXTEND
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
62
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
63 /* The standard definitions of these macros would work ok,
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
64 but these are faster because the constants are short. */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
65
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
66
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
67 #define XUINT(a) (((unsigned)(a) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS)
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
68
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
69 #define XSET(var, type, ptr) \
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
70 ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS))
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
71
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
72 /* Definitions for GNU/Linux. (HP/UX is unsupported because of the
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
73 removal of unexhp9k800.c due to lack of legal papers.) */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
74
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
75 #ifdef GNU_LINUX
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
76 /* Now define a symbol for the cpu type, if your compiler
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
77 does not define it automatically:
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
78 Ones defined so far include vax, m68000, ns16000, pyramid,
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
79 orion, tahoe, APOLLO and many others */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
80 #ifndef hp9000s800
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
81 # define hp9000s800
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
82 #endif
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
83
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
84 /* Define CANNOT_DUMP on machines where unexec does not work.
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
85 Then the function dump-emacs will not be defined
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
86 and temacs will do (load "loadup") automatically unless told otherwise. */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
87
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
88 #undef CANNOT_DUMP
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
89
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
90 /* Define NO_REMAP if memory segmentation makes it not work well
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
91 to change the boundary between the text section and data section
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
92 when Emacs is dumped. If you define this, the preloaded Lisp
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
93 code will not be sharable; but that's better than failing completely. */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
94
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
95 #define NO_REMAP
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
96
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
97 /* Data type of load average, as read out of kmem. */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
98
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
99 #define LOAD_AVE_TYPE long
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
100
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
101 /* Convert that into an integer that is 100 for a load average of 1.0 */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
102
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
103 #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
104
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
105 #endif /* GNU_LINUX */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
106
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
107 /* Systems with GCC don't need to lose. */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
108 #ifdef __NetBSD__
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
109 # ifdef __GNUC__
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
110 # define alloca __builtin_alloca
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
111 # define HAVE_ALLOCA
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
112 # endif /* __GNUC__ */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
113 #endif /* __NetBSD__ */
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
114
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
115 /* arch-tag: 809436e6-1645-4b92-b40d-2de5d6e7227c
53a1273f562c Restore, removing HP-UX support.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
116 (do not change this comment) */