mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 06:22:33 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo.

Browse source
This commit is contained in:
jjgarcia 2008-06-19 15:07:50 +00:00
parent 7732ada63b
commit 4475760597
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/compiler.d
View file

@ -226,8 +226,13 @@ asm_complete(register int op, register cl_index pc) {
#ifdef ECL_SMALL_BYTECODES
char low = delta & 0xFF;
char high = delta >> 8;
# ifdef WORDS_BIGENDIAN
cl_env.stack[pc] = (cl_object)(cl_fixnum)high;
cl_env.stack[pc+1] = (cl_object)(cl_fixnum)low;
# else
cl_env.stack[pc] = (cl_object)(cl_fixnum)low;
cl_env.stack[pc+1] = (cl_object)(cl_fixnum)high;
# endif
#else
cl_env.stack[pc] = (cl_object)(cl_fixnum)delta;
#endif