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

fix missing lock in OpInfo

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-03-01 10:32:25 +00:00
parent cce6bb6354
commit 0e447436b3
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
C/c_interface.c
View File

@ -3597,6 +3597,7 @@ int YAP_OpInfo(Atom at, Term module, int opkind, int *yap_type, int *prio)
}
}
*yap_type = n;
WRITE_UNLOCK(ae->ARWLock);
return 1;
}

3
packages/PLStream/pl-yap.c
View File

@ -517,8 +517,9 @@ currentOperator(Module m, atom_t name, int kind, int *type, int *priority)
default:
opkind = 1;
}
if (!YAP_OpInfo(YAP_AtomFromSWIAtom(name), mod, opkind, &yap_type, priority))
if (!YAP_OpInfo(YAP_AtomFromSWIAtom(name), mod, opkind, &yap_type, priority)) {
return FALSE;
}
switch(yap_type) {
case 1:
*type = OP_XFX;