mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

The field bytecodes.entry did not match the position of the same field in cfun (src/h/object.h)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-11-29 18:09:12 +01:00
parent f984aea445
commit 01c4152b97
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/h/object.h
View file

@ -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 */
};