support copying registers in SWI code.

2011-03-03 11:41:21 +00:00
parent da1df3d851
commit 9c3041f1e3
14 changed files with 171 additions and 53 deletions
--- a/packages/PLStream/pl-write.c
+++ b/packages/PLStream/pl-write.c
@@ -67,8 +67,8 @@ static bool	writeArgTerm(term_t t, int prec,
 #if __YAP_PROLOG__
 static Word
 address_of(term_t t)
-{ GET_LD
-    return YAP_AddressFromSlot(t);			/* non-recursive structure */
+{
+   return YAP_AddressFromSlot(t);			/* non-recursive structure */
 }
 #else
 static Word