static POINTER break_value;
/* This is the size of a page. We round memory requests to this boundary. */
static POINTER break_value;
/* This is the size of a page. We round memory requests to this boundary. */
/* Whenever we get memory from the system, get this many extra bytes. This
must be a multiple of page_size. */
/* Whenever we get memory from the system, get this many extra bytes. This
must be a multiple of page_size. */
/* If we can't fit SIZE bytes in that heap,
try successive later heaps. */
/* If we can't fit SIZE bytes in that heap,
try successive later heaps. */
/* This heap should have no blocs in it. */
if (last_heap->first_bloc != NIL_BLOC
|| last_heap->last_bloc != NIL_BLOC)
/* This heap should have no blocs in it. */
if (last_heap->first_bloc != NIL_BLOC
|| last_heap->last_bloc != NIL_BLOC)
/* Return the last heap, with its header, to the system. */
excess = (char *)last_heap->end - (char *)last_heap->start;
/* Return the last heap, with its header, to the system. */
excess = (char *)last_heap->end - (char *)last_heap->start;
/* No need to ever call this if arena is frozen, bug somewhere! */
if (r_alloc_freeze_level)
/* No need to ever call this if arena is frozen, bug somewhere! */
if (r_alloc_freeze_level)
/* No need to ever call this if arena is frozen, bug somewhere! */
if (r_alloc_freeze_level)
/* No need to ever call this if arena is frozen, bug somewhere! */
if (r_alloc_freeze_level)
/* This frees all unused blocs. It is not too inefficient, as the resize
and memmove is done only once. Afterwards, all unreferenced blocs are
/* This frees all unused blocs. It is not too inefficient, as the resize
and memmove is done only once. Afterwards, all unreferenced blocs are
first_heap->start = first_heap->bloc_start
= virtual_break_value = break_value = (*real_morecore) (0);
if (break_value == NIL)
first_heap->start = first_heap->bloc_start
= virtual_break_value = break_value = (*real_morecore) (0);
if (break_value == NIL)
static MMAP_HANDLE mmap_start = 0; /* Head of linked list */
static size_t page_size = 0; /* Size of VM pages */
static MMAP_HANDLE mmap_start = 0; /* Head of linked list */
static size_t page_size = 0; /* Size of VM pages */