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

thread support

This commit is contained in:
Vítor Santos Costa 2013-01-17 09:09:46 +00:00
parent 7407ecb60c
commit e22e3d74a0
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/pl-yap.c
View File

@ -188,7 +188,7 @@ PL_qualify(term_t raw, term_t qualified)
return FALSE; return FALSE;
/* modules are terms in YAP */ /* modules are terms in YAP */
Yap_PutInSlot(mname, (Term)m); Yap_PutInSlot(mname, (Term)m PASS_REGS);
return PL_cons_functor(qualified, FUNCTOR_colon2, mname, qualified); return PL_cons_functor(qualified, FUNCTOR_colon2, mname, qualified);
} }
@ -509,8 +509,10 @@ PL_set_prolog_flag(const char *name, int type, ...)
} }
case PL_ATOM: case PL_ATOM:
{ const char *v = va_arg(args, const char *); { const char *v = va_arg(args, const char *);
// VSC if ( !GD->initialised ) #ifndef __YAP_PROLOG__
// VSC initAtoms(); if ( !GD->initialised )
initAtoms();
#endif
setPrologFlag(name, FT_ATOM|flags, v); setPrologFlag(name, FT_ATOM|flags, v);
break; break;
} }