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