From 418fa1a396d69602daa3a08456cdc113996f85be Mon Sep 17 00:00:00 2001
From: Costa Vitor <vitor@quasar-20.(none)>
Date: Wed, 19 Aug 2009 20:22:04 -0500
Subject: [PATCH] 64 bit machines may be using S while calling ExpandIndex.

---
 C/absmi.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/C/absmi.c b/C/absmi.c
index 12e483778..ffd4d3542 100644
--- a/C/absmi.c
+++ b/C/absmi.c
@@ -7901,10 +7901,16 @@ Yap_absmi(int inp)
 	  JMPNext();
 	}
 #endif
+#ifdef SHADOW_S
+	S = SREG;
+#endif /* SHADOW_S */
  	saveregs();
 	pt0 = Yap_ExpandIndex(pe, 0);
 	/* restart index */
 	setregs();
+#ifdef SHADOW_S
+	SREG = S;
+#endif /* SHADOW_S */
  	PREG = pt0;
 #if defined(YAPOR) || defined(THREADS)
 	if (!PP)