120 lines
3.6 KiB
C
120 lines
3.6 KiB
C
/***********************************************************************/
|
|
/* */
|
|
/* Objective Caml */
|
|
/* */
|
|
/* Xavier Leroy and Damien Doligez, INRIA Rocquencourt */
|
|
/* */
|
|
/* Copyright 1996 Institut National de Recherche en Informatique et */
|
|
/* en Automatique. All rights reserved. This file is distributed */
|
|
/* under the terms of the GNU Library General Public License. */
|
|
/* */
|
|
/***********************************************************************/
|
|
|
|
/* $Id$ */
|
|
|
|
#ifndef _config_
|
|
#define _config_
|
|
|
|
|
|
#if !macintosh
|
|
#include "../config/m.h"
|
|
#include "../config/s.h"
|
|
#else
|
|
#include "::config:sm-Mac.h"
|
|
#endif
|
|
|
|
/* Library dependencies */
|
|
|
|
#ifdef HAS_MEMMOVE
|
|
#undef bcopy
|
|
#define bcopy(src,dst,len) memmove((dst), (src), (len))
|
|
#else
|
|
#ifdef HAS_BCOPY
|
|
/* Nothing to do */
|
|
#else
|
|
#undef bcopy
|
|
#define bcopy(src,dst,len) memmov((dst), (src), (len))
|
|
#define USING_MEMMOV
|
|
#endif
|
|
#endif
|
|
|
|
/* We use threaded code interpretation if the compiler provides labels
|
|
as first-class values (GCC 2.x).
|
|
Macintosh 68k also uses threaded code, with the assembly-language
|
|
bytecode interpreter (THREADED_CODE defined in config/sm-Mac.h).
|
|
*/
|
|
|
|
#if defined(__GNUC__) && __GNUC__ >= 2 && !defined(DEBUG) && !defined (SHRINKED_GNUC)
|
|
#define THREADED_CODE
|
|
#endif
|
|
|
|
/* Signed char type */
|
|
|
|
typedef signed char schar;
|
|
|
|
/* Do not change this definition. */
|
|
#define Page_size (1 << Page_log)
|
|
|
|
/* Memory model parameters */
|
|
|
|
/* The size of a page for memory management (in bytes) is [1 << Page_log].
|
|
It must be a multiple of [sizeof (long)]. */
|
|
#define Page_log 12 /* A page is 4 kilobytes. */
|
|
|
|
/* Initial size of stack (bytes). */
|
|
#define Stack_size (4096 * sizeof(value))
|
|
|
|
/* Minimum free size of stack (bytes); below that, it is reallocated. */
|
|
#define Stack_threshold (256 * sizeof(value))
|
|
|
|
/* Default maximum size of the stack (words). */
|
|
#define Max_stack_def (256 * 1024)
|
|
|
|
|
|
/* Maximum size of a block allocated in the young generation (words). */
|
|
/* Must be > 4 */
|
|
#define Max_young_wosize 256
|
|
|
|
|
|
/* Minimum size of the minor zone (words).
|
|
This must be at least [Max_young_wosize + 1]. */
|
|
#define Minor_heap_min 4096
|
|
|
|
/* Maximum size of the minor zone (words).
|
|
Must be greater than or equal to [Minor_heap_min].
|
|
*/
|
|
#define Minor_heap_max (1 << 28)
|
|
|
|
/* Default size of the minor zone. (words) */
|
|
#define Minor_heap_def 32768
|
|
|
|
|
|
/* Minimum size increment when growing the heap (words).
|
|
Must be a multiple of [Page_size / sizeof (value)]. */
|
|
#define Heap_chunk_min (2 * Page_size / sizeof (value))
|
|
|
|
/* Maximum size of a contiguous piece of the heap (words).
|
|
Must be greater than or equal to [Heap_chunk_min].
|
|
Must be greater than or equal to [Bhsize_wosize (Max_wosize)]. */
|
|
#define Heap_chunk_max (Bhsize_wosize (Max_wosize))
|
|
|
|
/* Default size increment when growing the heap. (words)
|
|
Must be a multiple of [Page_size / sizeof (value)]. */
|
|
#define Heap_chunk_def (62 * 1024)
|
|
|
|
/* Default initial size of the major heap (words);
|
|
same constraints as for Heap_chunk_def. */
|
|
#define Init_heap_def (62 * 1024)
|
|
|
|
|
|
/* Default speed setting for the major GC. The heap will grow until
|
|
the dead objects and the free list represent this percentage of the
|
|
heap size. The rest of the heap is live objects. */
|
|
#define Percent_free_def 42
|
|
|
|
/* Default setting for the compacter: off */
|
|
#define Max_percent_free_def 1000000
|
|
|
|
|
|
#endif /* _config_ */
|