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

further optimisations to execute a,b.

Browse Source 
cleanups.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@176 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-10-31 20:16:48 +00:00
parent 2bfcbe7cb9
commit a628251951
10 changed files with 138 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
C/init.c
View File

@@ -722,7 +722,7 @@ InitFlags(void)
yap_flags[SOURCE_MODE_FLAG] = FALSE;
yap_flags[CHARACTER_ESCAPE_FLAG] = ISO_CHARACTER_ESCAPES;
yap_flags[WRITE_QUOTED_STRING_FLAG] = FALSE;
#if (defined(YAPOR) || defined(THREADS)) && PURE_YAPOR
#if (defined(YAPOR) || defined(THREADS)) && PUREe_YAPOR
yap_flags[ALLOW_ASSERTING_STATIC_FLAG] = FALSE;
#else
yap_flags[ALLOW_ASSERTING_STATIC_FLAG] = TRUE;
@@ -953,6 +953,7 @@ InitCodes(void)
heap_regs->functor_g_number = MkFunctor(LookupAtom("number"), 1);
heap_regs->functor_g_primitive = MkFunctor(LookupAtom("primitive"), 1);
heap_regs->functor_g_var = MkFunctor(AtomGVar, 1);
heap_regs->functor_last_execute_within = MkFunctor(LookupAtom("$last_execute_within"), 1);
heap_regs->functor_list = MkFunctor(LookupAtom("."), 2);
heap_regs->functor_module = MkFunctor(LookupAtom(":"), 2);
#ifdef MULTI_ASSIGNMENT_VARIABLES