stupid bug
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1053 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
40d678bf38
commit
f27f330d38
@ -11,8 +11,11 @@
|
||||
* File: cdmgr.c *
|
||||
* comments: Code manager *
|
||||
* *
|
||||
* Last rev: $Date: 2004-04-27 15:03:43 $,$Author: vsc $ *
|
||||
* Last rev: $Date: 2004-04-27 16:21:16 $,$Author: vsc $ *
|
||||
* $Log: not supported by cvs2svn $
|
||||
* Revision 1.119 2004/04/27 15:03:43 vsc
|
||||
* more fixes for expand_clauses
|
||||
*
|
||||
* Revision 1.118 2004/04/14 19:10:23 vsc
|
||||
* expand_clauses: keep a list of clauses to expand
|
||||
* fix new trail scheme for multi-assignment variables
|
||||
@ -367,11 +370,11 @@ cleanup_dangling_indices(yamop *ipc, yamop *beg, yamop *end, yamop *suspend_code
|
||||
break;
|
||||
/* instructions type e */
|
||||
case _switch_on_type:
|
||||
ipc = NEXTOP(ipc,llll);
|
||||
release_wcls(ipc->u.llll.l1, ecs);
|
||||
release_wcls(ipc->u.llll.l2, ecs);
|
||||
release_wcls(ipc->u.llll.l3, ecs);
|
||||
release_wcls(ipc->u.llll.l4, ecs);
|
||||
ipc = NEXTOP(ipc,llll);
|
||||
break;
|
||||
case _switch_list_nl:
|
||||
release_wcls(ipc->u.ollll.l1, ecs);
|
||||
|
@ -9,10 +9,11 @@
|
||||
**************************************************************************
|
||||
* *
|
||||
* File: errors.yap *
|
||||
* Last rev: 8/2/88 *
|
||||
* mods: *
|
||||
* comments: error messages for YAP *
|
||||
* *
|
||||
* Last rev: $Date: 2004-04-27 16:21:25 $,$Author: vsc $ *
|
||||
* $Log: not supported by cvs2svn $ *
|
||||
* *
|
||||
*************************************************************************/
|
||||
|
||||
'$do_error'(Type,Message) :-
|
||||
|
Reference in New Issue
Block a user