diff options
Diffstat (limited to 'kernel/byterun/coq_fix_code.h')
| -rw-r--r-- | kernel/byterun/coq_fix_code.h | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/kernel/byterun/coq_fix_code.h b/kernel/byterun/coq_fix_code.h new file mode 100644 index 0000000000..bceb104e95 --- /dev/null +++ b/kernel/byterun/coq_fix_code.h @@ -0,0 +1,30 @@ +/***********************************************************************/ +/* */ +/* Coq Compiler */ +/* */ +/* Benjamin Gregoire, projets Logical and Cristal */ +/* INRIA Rocquencourt */ +/* */ +/* */ +/***********************************************************************/ + + +#ifndef _COQ_FIX_CODE_ +#define _COQ_FIX_CODE_ + +#include "mlvalues.h" +void * coq_stat_alloc (asize_t sz); + +#ifdef THREADED_CODE +extern char ** coq_instr_table; +extern char * coq_instr_base; +#define Is_instruction(i1,i2) \ + (*i1 == (opcode_t)(coq_instr_table[i2] - coq_instr_base)) +#else +#define Is_instruction(i1,i2) (*i1 == i2) +#endif + +value coq_tcode_of_code(value code, value len); +value coq_makeaccu (value i); +value coq_pushpop (value i); +#endif /* _COQ_FIX_CODE_ */ |