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

fixes to YAP C-thread interface.

Browse Source
This commit is contained in:
Vitor Santos Costa
2010-07-23 12:07:33 +01:00
parent b1dd038eb5
commit eebff5df6a
5 changed files with 26 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
library/yap2swi/yap2swi.c
View File

@@ -2784,7 +2784,6 @@ X_API int PL_thread_self(void)
X_API int PL_thread_attach_engine(const PL_thread_attr_t *attr)
{
int wid = YAP_ThreadSelf();
fprintf(stderr,"attaching new engine %p\n", attr);
if (wid < 0) {
/* we do not have an engine */
@@ -2861,7 +2860,9 @@ X_API int
PL_set_engine(PL_engine_t engine, PL_engine_t *old)
{
YAP_Int cwid = YAP_ThreadSelf();
if (*old) *old = (PL_engine_t)cwid;
if (old) {
if (*old) *old = (PL_engine_t)cwid;
}
if (engine == PL_ENGINE_CURRENT)
return PL_ENGINE_SET;
if (engine < 0) /* should really check if engine does not exist */