fix warning

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1295 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-05-26 18:07:32 +00:00
parent 35357f7f17
commit e6de26a000

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-04-10 04:01:07 $,$Author: vsc $ * * Last rev: $Date: 2005-05-26 18:07:32 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.163 2005/04/10 04:01:07 vsc
* bug fixes, I hope!
*
* Revision 1.162 2005/04/07 17:48:53 ricroc * Revision 1.162 2005/04/07 17:48:53 ricroc
* Adding tabling support for mixed strategy evaluation (batched and local scheduling) * Adding tabling support for mixed strategy evaluation (batched and local scheduling)
* UPDATE: compilation flags -DTABLING_BATCHED_SCHEDULING and -DTABLING_LOCAL_SCHEDULING removed. To support tabling use -DTABLING in the Makefile or --enable-tabling in configure. * UPDATE: compilation flags -DTABLING_BATCHED_SCHEDULING and -DTABLING_LOCAL_SCHEDULING removed. To support tabling use -DTABLING in the Makefile or --enable-tabling in configure.
@ -1329,7 +1332,7 @@ Yap_absmi(int inp)
PREG = ipc; PREG = ipc;
UNLOCK(pe->PELock); UNLOCK(pe->PELock);
if (PREG == NULL) FAIL(); if (PREG == NULL) FAIL();
CACHED_A1() = ARG1; CACHE_A1();
JMPNext(); JMPNext();
} }
ENDBOp(); ENDBOp();
@ -7213,7 +7216,7 @@ Yap_absmi(int inp)
Yap_IPred(ap, 0); Yap_IPred(ap, 0);
/* IPred can generate errors, it thus must get rid of the lock itself */ /* IPred can generate errors, it thus must get rid of the lock itself */
setregs(); setregs();
CACHED_A1() = ARG1; CACHE_A1();
PREG = ap->CodeOfPred; PREG = ap->CodeOfPred;
WRITE_UNLOCK(ap->PRWLock); WRITE_UNLOCK(ap->PRWLock);
} }