mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-10 13:40:36 -08:00
3d5e2ca85f
This was achieved by partially undoing changelist 24817, including an accidental corruption of eventgen.pl. Copied from Perforce Change: 24877 ServerID: perforce.ravenbrook.com
311 lines
8.1 KiB
C
311 lines
8.1 KiB
C
/* impl.h.config: MPS CONFIGURATION
|
|
*
|
|
* $Id$
|
|
* $HopeName: MMsrc!config.h(trunk.47) $
|
|
* Copyright (c) 2001 Ravenbrook Limited.
|
|
*
|
|
* PURPOSE
|
|
*
|
|
* This module translates from high-level symbols defined by the
|
|
* external build system (gnumake, nmake, etc.) into specific sets
|
|
* of features used by MPS modules. For example, the build system
|
|
* will defined one of the CONFIG_VAR_* symbols to indicate which
|
|
* variety it is building, this file translates that into a certain
|
|
* level of checking, and a certain level of telemetry.
|
|
*
|
|
* DESIGN
|
|
*
|
|
* See design.mps.config.
|
|
*/
|
|
|
|
#ifndef config_h
|
|
#define config_h
|
|
|
|
|
|
/* Variety Configuration
|
|
*
|
|
* Convert CONFIG_VAR_* defined on compiler command line into
|
|
* internal configuration parameters. See design.mps.config.var
|
|
* and design.mps.variety.macro. Note that MPS_HOT is subclassed
|
|
* into MPS_HOT_RED and MPS_HOT_WHITE; this distinction should
|
|
* be rarely used.
|
|
*/
|
|
|
|
#if defined(CONFIG_VAR_HI) /* Hot, Internal; variety.hi */
|
|
#define MPS_VARIETY_STRING "hi"
|
|
#define MPS_HOT
|
|
#define MPS_HOT_RED
|
|
#define EVENT_NONE
|
|
#elif defined(CONFIG_VAR_CI) /* Cool, Internal; variety.ci */
|
|
#define MPS_VARIETY_STRING "ci"
|
|
#define MPS_COOL
|
|
#define EVENT_NONE
|
|
#elif defined(CONFIG_VAR_TI) /* Telemetry, Internal; variety.ti */
|
|
#define MPS_VARIETY_STRING "ti"
|
|
#define MPS_COOL
|
|
#define EVENT
|
|
#elif defined(CONFIG_VAR_HE) /* Hot, External; variety.he */
|
|
#define MPS_VARIETY_STRING "he"
|
|
#define MPS_HOT
|
|
#define MPS_HOT_RED
|
|
#define EVENT_NONE
|
|
#elif defined(CONFIG_VAR_CE) /* Cool, External; variety.ce */
|
|
#define MPS_VARIETY_STRING "ce"
|
|
#define MPS_COOL
|
|
#define EVENT_NONE
|
|
#elif defined(CONFIG_VAR_WI) /* White hot, Internal; variety.wi */
|
|
#define MPS_VARIETY_STRING "wi"
|
|
#define MPS_HOT
|
|
#define MPS_HOT_WHITE
|
|
#define EVENT_NONE
|
|
#elif defined(CONFIG_VAR_WE) /* White hot, External; variety.we */
|
|
#define MPS_VARIETY_STRING "we"
|
|
#define MPS_HOT
|
|
#define MPS_HOT_WHITE
|
|
#define EVENT_NONE
|
|
#elif defined(CONFIG_VAR_II) /* Ice, Internal; variety.ii */
|
|
#define MPS_VARIETY_STRING "ii"
|
|
#define MPS_HOT
|
|
#define MPS_HOT_RED
|
|
#define EVENT
|
|
#else
|
|
#error "No target variety configured."
|
|
#endif
|
|
|
|
|
|
#if defined(EVENT)
|
|
#define DIAGNOSTICS
|
|
#elif defined(EVENT_NONE)
|
|
#define DIAGNOSTICS_NONE
|
|
#else
|
|
#error "Events not configured."
|
|
#endif
|
|
|
|
|
|
/* Platform Configuration */
|
|
|
|
#include "mpstd.h"
|
|
|
|
/* Suppress Visual C warnings at warning level 4, */
|
|
/* see mail.richard.1997-09-25.13-26. */
|
|
/* Essentially the same settings are done in testlib.h. */
|
|
|
|
#ifdef MPS_BUILD_MV
|
|
|
|
/* "unreferenced inline function has been removed" (windows.h) */
|
|
#pragma warning(disable: 4514)
|
|
|
|
/* "constant conditional" (MPS_END) */
|
|
#pragma warning(disable: 4127)
|
|
|
|
/* "unreachable code" (ASSERT, if cond is constantly true). */
|
|
#pragma warning(disable: 4702)
|
|
|
|
/* MSVC 2.0 generates a warning when using NOCHECK or UNUSED */
|
|
#ifdef _MSC_VER
|
|
#if _MSC_VER < 1000
|
|
#pragma warning(disable: 4705)
|
|
#endif
|
|
#else /* _MSC_VER */
|
|
#error "Expected _MSC_VER to be defined for builder.mv"
|
|
#endif /* _MSC_VER */
|
|
|
|
/* MSVC 10.00 on PowerPC generates erroneous warnings about */
|
|
/* uninitialized local variables, if you take their address. */
|
|
#ifdef MPS_ARCH_PP
|
|
#pragma warning(disable: 4701)
|
|
#endif /* MPS_ARCH_PP */
|
|
|
|
|
|
/* In white-hot versions, absolutely no checking is done. This leads to
|
|
* many spurious warnings because parameters are suddenly unused, etc.
|
|
* We aren't interested in these.
|
|
*/
|
|
|
|
#if defined(MPS_HOT_WHITE)
|
|
|
|
/* "unreferenced formal parameter" */
|
|
#pragma warning(disable: 4100)
|
|
|
|
/* "unreferenced local function has been removed" */
|
|
#pragma warning(disable: 4505)
|
|
|
|
#endif /* MPS_HOT_WHITE */
|
|
|
|
#endif /* MPS_BUILD_MV */
|
|
|
|
|
|
/* EPVMDefaultSubsequentSegSIZE is a default for the alignment of
|
|
* subsequent segments (non-initial at each save level) in EPVM. See
|
|
* design.mps.poolepvm.arch.segment.size.
|
|
*/
|
|
|
|
#define EPVMDefaultSubsequentSegSIZE (64ul * 1024)
|
|
|
|
|
|
/* Arena Configuration -- see impl.c.arena
|
|
*
|
|
* .client.seg-size: ARENA_CLIENT_PAGE_SIZE is the size in bytes of a
|
|
* "page" (i.e., segment granule) in the client arena. It's set at 8192
|
|
* with no particular justification.
|
|
*/
|
|
|
|
#define ARENA_CONTROL_EXTENDBY ((Size)4096)
|
|
#define ARENA_CONTROL_AVGSIZE ((Size)32)
|
|
#define ARENA_CONTROL_MAXSIZE ((Size)65536)
|
|
|
|
#define ArenaPollALLOCTIME (65536.0)
|
|
|
|
#define ARENA_ZONESHIFT ((Shift)20)
|
|
|
|
#define ARENA_CLIENT_PAGE_SIZE ((Size)8192)
|
|
|
|
#define ArenaDefaultZONESET (ZoneSetUNIV << (MPS_WORD_WIDTH / 2))
|
|
/* @@@@ knows the implementation of ZoneSets */
|
|
|
|
/* .segpref.default: For EPcore, non-DL segments should be placed high */
|
|
/* to reduce fragmentation of DL pools (see request.epcore.170193). */
|
|
#define SegPrefDEFAULT { \
|
|
SegPrefSig, /* sig */ \
|
|
TRUE, /* high */ \
|
|
ArenaDefaultZONESET, /* zoneSet */ \
|
|
FALSE, /* isCollected */ \
|
|
FALSE, /* isGen */ \
|
|
(Serial)0, /* gen */ \
|
|
}
|
|
|
|
#define LDHistoryLENGTH ((Size)4)
|
|
|
|
|
|
/* Stack configuration */
|
|
|
|
/* Currently StackProbe has a useful implementation only on
|
|
* Intel platforms and only when using Microsoft build tools (builder.mv)
|
|
*/
|
|
#if defined(MPS_ARCH_I3) && defined(MPS_BUILD_MV)
|
|
#define StackProbeDEPTH ((Size)500)
|
|
#else
|
|
#define StackProbeDEPTH ((Size)0)
|
|
#endif /* MPS_ARCH_I3 */
|
|
|
|
|
|
/* Shield Configuration -- see impl.c.shield */
|
|
|
|
#define ShieldCacheSIZE ((size_t)16)
|
|
#define ShieldDepthWIDTH (4)
|
|
|
|
|
|
/* VM Configuration -- see impl.c.vm* */
|
|
|
|
#define VMANPageALIGNMENT ((Align)4096)
|
|
#define VMJunkBYTE ((unsigned char)0xA9)
|
|
|
|
|
|
/* Tracer Configuration -- see impl.c.trace */
|
|
|
|
#define TraceLIMIT ((size_t)1)
|
|
/* I count 4 function calls to scan, 10 to copy. */
|
|
#define TraceCopyScanRATIO (1.5)
|
|
|
|
|
|
|
|
/* Events
|
|
*
|
|
* EventBufferSIZE is the number of words in the global event buffer.
|
|
*/
|
|
|
|
#define EventBufferSIZE ((size_t)4096)
|
|
#define EventStringLengthMAX ((size_t)255) /* Not including NUL */
|
|
|
|
|
|
/* Assert Buffer */
|
|
|
|
#define ASSERT_BUFFER_SIZE ((Size)512)
|
|
|
|
|
|
/* memory operator configuration
|
|
*
|
|
* We need efficient operators similar to memcpy, memset, and memcmp.
|
|
* In general, we cannot use the C library mem functions directly as
|
|
* that would not be freestanding. However, on some platforms we can do
|
|
* this, because they are inlined by the compiler and so do not actually
|
|
* create a dependence on an external library.
|
|
*/
|
|
|
|
#if defined(MPS_PF_W3I3MV) && defined(MPS_HOT)
|
|
/* MSVC on Intel inlines mem* when optimizing */
|
|
#define mps_lib_memset memset
|
|
#define mps_lib_memcpy memcpy
|
|
#define mps_lib_memcmp memcmp
|
|
/* get prototypes for ANSI mem* */
|
|
#include <string.h>
|
|
#endif
|
|
|
|
|
|
/* Product Configuration
|
|
*
|
|
* Convert CONFIG_PROD_* defined on compiler command line into
|
|
* internal configuration parameters. See design.mps.config.prod.
|
|
*/
|
|
|
|
#if defined(CONFIG_PROD_EPCORE)
|
|
#define MPS_PROD_STRING "epcore"
|
|
#define MPS_PROD_EPCORE
|
|
#define ARENA_INIT_SPARE_COMMIT_LIMIT ((Size)0)
|
|
/* .nosync.why: ScriptWorks is single-threaded when using the MM. */
|
|
#define THREAD_SINGLE
|
|
#define PROTECTION_NONE
|
|
#define DONGLE_NONE
|
|
|
|
#elif defined(CONFIG_PROD_DYLAN)
|
|
#define MPS_PROD_STRING "dylan"
|
|
#define MPS_PROD_DYLAN
|
|
/* .prod.arena-size: ARENA_SIZE is currently set larger for the
|
|
* MM/Dylan product as an interim solution.
|
|
* See request.dylan.170170.sol.patch and change.dylan.buffalo.170170.
|
|
*/
|
|
#define ARENA_SIZE ((Size)1<<30)
|
|
#define ARENA_INIT_SPARE_COMMIT_LIMIT ((Size)10uL*1024uL*1024uL)
|
|
#define THREAD_MULTI
|
|
#define PROTECTION
|
|
#define DONGLE_NONE
|
|
|
|
#elif defined(CONFIG_PROD_CONFIGURA)
|
|
#define MPS_PROD_STRING "configura"
|
|
#define MPS_PROD_CONFIGURA
|
|
#define ARENA_INIT_SPARE_COMMIT_LIMIT ((Size)10uL*1024uL*1024uL)
|
|
#define THREAD_SINGLE
|
|
#define PROTECTION
|
|
#define DONGLE
|
|
/* global dongles have customerID 0 */
|
|
#define DONGLE_CUSTOMER_ID ((int)1)
|
|
|
|
#elif defined(CONFIG_PROD_MPS)
|
|
#define MPS_PROD_STRING "mps"
|
|
#define MPS_PROD_MPS
|
|
#define ARENA_INIT_SPARE_COMMIT_LIMIT ((Size)10uL*1024uL*1024uL)
|
|
#define THREAD_MULTI
|
|
#define PROTECTION
|
|
#define DONGLE_NONE
|
|
|
|
#else
|
|
#error "No target product configured."
|
|
#endif
|
|
|
|
|
|
/* Dongle configuration */
|
|
|
|
#if defined(DONGLE)
|
|
|
|
#define DONGLE_TEST_FREQUENCY ((unsigned int)4000)
|
|
|
|
#elif defined(DONGLE_NONE)
|
|
|
|
/* nothing to do */
|
|
|
|
#else
|
|
#error "No dongle configured."
|
|
#endif
|
|
|
|
|
|
#endif /* config_h */
|