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

fix the expand_consult patch 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1618 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-04-28 17:53:44 +00:00
parent 720db316ce
commit 62f7b73f09
2 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C/cdmgr.c
View File

@ -11,8 +11,12 @@
* File: cdmgr.c *
* comments: Code manager *
* *
* Last rev: $Date: 2006-04-28 13:23:22 $,$Author: vsc $ *
* Last rev: $Date: 2006-04-28 17:53:44 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.185 2006/04/28 13:23:22 vsc
* fix number of overflow bugs affecting threaded version
* make current_op faster.
*
* Revision 1.184 2006/04/27 14:11:57 rslopes
* *** empty log message ***
*
@ -1640,10 +1644,10 @@ static void expand_consult(void)
Yap_FreeCodeSpace((char *)ConsultLow);
/* next, set up pointers correctly */
new_cs += (ConsultSp-ConsultLow);
/* put ConsultBase at same offset as before move */
ConsultBase = ConsultBase+(new_cs-ConsultSp);
/* new consult pointer */
ConsultSp = new_cs;
/* reserve 3 slots for the last elements */
ConsultBase = new_cb-3;
/* new end of memory */
ConsultLow = new_cl;
}

14
C/stdpreds.c
View File

@ -11,8 +11,12 @@
* File: stdpreds.c *
* comments: General-purpose C implemented system predicates *
* *
* Last rev: $Date: 2006-04-28 13:23:23 $,$Author: vsc $ *
* Last rev: $Date: 2006-04-28 17:53:44 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.101 2006/04/28 13:23:23 vsc
* fix number of overflow bugs affecting threaded version
* make current_op faster.
*
* Revision 1.100 2006/02/05 02:26:35 tiagosoares
* MYDDAS: Top Level Functionality
*
@ -2994,7 +2998,13 @@ Yap_InitCPreds(void)
init_time();
}
#endif
#if SUPPORT_CONDOR
init_sys();
init_random();
// init_tries();
swi_install();
init_regexp();
#endif
}