new implementation of corourining...

2011-03-18 19:34:58 +00:00
parent f31e15deb8
commit 0d8aed7971
12 changed files with 261 additions and 1083 deletions
--- a/H/TermExt.h
+++ b/H/TermExt.h
@@ -67,6 +67,13 @@ IsAttVar (CELL *pt)
  return (pt)[-1] == (CELL)attvar_e && pt < H;
 }

+inline EXTERN int
+FastIsAttVar (CELL *pt)
+{
+  CACHE_REGS
+  return (pt)[-1] == (CELL)attvar_e;
+}
+
 typedef enum
  {
    BIG_INT =      0x01,
@@ -507,6 +514,14 @@ IsAttachedTerm (Term t)
  return (Int) ((IsVarTerm (t) && IsAttVar(VarOfTerm(t))));
 }

+inline EXTERN Int IsAttachedTerm (Term);
+
+inline EXTERN Int
+FastIsAttachedTerm (Term t)
+{
+  return (Int) ((IsVarTerm (t) && FastIsAttVar(VarOfTerm(t))));
+}
+