[hcoop/debian/mlton.git] / runtime / gc / controls.c

/* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
 *    Jagannathan, and Stephen Weeks.
 * Copyright (C) 1997-2000 NEC Research Institute.
 *
 * MLton is released under a BSD-style license.
 * See the file MLton-LICENSE for details.
 */

bool detailedGCTime (GC_state s) {
  return s->controls.summary;
}

bool needGCTime (GC_state s) {
  return 
    DEBUG 
    or s->controls.summary 
    or s->controls.messages
    or s->controls.rusageMeasureGC;
}
Commit	Line	Data
7f918cf1 CE	1	/* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
	2	* Jagannathan, and Stephen Weeks.
	3	* Copyright (C) 1997-2000 NEC Research Institute.
	4	*
	5	* MLton is released under a BSD-style license.
	6	* See the file MLton-LICENSE for details.
	7	*/
	8
	9	bool detailedGCTime (GC_state s) {
	10	return s->controls.summary;
	11	}
	12
	13	bool needGCTime (GC_state s) {
	14	return
	15	DEBUG
	16	or s->controls.summary
	17	or s->controls.messages
	18	or s->controls.rusageMeasureGC;
	19	}