100 lines
2.1 KiB
C
100 lines
2.1 KiB
C
/***********************************************************************/
|
|
/* */
|
|
/* Caml Special Light */
|
|
/* */
|
|
/* Xavier Leroy and Damien Doligez, INRIA Rocquencourt */
|
|
/* */
|
|
/* Copyright 1995 Institut National de Recherche en Informatique et */
|
|
/* Automatique. Distributed only by permission. */
|
|
/* */
|
|
/***********************************************************************/
|
|
|
|
/* $Id$ */
|
|
|
|
/* Miscellaneous macros and variables. */
|
|
|
|
#ifndef _misc_
|
|
#define _misc_
|
|
|
|
|
|
#include "config.h"
|
|
|
|
/* Standard definitions */
|
|
|
|
#ifdef __STDC__
|
|
#include <stddef.h>
|
|
#include <stdlib.h>
|
|
#endif
|
|
|
|
/* Function prototypes */
|
|
|
|
#ifdef __STDC__
|
|
#define P(x) x
|
|
#else
|
|
#define P(x) ()
|
|
#endif
|
|
|
|
/* Basic types and constants */
|
|
|
|
#ifdef __STDC__
|
|
typedef size_t asize_t;
|
|
#else
|
|
typedef int asize_t;
|
|
#endif
|
|
|
|
#ifndef NULL
|
|
#define NULL 0
|
|
#endif
|
|
|
|
typedef char * addr;
|
|
|
|
/* Volatile stuff */
|
|
|
|
#ifdef __STDC__
|
|
#define Volatile volatile
|
|
#else
|
|
#define Volatile
|
|
#endif
|
|
|
|
#ifdef __GNUC__
|
|
/* Works only in GCC 2.5 and later */
|
|
#define Noreturn __attribute ((noreturn))
|
|
#else
|
|
#define Noreturn
|
|
#endif
|
|
|
|
/* Assertions */
|
|
|
|
#ifdef DEBUG
|
|
#ifdef __STDC__
|
|
#define Assert(x) if (!(x)) failed_assert ( #x , __FILE__, __LINE__)
|
|
#else
|
|
#ifndef __LINE__
|
|
#define __LINE__ 0
|
|
#endif
|
|
#ifndef __FILE__
|
|
#define __FILE__ "(?)"
|
|
#endif
|
|
#define Assert(x) if (!(x)) failed_assert ("(?)" , __FILE__, __LINE__)
|
|
#endif
|
|
#else
|
|
#define Assert(x)
|
|
#endif
|
|
|
|
void failed_assert P((char *, char *, int)) Noreturn;
|
|
void fatal_error P((char *)) Noreturn;
|
|
void fatal_error_arg P((char *, char *)) Noreturn;
|
|
|
|
/* GC flags and messages */
|
|
|
|
extern int verb_gc;
|
|
void gc_message P((char *, unsigned long));
|
|
|
|
/* Memory routines */
|
|
|
|
void memmov P((char *, char *, unsigned long));
|
|
char * aligned_malloc P((asize_t, int));
|
|
unsigned long not_random P((void));
|
|
|
|
#endif /* _misc_ */
|