add dereferencing macro.

2012-01-09 23:27:47 +00:00 · 2012-01-09 23:27:47 +00:00 · 110c78b309
commit 110c78b309
parent f632bc72bc
1 changed files with 12 additions and 0 deletions
--- a/H/amiops.h
+++ b/H/amiops.h
@ -44,6 +44,18 @@ Dereferencing macros
                   (D) = *(CELL *)(D);                       \
 		   } while (Unsigned(A) != (D))

+#define do_derefa(D,A,LabelUnk,LabelDone)		  \
+                (D) = *(CELL *)(A);                       \
+		if (IsNonVarTerm(D))    goto LabelDone;	     \
+		goto LabelUnk; \
+		do {                                         \
+                   (A) = (CELL *)(D);                        \
+                   (D) = *(CELL *)(D);                       \
+                   if(!IsVarTerm(D)) goto LabelDone;       \
+		LabelUnk: ;				   \
+		} while (Unsigned(A) != (D));\
+             LabelDone:
+
 #define derefa_body(D,A,LabelUnk,LabelNonVar)                \
 		do {                                         \
                   (A) = (CELL *)(D);                        \