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

fix fixes (export to win64 vm)

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-05-06 16:43:51 +01:00
parent 32ff9b54ff
commit dd8d122f04
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/yap2swi/yap2swi.c
View File

@ -507,7 +507,7 @@ X_API int PL_get_chars(term_t l, char **sp, unsigned flags)
if (!(flags & (CVT_INTEGER|CVT_NUMBER|CVT_ATOMIC|CVT_ALL))) if (!(flags & (CVT_INTEGER|CVT_NUMBER|CVT_ATOMIC|CVT_ALL)))
return 0; return 0;
#if _WIN64 #if _WIN64
snprintf(tmp,BUF_SIZE,"%lld",YAP_IntOfTerm(t)); snprintf(tmp,BUF_SIZE,"%ll",YAP_IntOfTerm(t));
#else #else
snprintf(tmp,BUF_SIZE,"%ld",YAP_IntOfTerm(t)); snprintf(tmp,BUF_SIZE,"%ld",YAP_IntOfTerm(t));
#endif #endif
@ -2612,7 +2612,7 @@ PL_destroy_engine(PL_engine_t e)
X_API int X_API int
PL_set_engine(PL_engine_t engine, PL_engine_t *old) PL_set_engine(PL_engine_t engine, PL_engine_t *old)
{ {
Yap_Int cwid = YAP_ThreadSelf(); YAP_Int cwid = YAP_ThreadSelf();
if (*old) *old = (PL_engine_t)cwid; if (*old) *old = (PL_engine_t)cwid;
if (engine == PL_ENGINE_CURRENT) if (engine == PL_ENGINE_CURRENT)
return PL_ENGINE_SET; return PL_ENGINE_SET;