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

linking

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-08-04 10:25:56 -05:00
parent 471d6e4f77
commit c79a5ec372
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/init.c
View File

@ -57,7 +57,7 @@ static char SccsId[] = "%W% %G%";
#include <string.h> #include <string.h>
#endif #endif
#ifdef YAPOR #ifndef YAPOR
Atom AtomFoundVar, AtomFreeTerm, AtomNil, AtomDot; Atom AtomFoundVar, AtomFreeTerm, AtomNil, AtomDot;
#endif // !YAPOR #endif // !YAPOR
@ -294,8 +294,7 @@ static void SetOp(int p, int type, char *at, Term m) {
OpDec(p, optypes[type], Yap_LookupAtom(at), m); OpDec(p, optypes[type], Yap_LookupAtom(at), m);
} }
bool Yap_dup_op(OpEntry *op, ModEntry *she) bool Yap_dup_op(OpEntry *op, ModEntry *she) {
{
AtomEntry *ae = RepAtom(op->OpName); AtomEntry *ae = RepAtom(op->OpName);
OpEntry *info = (OpEntry *)Yap_AllocAtomSpace(sizeof(OpEntry)); OpEntry *info = (OpEntry *)Yap_AllocAtomSpace(sizeof(OpEntry));
if (!info) if (!info)
@ -309,7 +308,6 @@ bool Yap_dup_op(OpEntry *op, ModEntry *she)
return true; return true;
} }
/* Gets the info about an operator in a prop */ /* Gets the info about an operator in a prop */
Atom Yap_GetOp(OpEntry *pp, int *prio, int fix) { Atom Yap_GetOp(OpEntry *pp, int *prio, int fix) {
int n; int n;