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:
parent
720db316ce
commit
62f7b73f09
10
C/cdmgr.c
10
C/cdmgr.c
@ -11,8 +11,12 @@
|
|||||||
* File: cdmgr.c *
|
* File: cdmgr.c *
|
||||||
* comments: Code manager *
|
* 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 $
|
* $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
|
* Revision 1.184 2006/04/27 14:11:57 rslopes
|
||||||
* *** empty log message ***
|
* *** empty log message ***
|
||||||
*
|
*
|
||||||
@ -1640,10 +1644,10 @@ static void expand_consult(void)
|
|||||||
Yap_FreeCodeSpace((char *)ConsultLow);
|
Yap_FreeCodeSpace((char *)ConsultLow);
|
||||||
/* next, set up pointers correctly */
|
/* next, set up pointers correctly */
|
||||||
new_cs += (ConsultSp-ConsultLow);
|
new_cs += (ConsultSp-ConsultLow);
|
||||||
|
/* put ConsultBase at same offset as before move */
|
||||||
|
ConsultBase = ConsultBase+(new_cs-ConsultSp);
|
||||||
/* new consult pointer */
|
/* new consult pointer */
|
||||||
ConsultSp = new_cs;
|
ConsultSp = new_cs;
|
||||||
/* reserve 3 slots for the last elements */
|
|
||||||
ConsultBase = new_cb-3;
|
|
||||||
/* new end of memory */
|
/* new end of memory */
|
||||||
ConsultLow = new_cl;
|
ConsultLow = new_cl;
|
||||||
}
|
}
|
||||||
|
14
C/stdpreds.c
14
C/stdpreds.c
@ -11,8 +11,12 @@
|
|||||||
* File: stdpreds.c *
|
* File: stdpreds.c *
|
||||||
* comments: General-purpose C implemented system predicates *
|
* 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 $
|
* $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
|
* Revision 1.100 2006/02/05 02:26:35 tiagosoares
|
||||||
* MYDDAS: Top Level Functionality
|
* MYDDAS: Top Level Functionality
|
||||||
*
|
*
|
||||||
@ -2994,7 +2998,13 @@ Yap_InitCPreds(void)
|
|||||||
init_time();
|
init_time();
|
||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
#if SUPPORT_CONDOR
|
||||||
|
init_sys();
|
||||||
|
init_random();
|
||||||
|
// init_tries();
|
||||||
|
swi_install();
|
||||||
|
init_regexp();
|
||||||
|
#endif
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user