diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add dereferencing macro.

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-01-09 23:27:47 +00:00
parent f632bc72bc
commit 110c78b309
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
H/amiops.h
View File

@ -44,6 +44,18 @@ Dereferencing macros
(D) = *(CELL *)(D); \ (D) = *(CELL *)(D); \
} while (Unsigned(A) != (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) \ #define derefa_body(D,A,LabelUnk,LabelNonVar) \
do { \ do { \
(A) = (CELL *)(D); \ (A) = (CELL *)(D); \