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

disallow indexing on floats and friends.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@234 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-12-17 23:31:38 +00:00
parent 7b77c87b94
commit 6ca40989fa
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/compiler.c
View File

@ -1667,7 +1667,6 @@ get_type_info(Term Goal)
* FunctorOfTerm(Goal) == FunctorGPrimitive) * FunctorOfTerm(Goal) == FunctorGPrimitive)
* c_mask |= AtCl|FIsNum; * c_mask |= AtCl|FIsNum;
*/ */
} }
} }
} }
@ -1725,8 +1724,11 @@ get_cl_info(register Term t)
} }
} }
else if (IsApplTerm(t)) { else if (IsApplTerm(t)) {
c_store = (CELL) FunctorOfTerm(t); Functor fun = FunctorOfTerm(t);
c_mask = ApplCl; if (!IsExtensionFunctor(fun)) {
c_mask = (CELL)ApplCl;
c_store = (CELL)fun;
}
} }
else { else {
c_store = (CELL) t; c_store = (CELL) t;