1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2%
3% File:         PXC:SYS-CONSTS.SL
4% Description:  HPUX PSL constants needed in the compiler
5% Author:       Cris Perdue
6% Created:      24-Feb-84
7% Modified:     27-Jun-84 09:31:48
8% Mode:         Lisp
9% Package:
10% Status:       Open Source: BSD License
11%
12% Redistribution and use in source and binary forms, with or without
13% modification, are permitted provided that the following conditions are met:
14%
15%    * Redistributions of source code must retain the relevant copyright
16%      notice, this list of conditions and the following disclaimer.
17%    * Redistributions in binary form must reproduce the above copyright
18%      notice, this list of conditions and the following disclaimer in the
19%      documentation and/or other materials provided with the distribution.
20%
21% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
22% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
23% THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
24% PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNERS OR
25% CONTRIBUTORS
26% BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
27% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
28% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
29% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
30% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
31% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
32% POSSIBILITY OF SUCH DAMAGE.
33%
34%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
35%
36% (c) Copyright 1983, Hewlett-Packard Company, see the file
37%            HP_disclaimer at the root of the PSL file tree
38%
39%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40%
41
42(imports '(tags))
43
44(fluid '(system_list*))
45
46(setq system_list* '(Linux Linux_elf Intel386 i386 unix ieee))
47
48%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
49% MACHINE DEPENDENT CONSTANTS FOR THE MC68000                           %
50% Four BYTES per LONGWORD (32 bits).                                    %
51% Four CHARACTERs per LONGWORD (32 bits).                               %
52% Stack grows down, rather than UP, used to control Stack Scan loops.   %
53% Items are placed on stack with -(SP)xx addressing  (predecrement).    %
54%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
55
56(define-constant faslin-magic  399)
57(define-constant faslout-magic 399)
58
59
60(define-constant tagstartingbit                 0)
61(define-constant tagbitlength                   5)
62(define-constant infstartingbit                 5)
63(define-constant infbitlength                   27)
64(define-constant addressingunitsperitem         4)
65(define-constant charactersperword              4)
66(makeunbound 'bitsperword) % avoid ugly message in REDUCE
67(define-constant bitsperword                    32)
68(define-constant bitsperword2                   16)
69(define-constant addressingunitsperfunctioncell 4)
70(define-constant stackdirection                 -1)
71
72
73(define-constant maxargs     15)
74
75(define-constant maxrealregs     5)
76
77% At present this is the single machine-dependent character
78% (for ASCII machines).  Defined here in case cross-compilation
79% is being done.  Defined for the kernel in php:scan-table.sl. /csp
80
81(put 'eof 'charconst (char (control d)))
82
83
84(define-constant maxtokensize          5000)
85(define-constant bndstksize            2000)
86(define-constant catchstacksize        400)
87(define-constant hash-table-size       68023)
88(define-constant savesize              4)
89(define-constant maxargblock           15)
90(define-constant stacksize             20000)
91(define-constant maxsymbols            65000)
92(define-constant compressedbinaryradix 16)
93