solved warning: cast from pointer to integer of different size

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1348 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rslopes 2005-07-20 13:54:42 +00:00
parent 3ec000378a
commit 934f7d6791
2 changed files with 6 additions and 3 deletions

View File

@ -11,8 +11,11 @@
* File: stdpreds.c * * File: stdpreds.c *
* comments: General-purpose C implemented system predicates * * comments: General-purpose C implemented system predicates *
* * * *
* Last rev: $Date: 2005-07-06 19:33:54 $,$Author: ricroc $ * * Last rev: $Date: 2005-07-20 13:54:27 $,$Author: rslopes $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.91 2005/07/06 19:33:54 ricroc
* TABLING: answers for completed calls can now be obtained by loading (new option) or executing (default) them from the trie data structure.
*
* Revision 1.90 2005/07/06 15:10:14 vsc * Revision 1.90 2005/07/06 15:10:14 vsc
* improvements to compiler: merged instructions and fixes for -> * improvements to compiler: merged instructions and fixes for ->
* *
@ -293,7 +296,7 @@ typedef struct clause_entry {
PredEntry *pp; PredEntry *pp;
UInt pcs; /* counter with total for each clause */ UInt pcs; /* counter with total for each clause */
UInt pca; /* counter with total for each predicate (repeated for each clause)*/ UInt pca; /* counter with total for each predicate (repeated for each clause)*/
Int ts; /* start end timestamp towards retracts, eventually */ int ts; /* start end timestamp towards retracts, eventually */
} clauseentry; } clauseentry;
static int static int

View File

@ -1795,7 +1795,7 @@ static int subsumes_complex(register CELL *pt0, register CELL *pt0_end, register
pt0 = to_visit[0]; pt0 = to_visit[0];
pt0_end = to_visit[1]; pt0_end = to_visit[1];
pt1 = to_visit[2]; pt1 = to_visit[2];
write_mode = (int)to_visit[3]; write_mode = (UInt)to_visit[3];
to_visit += 4; to_visit += 4;
#endif #endif
goto loop; goto loop;