[Yap-commits] CVS: C amasm.c, 1.101, 1.102 c_interface.c, 1.119, 1.120 index.c, 1.201, 1.202 iopreds.c, 1.182, 1.183

[Vitor S. C. <vs...@us...>]

Update of /cvsroot/yap/C
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv30868/C

Modified Files:
	amasm.c c_interface.c index.c iopreds.c 
Log Message:
fixes by Bart and Tom: mostly libraries but nasty one in indexing 
compilation.


Index: amasm.c
===================================================================
RCS file: /cvsroot/yap/C/amasm.c,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -r1.101 -r1.102
--- amasm.c	1 Apr 2008 22:28:41 -0000	1.101
+++ amasm.c	11 Jul 2008 17:02:07 -0000	1.102
@@ -13,6 +13,10 @@
 *									 *
 * Last rev:     $Date$							 *
 * $Log$
+* Revision 1.102  2008/07/11 17:02:07  vsc
+* fixes by Bart and Tom: mostly libraries but nasty one in indexing
+* compilation.
+*
 * Revision 1.101  2008/04/01 22:28:41  vsc
 * put YAPOR back to life.
 *
@@ -3573,7 +3577,6 @@
     DBTerm *x;
     StaticClause *cl;
     UInt osize;
-
     if(!(x = fetch_clause_space(&t,size,cip,&osize))) {
       return NULL;
     }

Index: c_interface.c
===================================================================
RCS file: /cvsroot/yap/C/c_interface.c,v
retrieving revision 1.119
retrieving revision 1.120
diff -u -r1.119 -r1.120
--- c_interface.c	17 Jun 2008 13:37:48 -0000	1.119
+++ c_interface.c	11 Jul 2008 17:02:07 -0000	1.120
@@ -12,6 +12,10 @@
 *									 *
 * Last rev:	$Date$,$Author$						 *
 * $Log$
+* Revision 1.120  2008/07/11 17:02:07  vsc
+* fixes by Bart and Tom: mostly libraries but nasty one in indexing
+* compilation.
+*
 * Revision 1.119  2008/06/17 13:37:48  vsc
 * fix c_interface not to crash when people try to recover slots that are
 * not there.
@@ -439,6 +443,7 @@
 X_API void    STD_PROTO(YAP_SetOutputMessage, (void));
 X_API int     STD_PROTO(YAP_StreamToFileNo, (Term));
 X_API void    STD_PROTO(YAP_CloseAllOpenStreams,(void));
+X_API void    STD_PROTO(YAP_FlushAllStreams,(void));
 X_API Term    STD_PROTO(YAP_OpenStream,(void *, char *, Term, int));
 X_API long    STD_PROTO(YAP_CurrentSlot,(void));
 X_API long    STD_PROTO(YAP_NewSlots,(int));
@@ -2010,6 +2015,16 @@
   RECOVER_H();
 }
 
+X_API void
+YAP_FlushAllStreams(void)
+{
+  BACKUP_H();
+
+  Yap_FlushStreams();
+
+  RECOVER_H();
+}
+
 X_API Term
 YAP_OpenStream(void *fh, char *name, Term nm, int flags)
 {

Index: index.c
===================================================================
RCS file: /cvsroot/yap/C/index.c,v
retrieving revision 1.201
retrieving revision 1.202
diff -u -r1.201 -r1.202
--- index.c	10 May 2008 23:24:11 -0000	1.201
+++ index.c	11 Jul 2008 17:02:07 -0000	1.202
@@ -13,6 +13,10 @@
 *									 *
 * Last rev:     $Date$,$Author$						 *
 * $Log$
+* Revision 1.202  2008/07/11 17:02:07  vsc
+* fixes by Bart and Tom: mostly libraries but nasty one in indexing
+* compilation.
+*
 * Revision 1.201  2008/05/10 23:24:11  vsc
 * fix threads and LU
 *
@@ -1490,7 +1494,7 @@
     case _write_x_val:
     case _write_x_loc:
     case _write_x_var:
-      cl = NEXTOP(cl,e);
+      cl = NEXTOP(cl,x);
       break;
     case _save_b_x:
     case _put_list:

Index: iopreds.c
===================================================================
RCS file: /cvsroot/yap/C/iopreds.c,v
retrieving revision 1.182
retrieving revision 1.183
diff -u -r1.182 -r1.183
--- iopreds.c	16 Jun 2008 21:22:13 -0000	1.182
+++ iopreds.c	11 Jul 2008 17:02:07 -0000	1.183
@@ -5395,7 +5395,12 @@
   fflush (NULL);
 #endif
   
-  return (TRUE);
+  return TRUE;
+}
+
+void Yap_FlushStreams(void)
+{
+  (void)p_flush_all_streams();
 }
 
 #if HAVE_SELECT