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

ifix warning.

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-12-30 16:02:59 +00:00
parent 22a4dcf9bd
commit 5d3d20f723
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/cdmgr.c
View File

@ -1286,7 +1286,7 @@ decrease_log_indices(LogUpdIndex *c, yamop *suspend_code)
{ {
/* decrease all reference counters */ /* decrease all reference counters */
yamop *beg = c->ClCode, *end, *ipc; yamop *beg = c->ClCode, *end, *ipc;
op_numbers op;
if (c->ClFlags & SwitchTableMask) { if (c->ClFlags & SwitchTableMask) {
CELL *end = (CELL *)((char *)c+c->ClSize); CELL *end = (CELL *)((char *)c+c->ClSize);
CELL *beg = (CELL *)(c->ClCode); CELL *beg = (CELL *)(c->ClCode);
@ -1299,7 +1299,6 @@ decrease_log_indices(LogUpdIndex *c, yamop *suspend_code)
} }
return; return;
} }
op = Yap_op_from_opcode(beg->opc);
end = (yamop *)((CODEADDR)c+c->ClSize); end = (yamop *)((CODEADDR)c+c->ClSize);
ipc = beg; ipc = beg;
cleanup_dangling_indices(ipc, beg, end, suspend_code); cleanup_dangling_indices(ipc, beg, end, suspend_code);
@ -5428,7 +5427,6 @@ ClauseId(yamop *ipc, PredEntry *pe)
static Int static Int
p_env_info( USES_REGS1 ) p_env_info( USES_REGS1 )
{ {
PredEntry *pe;
CELL *env = LCL0-IntegerOfTerm(Deref(ARG1)); CELL *env = LCL0-IntegerOfTerm(Deref(ARG1));
yamop *env_cp; yamop *env_cp;
Term env_b, taddr; Term env_b, taddr;
@ -5438,7 +5436,7 @@ p_env_info( USES_REGS1 )
env_b = MkIntegerTerm((Int)(LCL0-(CELL *)env[E_CB])); env_b = MkIntegerTerm((Int)(LCL0-(CELL *)env[E_CB]));
env_cp = (yamop *)env[E_CP]; env_cp = (yamop *)env[E_CP];
pe = PREVOP(env_cp,Osbpp)->u.Osbpp.p0; /* pe = PREVOP(env_cp,Osbpp)->u.Osbpp.p0; */
taddr = MkIntegerTerm((Int)env); taddr = MkIntegerTerm((Int)env);
return Yap_unify(ARG3,MkIntegerTerm((Int)env_cp)) && return Yap_unify(ARG3,MkIntegerTerm((Int)env_cp)) &&
Yap_unify(ARG2, taddr) && Yap_unify(ARG2, taddr) &&