[hcoop/debian/mlton.git] / include / c-common.h

/* Copyright (C) 1999-2007 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.
 */

#ifndef _C_COMMON_H_
#define _C_COMMON_H_

#ifndef DEBUG_CCODEGEN
#define DEBUG_CCODEGEN FALSE
#endif

#include "export.h"

struct cont {
        void *nextChunk;
};

PRIVATE extern uintptr_t nextFun;
PRIVATE extern int returnToC;
PRIVATE extern struct cont (*nextChunks []) (void);

#define ChunkName(n) Chunk ## n

#define DeclareChunk(n)                         \
        PRIVATE struct cont ChunkName(n)(void)

#define Chunkp(n) &(ChunkName(n))

#define PrepFarJump(n, l)                               \
        do {                                            \
                cont.nextChunk = (void*)ChunkName(n);   \
                nextFun = l;                            \
        } while (0)

#endif /* #ifndef _C_COMMON_H_ */
Commit	Line	Data
7f918cf1 CE	1	/* Copyright (C) 1999-2007 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	#ifndef _C_COMMON_H_
	10	#define _C_COMMON_H_
	11
	12	#ifndef DEBUG_CCODEGEN
	13	#define DEBUG_CCODEGEN FALSE
	14	#endif
	15
	16	#include "export.h"
	17
	18	struct cont {
	19	void *nextChunk;
	20	};
	21
	22	PRIVATE extern uintptr_t nextFun;
	23	PRIVATE extern int returnToC;
	24	PRIVATE extern struct cont (*nextChunks []) (void);
	25
	26	#define ChunkName(n) Chunk ## n
	27
	28	#define DeclareChunk(n) \
	29	PRIVATE struct cont ChunkName(n)(void)
	30
	31	#define Chunkp(n) &(ChunkName(n))
	32
	33	#define PrepFarJump(n, l) \
	34	do { \
	35	cont.nextChunk = (void*)ChunkName(n); \
	36	nextFun = l; \
	37	} while (0)
	38
	39	#endif /* #ifndef _C_COMMON_H_ */