From 4b9004d66611422208f84716fbcc3c3f2c2eef12 Mon Sep 17 00:00:00 2001
From: Nenad Rakocevic <nr@softinnov.com>
Date: Thu, 5 May 2011 22:29:15 +0200
Subject: [PATCH] FIX: issue #28

---
 red-system/targets/IA32.r | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/red-system/targets/IA32.r b/red-system/targets/IA32.r
index a520556924..930844c546 100644
--- a/red-system/targets/IA32.r
+++ b/red-system/targets/IA32.r
@@ -534,7 +534,10 @@ make target-class [
 			* [
 				switch b [
 					imm [
-						either c: power-of-2? arg2 [	;-- trivial optimization for b=2^n
+						either all [
+							not zero? arg2
+							c: power-of-2? arg2			;-- trivial optimization for b=2^n
+						][
 							either width = 1 [
 								emit #{C0E0}			;-- SHL al, log2(b)	; 8-bit unsigned
 							][