From 0dbab7db8fc50f95460d9d63eecf2947228370f1 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@benasque2.local>
Date: Sun, 15 Jun 2008 23:10:57 +0200
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