From 61bd8ace6bdb2652f4d51d64e3239a7105f56c26 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Thu, 4 May 1995 10:15:53 +0000 Subject: Passage a la version bootstrappee (franchissement du Rubicon) git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- byterun/minor_gc.h | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 byterun/minor_gc.h (limited to 'byterun/minor_gc.h') diff --git a/byterun/minor_gc.h b/byterun/minor_gc.h new file mode 100644 index 0000000000..112ba58a97 --- /dev/null +++ b/byterun/minor_gc.h @@ -0,0 +1,19 @@ +#ifndef _minor_gc_ +#define _minor_gc_ + + +#include "misc.h" + +extern char *young_start, *young_ptr, *young_end; +extern value **ref_table_ptr, **ref_table_limit; +extern asize_t minor_heap_size; + +#define Is_young(val) \ + ((addr)(val) > (addr)young_start && (addr)(val) < (addr)young_end) + +extern void set_minor_heap_size P((asize_t)); +extern void minor_collection P((void)); +extern void realloc_ref_table P((void)); + + +#endif /* _minor_gc_ */ -- cgit v1.2.1