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

win32

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-04-22 18:26:37 +01:00
parent dbd4c979b1
commit 2550fc5b87
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
C/init.c
View File

@ -414,7 +414,7 @@ static void InitDebug(void) {
char ch; char ch;
#if _WIN32 #if _WIN32
if (!_isatty( _fileno( stdin ) )) { if (!_isatty(_fileno(stdin))) {
return; return;
} }
#elif HAVE_ISATTY #elif HAVE_ISATTY
@ -1280,6 +1280,11 @@ static void InitVersion(void) {
Yap_PutValue(AtomVersionNumber, MkAtomTerm(Yap_LookupAtom(YAP_FULL_VERSION))); Yap_PutValue(AtomVersionNumber, MkAtomTerm(Yap_LookupAtom(YAP_FULL_VERSION)));
} }
const char *Yap_version(void) {
Term t = Yap_GetValue(AtomVersionNumber);
return RepAtom(AtomOfTerm(t))->StrOfAE;
}
void Yap_InitWorkspace(UInt Heap, UInt Stack, UInt Trail, UInt Atts, void Yap_InitWorkspace(UInt Heap, UInt Stack, UInt Trail, UInt Atts,
UInt max_table_size, int n_workers, int sch_loop, UInt max_table_size, int n_workers, int sch_loop,
int delay_load) { int delay_load) {
@ -1357,12 +1362,12 @@ void Yap_InitWorkspace(UInt Heap, UInt Stack, UInt Trail, UInt Atts,
#endif /* YAPOR || TABLING */ #endif /* YAPOR || TABLING */
Yap_AttsSize = Atts; Yap_AttsSize = Atts;
/* InitAbsmi must be done before InitCodes */ /* InitAbsmi must be done before InitCodes */
/* This must be done before initializing predicates */ /* This must be done before initializing predicates */
#ifdef MPW #ifdef MPW
Yap_InitAbsmi(REGS, FunctorList); Yap_InitAbsmi(REGS, FunctorList);
#else #else
Yap_InitAbsmi(); Yap_InitAbsmi();
#endif #endif
InitCodes(); InitCodes();
InitOps(); InitOps();