[hcoop/debian/mlton.git] / runtime / gc / atomic.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.
 */

void beginAtomic (GC_state s) {
  s->atomicState++;
  if (0 == s->limit)
    s->limit = s->limitPlusSlop - GC_HEAP_LIMIT_SLOP;
}

void endAtomic (GC_state s) {
  s->atomicState--;
  if (0 == s->atomicState 
      and s->signalsInfo.signalIsPending)
    s->limit = 0;
}
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	void beginAtomic (GC_state s) {
	10	s->atomicState++;
	11	if (0 == s->limit)
	12	s->limit = s->limitPlusSlop - GC_HEAP_LIMIT_SLOP;
	13	}
	14
	15	void endAtomic (GC_state s) {
	16	s->atomicState--;
	17	if (0 == s->atomicState
	18	and s->signalsInfo.signalIsPending)
	19	s->limit = 0;
	20	}