1 /**************************************************************************/ 2 /* */ 3 /* OCaml */ 4 /* */ 5 /* Xavier Leroy, projet Cristal, INRIA Rocquencourt */ 6 /* */ 7 /* Copyright 1996 Institut National de Recherche en Informatique et */ 8 /* en Automatique. */ 9 /* */ 10 /* All rights reserved. This file is distributed under the terms of */ 11 /* the GNU Lesser General Public License version 2.1, with the */ 12 /* special exception on linking described in the file LICENSE. */ 13 /* */ 14 /**************************************************************************/ 15 16 /* Trace the instructions executed */ 17 18 #ifndef _instrtrace_ 19 #define _instrtrace_ 20 21 #ifdef CAML_INTERNALS 22 23 #include "mlvalues.h" 24 #include "misc.h" 25 26 extern intnat caml_icount; 27 void caml_stop_here (void); 28 void caml_disasm_instr (code_t pc); 29 void caml_trace_value_file (value v, code_t prog, int proglen, FILE * f); 30 void caml_trace_accu_sp_file(value accu, value * sp, code_t prog, int proglen, 31 FILE * f); 32 33 #endif /* CAML_INTERNALS */ 34 35 #endif 36