user.c

Go to the documentation of this file.

/**
 * \file user.c
 * \brief Main API/User-level functions.
 * 
 * - $Id: user.c,v 1.10 2008-01-15 05:21:03 stephens Exp $
 */

#include "internal.h"

/*! Uninitialized global memory. */
int _tm_user_bss[4];
/*! Initialized global memory. */ 
int _tm_user_data[4] = { 0, 1, 2, 3 };

/***************************************************************************/
/* User-level routines. */


/**
 * API: Allocate a node.
 *
 * - Begin timing stats,
 * - Clear some stack words,
 * - Remember current stack pointer,
 * - Save the registers and stack pointers, 
 * - Call "inner" routines,
 * - End timing stats.
 */
void *tm_alloc(size_t size)
{
  void *ptr = 0;

  if ( size == 0 )
    return 0;

  if ( ! tm.inited ) {
    tm_init(0, (char***) ptr, 0);
  }

#if tm_TIME_STAT
  tm_time_stat_begin(&tm.ts_alloc);
#endif

  _tm_clear_some_stack_words();
  _tm_set_stack_ptr(&ptr);

  if ( tm.trigger_full_gc ) {
    tm.trigger_full_gc = 0;
    _tm_gc_full_inner();
  }

  ptr = _tm_alloc_inner(size);

#if tm_TIME_STAT
  tm_time_stat_end(&tm.ts_alloc);
#endif

  return ptr;
}


/**
 * API: Allocate a node based on a allocation descriptor.
 *
 * - Begin timing stats,
 * - Clear some stack words,
 * - Remember current stack pointer,
 * - Save the registers and stack pointers, 
 * - Call "inner" routines,
 * - End timing stats.
 */
void *tm_alloc_desc(tm_adesc *desc)
{
  void *ptr = 0;

  if ( desc == 0 || desc->size == 0 )
    return 0;

#if tm_TIME_STAT
  tm_time_stat_begin(&tm.ts_alloc);
#endif

  _tm_clear_some_stack_words();
  _tm_set_stack_ptr(&ptr);
  ptr = _tm_alloc_desc_inner(desc);

#if tm_TIME_STAT
  tm_time_stat_end(&tm.ts_alloc);
#endif

  return ptr;
}


/***************************************************************************/


/**
 * API: Reallocate a node of a givin size.
 *
 * May return the same pointer, a different pointer or 0.
 *
 * - Begin timing stats,
 * - Clear some stack words,
 * - Remember current stack pointer,
 * - Save the registers and stack pointers, 
 * - Call "inner" routines,
 * - End timing stats.
 */
void *tm_realloc(void *oldptr, size_t size)
{
  void *ptr = 0;

  if ( oldptr == 0 )
    return tm_alloc(size);

  if ( size == 0 ) {
    tm_free(oldptr);
    return 0;
  }

#if tm_TIME_STAT
  tm_time_stat_begin(&tm.ts_alloc);
#endif

  _tm_clear_some_stack_words();
  _tm_set_stack_ptr(&ptr);
  ptr = _tm_realloc_inner(oldptr, size);

#if tm_TIME_STAT
  tm_time_stat_end(&tm.ts_alloc);
#endif

  return ptr;
}


/***************************************************************************/


/**
 * API: Explicitly free a node.
 *
 * - Begin timing stats,
 * - Clear some stack words,
 * - Remember current stack pointer,
 * - Save the registers and stack pointers, 
 * - Call "inner" routines,
 * - End timing stats.
 */
void tm_free(void *ptr)
{
  if ( ! tm.inited ) {
    tm_init(0, (char***) ptr, 0);
  }

#if tm_TIME_STAT
  tm_time_stat_begin(&tm.ts_free);
#endif

  _tm_clear_some_stack_words();
  _tm_set_stack_ptr(&ptr);
  _tm_free_inner(ptr);

#if tm_TIME_STAT
  tm_time_stat_end(&tm.ts_free);
#endif
}


/***************************************************************************/


/**
 * API: Force a full GC.
 *
 * - Begin timing stats,
 * - Clear some stack words,
 * - Remember current stack pointer,
 * - Save the registers and stack pointers, 
 * - Call "inner" routines,
 * - End timing stats.
 */
void tm_gc_full()
{
  void *ptr = 0;

  if ( ! tm.inited ) {
    tm_init(0, (char***) ptr, 0);
  }

#if tm_TIME_STAT
  tm_time_stat_begin(&tm.ts_gc);
#endif

  _tm_clear_some_stack_words();
  _tm_set_stack_ptr(&ptr);

  _tm_gc_full_inner();

#if tm_TIME_STAT
  tm_time_stat_end(&tm.ts_gc);
#endif
}


/***************************************************************************/

---