2001-08-11 10:36:38 -07:00
|
|
|
/***********************************************************************/
|
|
|
|
/* */
|
|
|
|
/* Objective Caml */
|
|
|
|
/* */
|
|
|
|
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
|
|
|
|
/* */
|
|
|
|
/* Copyright 2001 Institut National de Recherche en Informatique et */
|
|
|
|
/* en Automatique. All rights reserved. This file is distributed */
|
2001-12-07 05:41:02 -08:00
|
|
|
/* under the terms of the GNU Library General Public License, with */
|
|
|
|
/* the special exception on linking described in file ../LICENSE. */
|
2001-08-11 10:36:38 -07:00
|
|
|
/* */
|
|
|
|
/***********************************************************************/
|
|
|
|
|
|
|
|
/* $Id$ */
|
|
|
|
|
|
|
|
/* Registration of global memory roots */
|
|
|
|
|
2003-12-15 10:10:51 -08:00
|
|
|
#ifndef CAML_GLOBROOTS_H
|
|
|
|
#define CAML_GLOBROOTS_H
|
2001-08-11 10:36:38 -07:00
|
|
|
|
|
|
|
#include "mlvalues.h"
|
|
|
|
|
|
|
|
/* Skip list structure */
|
|
|
|
|
|
|
|
struct global_root {
|
|
|
|
value * root; /* the address of the root */
|
|
|
|
struct global_root * forward[1]; /* variable-length array */
|
|
|
|
};
|
|
|
|
|
2007-10-08 07:19:34 -07:00
|
|
|
#define NUM_LEVELS 17
|
2001-08-11 10:36:38 -07:00
|
|
|
|
|
|
|
struct global_root_list {
|
|
|
|
value * root; /* dummy value for layout compatibility */
|
2007-10-08 07:19:34 -07:00
|
|
|
struct global_root * forward[NUM_LEVELS]; /* forward chaining */
|
2001-08-11 10:36:38 -07:00
|
|
|
int level; /* max used level */
|
|
|
|
};
|
|
|
|
|
|
|
|
extern struct global_root_list caml_global_roots;
|
|
|
|
|
2003-12-15 10:10:51 -08:00
|
|
|
#endif /* CAML_GLOBROOTS_H */
|