From fded381282dc362a65ef190e6b216a3b85567c53 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 24 Mar 2006 17:15:20 +0000
Subject: [PATCH] had broken listing when changed "" to ''.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1579 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/alloc.c      | 4 ++--
 C/tracer.c     | 3 ++-
 pl/listing.yap | 2 +-
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/C/alloc.c b/C/alloc.c
index d5ff8f0c5..a7a751700 100644
--- a/C/alloc.c
+++ b/C/alloc.c
@@ -12,7 +12,7 @@
 * Last rev:								 *
 * mods:									 *
 * comments:	allocating space					 *
-* version:$Id: alloc.c,v 1.81 2006-03-24 16:26:25 vsc Exp $		 *
+* version:$Id: alloc.c,v 1.82 2006-03-24 17:15:18 vsc Exp $		 *
 *************************************************************************/
 #ifdef SCCS
 static char SccsId[] = "%W% %G%";
@@ -235,7 +235,7 @@ InitExStacks(int Trail, int Stack)
 
 #ifdef DEBUG
   if (Yap_output_msg) {
-    Uint ta;
+    UInt ta;
 
     fprintf(stderr, "HeapBase = %p  GlobalBase = %p\n  LocalBase = %p  TrailTop = %p\n",
 	       Yap_HeapBase, Yap_GlobalBase, Yap_LocalBase, Yap_TrailTop);
diff --git a/C/tracer.c b/C/tracer.c
index 3d597f7a4..db5a8f39e 100644
--- a/C/tracer.c
+++ b/C/tracer.c
@@ -126,7 +126,8 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
 
   sc = Yap_heap_regs;
   vsc_count++;
-  if (vsc_count == 229) jmp_deb(1);
+  if (vsc_count < 183400)
+    return;
 #ifdef COMMENTED
   //  if (vsc_count == 218280)
   //    vsc_xstop = 1;
diff --git a/pl/listing.yap b/pl/listing.yap
index dd2726286..6841ff0cc 100644
--- a/pl/listing.yap
+++ b/pl/listing.yap
@@ -95,7 +95,7 @@ portray_clause(_).
 '$write_body'((P,Q), I, T, Stream) :-
         !,
         '$write_body'(P,I,T, Stream),
-        put(Stream, ','),
+        put(Stream, 0',),
         '$write_body'(Q,I,',',Stream).
 '$write_body'((P->Q;S),I,_, Stream) :-
 	!,