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

Fixed typo.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-06-15 23:10:57 +02:00
parent 34c363cc9f
commit 0dbab7db8f
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