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; *yap_type = n;
WRITE_UNLOCK(ae->ARWLock);
return 1; 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: default:
opkind = 1; 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; return FALSE;
}
switch(yap_type) { switch(yap_type) {
case 1: case 1:
*type = OP_XFX; *type = OP_XFX;