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

absmi should PREG, never P!!

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1440 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-11-04 15:39:14 +00:00
parent 3e0d7d8749
commit 934b4edb9e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/absmi.c
View File

@ -10,8 +10,11 @@
* * * *
* File: absmi.c * * File: absmi.c *
* comments: Portable abstract machine interpreter * * comments: Portable abstract machine interpreter *
* Last rev: $Date: 2005-10-28 17:38:49 $,$Author: vsc $ * * Last rev: $Date: 2005-11-04 15:39:14 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.180 2005/10/28 17:38:49 vsc
* sveral updates
*
* Revision 1.179 2005/10/18 17:04:43 vsc * Revision 1.179 2005/10/18 17:04:43 vsc
* 5.1: * 5.1:
* - improvements to GC * - improvements to GC
@ -6713,7 +6716,7 @@ Yap_absmi(int inp)
BOp(call_cpred, sla); BOp(call_cpred, sla);
if (!(P->u.sla.sla_u.p->PredFlags & ( SafePredFlag|HiddenPredFlag))) { if (!(PREG->u.sla.sla_u.p->PredFlags & ( SafePredFlag|HiddenPredFlag))) {
CACHE_Y_AS_ENV(YREG); CACHE_Y_AS_ENV(YREG);
check_stack(NoStackCall, H); check_stack(NoStackCall, H);
ENDCACHE_Y_AS_ENV(); ENDCACHE_Y_AS_ENV();
@ -6760,11 +6763,9 @@ Yap_absmi(int inp)
/* guarantee that *all* machine registers are saved and */ /* guarantee that *all* machine registers are saved and */
/* restored */ /* restored */
BOp(call_usercpred, sla); BOp(call_usercpred, sla);
#ifdef COROUTINING
CACHE_Y_AS_ENV(YREG); CACHE_Y_AS_ENV(YREG);
check_stack(NoStackCall, H); check_stack(NoStackCall, H);
ENDCACHE_Y_AS_ENV(); ENDCACHE_Y_AS_ENV();
#endif
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
{ {
choiceptr top_b = PROTECT_FROZEN_B(B); choiceptr top_b = PROTECT_FROZEN_B(B);