From 44757605974f67053b60269e0fcf5e178d0bd7cb Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Thu, 19 Jun 2008 15:07:50 +0000 Subject: [PATCH] Fixed typo. --- src/c/compiler.d | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/c/compiler.d b/src/c/compiler.d index 43d885ad0..31c51fe07 100644 --- a/src/c/compiler.d +++ b/src/c/compiler.d @@ -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