2016-02-18 07:11:59 -08:00
|
|
|
/**************************************************************************/
|
|
|
|
/* */
|
|
|
|
/* OCaml */
|
|
|
|
/* */
|
|
|
|
/* Damien Doligez, projet Para, 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 Lesser General Public License version 2.1, with the */
|
|
|
|
/* special exception on linking described in the file LICENSE. */
|
|
|
|
/* */
|
|
|
|
/**************************************************************************/
|
1997-05-13 07:45:38 -07:00
|
|
|
|
2003-12-15 10:10:51 -08:00
|
|
|
#ifndef CAML_COMPACT_H
|
|
|
|
#define CAML_COMPACT_H
|
1997-05-13 07:45:38 -07:00
|
|
|
|
2016-07-04 10:00:57 -07:00
|
|
|
#ifdef CAML_INTERNALS
|
1997-05-13 07:45:38 -07:00
|
|
|
|
|
|
|
#include "config.h"
|
|
|
|
#include "misc.h"
|
2016-06-05 09:13:08 -07:00
|
|
|
#include "mlvalues.h"
|
1997-05-13 07:45:38 -07:00
|
|
|
|
2019-10-15 04:52:16 -07:00
|
|
|
/* [caml_compact_heap] compacts the heap and optionally changes the
|
|
|
|
allocation policy.
|
|
|
|
if [new_allocation_policy] is -1, the policy is not changed.
|
|
|
|
*/
|
|
|
|
void caml_compact_heap (intnat new_allocation_policy);
|
|
|
|
|
2016-06-05 09:13:08 -07:00
|
|
|
void caml_compact_heap_maybe (void);
|
2017-03-07 00:21:41 -08:00
|
|
|
void caml_invert_root (value v, value *p);
|
1997-05-13 07:45:38 -07:00
|
|
|
|
2016-07-04 10:00:57 -07:00
|
|
|
#endif /* CAML_INTERNALS */
|
1997-05-13 07:45:38 -07:00
|
|
|
|
2003-12-15 10:10:51 -08:00
|
|
|
#endif /* CAML_COMPACT_H */
|