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

get rid of small bugs/warnings

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1874 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2007-05-02 11:12:39 +00:00
parent d79a6f8dcf
commit 2d3d3ff22c
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
library/yap2swi/yap2swi.c
View File

@@ -1092,6 +1092,7 @@ open_query execution;
X_API qid_t PL_open_query(module_t ctx, int flags, predicate_t p, term_t t0)
{
YAP_Atom yname;
atom_t name;
unsigned long int arity;
YAP_Module m;
@@ -1103,7 +1104,8 @@ X_API qid_t PL_open_query(module_t ctx, int flags, predicate_t p, term_t t0)
}
execution.open=1;
execution.state=0;
YAP_PredicateInfo(p, (YAP_Atom *)&name, &arity, &m);
YAP_PredicateInfo(p, &yname, &arity, &m);
name = (atom_t)yname;
t[0] = YAP_ModuleName(m);
if (arity == 0) {
t[1] = YAP_MkAtomTerm((YAP_Atom)name);