1 /* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
2 * Jagannathan, and Stephen Weeks.
3 * Copyright (C) 1997-2000 NEC Research Institute.
5 * MLton is released under a BSD-style license.
6 * See the file MLton-LICENSE for details.
12 #ifndef DEBUG_CCODEGEN
13 #define DEBUG_CCODEGEN FALSE
22 PRIVATE
extern uintptr_t nextFun
;
23 PRIVATE
extern int returnToC
;
24 PRIVATE
extern struct cont (*nextChunks
[]) (void);
26 #define ChunkName(n) Chunk ## n
28 #define DeclareChunk(n) \
29 PRIVATE struct cont ChunkName(n)(void)
31 #define Chunkp(n) &(ChunkName(n))
33 #define PrepFarJump(n, l) \
35 cont.nextChunk = (void*)ChunkName(n); \
39 #endif /* #ifndef _C_COMMON_H_ */