From a11d018dc2783f7e12b15b6b894fa3548c5686e5 Mon Sep 17 00:00:00 2001
From: Joel Dice <git@seibutsu.mailsnare.net>
Date: Thu, 29 Jan 2009 18:43:46 -0700
Subject: [PATCH] fix assertion in MyCompiler::peek

---
 src/compiler.cpp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/compiler.cpp b/src/compiler.cpp
index 7198d9f1d5..1ae7c31ea6 100644
--- a/src/compiler.cpp
+++ b/src/compiler.cpp
@@ -4497,7 +4497,10 @@ class MyCompiler: public Compiler {
     for (unsigned i = index; i > 0; --i) {
       s = s->next;
     }
-    assert(&c, footprint == 1 or (s->value->high and footprint == 2));
+    assert(&c, footprint == 1 or
+           (c.stack->value->high == c.stack->next->value
+            and ((BytesPerWord == 8) xor (c.stack->value->high != 0))));
+
     return s->value;
   }