Guard most of minor_gc.h with CAML_INTERNALS
parent
eb6d803222
commit
0fce1e36ae
|
@ -63,10 +63,12 @@ struct caml_custom_table CAML_TABLE_STRUCT(struct caml_custom_elt);
|
||||||
/* Table of custom blocks in the minor heap that contain finalizers
|
/* Table of custom blocks in the minor heap that contain finalizers
|
||||||
or GC speed parameters. */
|
or GC speed parameters. */
|
||||||
|
|
||||||
|
CAMLextern void caml_minor_collection (void);
|
||||||
|
|
||||||
|
#ifdef CAML_INTERNALS
|
||||||
extern void caml_set_minor_heap_size (asize_t); /* size in bytes */
|
extern void caml_set_minor_heap_size (asize_t); /* size in bytes */
|
||||||
extern void caml_empty_minor_heap (void);
|
extern void caml_empty_minor_heap (void);
|
||||||
extern void caml_gc_dispatch (void);
|
extern void caml_gc_dispatch (void);
|
||||||
CAMLextern void caml_minor_collection (void);
|
|
||||||
extern void caml_garbage_collection (void); /* runtime/signals_nat.c */
|
extern void caml_garbage_collection (void); /* runtime/signals_nat.c */
|
||||||
extern void caml_oldify_one (value, value *);
|
extern void caml_oldify_one (value, value *);
|
||||||
extern void caml_oldify_mopup (void);
|
extern void caml_oldify_mopup (void);
|
||||||
|
@ -131,4 +133,6 @@ Caml_inline void add_to_custom_table (struct caml_custom_table *tbl, value v,
|
||||||
elt->max = max;
|
elt->max = max;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#endif /* CAML_INTERNALS */
|
||||||
|
|
||||||
#endif /* CAML_MINOR_GC_H */
|
#endif /* CAML_MINOR_GC_H */
|
||||||
|
|
Loading…
Reference in New Issue