From 01c4152b9773ce1190837196ed7da65e6bf47690 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 29 Nov 2009 18:09:12 +0100 Subject: [PATCH] The field bytecodes.entry did not match the position of the same field in cfun (src/h/object.h) --- src/h/object.h | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/h/object.h b/src/h/object.h index 39f8a1228..a82e97d71 100644 --- a/src/h/object.h +++ b/src/h/object.h @@ -680,8 +680,9 @@ struct ecl_codeblock { struct ecl_bytecodes { HEADER; cl_object name; /* function name */ - cl_objectfn entry; /* entry address */ cl_object definition; /* function definition in list form */ + cl_objectfn entry; /* entry address (must match the position of + * the equivalent field in cfun) */ cl_index code_size; /* number of bytecodes */ cl_index data_size; /* number of constants */ char *code; /* the intermediate language */ @@ -710,7 +711,8 @@ struct ecl_cfunfixed { /* compiled function header */ HEADER1(narg); cl_object name; /* compiled function name */ cl_object block; /* descriptor of C code block for GC */ - cl_objectfn entry; /* entry address */ + cl_objectfn entry; /* entry address (must match the position of + * the equivalent field in cfun) */ cl_objectfn_fixed entry_fixed; /* entry address */ cl_object file; /* file where it was defined... */ cl_object file_position;/* and where it was created */ @@ -720,7 +722,8 @@ struct ecl_cclosure { /* compiled closure header */ HEADER; cl_object env; /* environment */ cl_object block; /* descriptor of C code block for GC */ - cl_objectfn entry; /* entry address */ + cl_objectfn entry; /* entry address (must match the position of + * the equivalent field in cfun) */ cl_object file; /* file where it was defined... */ cl_object file_position;/* and where it was created */ };