/usr/lib/mlton/include/c-common.h is in mlton-basis 20100608-5.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | /* 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_ */
|