From: Guillermo J. Rozas Date: Mon, 22 Jan 1990 22:22:14 +0000 (+0000) Subject: Bump the constant space and compiled constant space sizes for the X-Git-Tag: 20090517-FFI~11576 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=417fa52eab6ccde06f7c67e12d238195ed180762;p=mit-scheme.git Bump the constant space and compiled constant space sizes for the spectrum. Compiled binaries are 50% larger than on bobcats. --- diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h index 49fc669fb..1c7e08820 100644 --- a/v7/src/microcode/config.h +++ b/v7/src/microcode/config.h @@ -1,8 +1,8 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.51 1989/11/30 03:03:46 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.52 1990/01/22 22:22:14 jinx Exp $ -Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology +Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -488,6 +488,18 @@ longjmp(Exit_Point, NORMAL_EXIT) #define ADDRESS_TO_DATUM(address) \ ((SCHEME_OBJECT) (((unsigned long) (address)) & (~(HPPA_QUAD_BIT)))) +/* HPPA compiled binaries are large! */ + +#ifdef HAS_COMPILER_SUPPORT +#ifndef CONSTANT_SIZE +#define CONSTANT_SIZE 600 /* Default Kcells for constant */ +#endif +#endif + +#ifndef COMPILER_CONSTANT_SIZE +#define COMPILER_CONSTANT_SIZE 1300 +#endif + #endif /* spectrum */ #ifdef umax