1995-08-09 08:06:35 -07:00
|
|
|
/***********************************************************************/
|
|
|
|
|
/* */
|
|
|
|
|
/* Caml Special Light */
|
|
|
|
|
/* */
|
|
|
|
|
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
|
|
|
|
|
/* */
|
|
|
|
|
/* Copyright 1995 Institut National de Recherche en Informatique et */
|
|
|
|
|
/* Automatique. Distributed only by permission. */
|
|
|
|
|
/* */
|
|
|
|
|
/***********************************************************************/
|
|
|
|
|
|
|
|
|
|
/* $Id$ */
|
|
|
|
|
|
1995-05-04 03:15:53 -07:00
|
|
|
/* Translate a block of bytecode (endianness switch, threading). */
|
|
|
|
|
|
|
|
|
|
#ifndef _fix_code_
|
|
|
|
|
#define _fix_code_
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#include "misc.h"
|
|
|
|
|
#include "mlvalues.h"
|
|
|
|
|
|
|
|
|
|
void fixup_endianness P((code_t code, asize_t len));
|
|
|
|
|
void thread_code P((code_t code, asize_t len, void * instr_table[]));
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
