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

removed some compilation warnings related to the cut-c code

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1471 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
tiagosoares 2005-11-24 15:35:29 +00:00
parent a170002981
commit da4e302b28
2 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/index.c
View File

@ -11,8 +11,11 @@
* File: index.c *
* comments: Indexing a Prolog predicate *
* *
* Last rev: $Date: 2005-11-18 18:48:52 $,$Author: tiagosoares $ *
* Last rev: $Date: 2005-11-24 15:33:52 $,$Author: tiagosoares $ *
* $Log: not supported by cvs2svn $
* Revision 1.147 2005/11/18 18:48:52 tiagosoares
* support for executing c code when a cut occurs
*
* Revision 1.146 2005/10/29 02:21:47 vsc
* people should be able to disable indexing.
*
@ -1981,6 +1984,10 @@ add_info(ClauseDef *clause, UInt regno)
case _try_userc:
case _retry_c:
case _retry_userc:
#ifdef CUT_C
case _cut_c:
case _cut_userc:
#endif
case _switch_on_type:
case _switch_list_nl:
case _switch_on_arg_type:

14
H/rclause.h
View File

@ -12,8 +12,12 @@
* File: rclause.h *
* comments: walk through a clause *
* *
* Last rev: $Date: 2005-09-19 19:14:50 $,$Author: vsc $ *
* Last rev: $Date: 2005-11-24 15:35:29 $,$Author: tiagosoares $ *
* $Log: not supported by cvs2svn $
* Revision 1.12 2005/09/19 19:14:50 vsc
* fix two instructions that were being read badly: op_fail and
* switch_list_nl.
*
* Revision 1.11 2005/09/08 21:55:47 rslopes
* BEAM for YAP update...
*
@ -768,6 +772,14 @@ restore_opcodes(yamop *pc)
pc->u.lds.p = PtoPredAdjust(pc->u.lds.p);
pc = NEXTOP(pc,lds);
break;
#ifdef CUT_C
case _cut_c:
case _cut_userc:
/* don't need to do nothing here, because this two instructions
are "phantom" instructions. (see: cut_c implementation paper
on PADL 2006) */
break;
#endif
/* instructions type llll */
case _switch_on_type:
pc->u.llll.l1 = PtoOpAdjust(pc->u.llll.l1);