had broken listing when changed "" to ''.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1579 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
f8360b6016
commit
fded381282
|
@ -12,7 +12,7 @@
|
||||||
* Last rev: *
|
* Last rev: *
|
||||||
* mods: *
|
* mods: *
|
||||||
* comments: allocating space *
|
* 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
|
#ifdef SCCS
|
||||||
static char SccsId[] = "%W% %G%";
|
static char SccsId[] = "%W% %G%";
|
||||||
|
@ -235,7 +235,7 @@ InitExStacks(int Trail, int Stack)
|
||||||
|
|
||||||
#ifdef DEBUG
|
#ifdef DEBUG
|
||||||
if (Yap_output_msg) {
|
if (Yap_output_msg) {
|
||||||
Uint ta;
|
UInt ta;
|
||||||
|
|
||||||
fprintf(stderr, "HeapBase = %p GlobalBase = %p\n LocalBase = %p TrailTop = %p\n",
|
fprintf(stderr, "HeapBase = %p GlobalBase = %p\n LocalBase = %p TrailTop = %p\n",
|
||||||
Yap_HeapBase, Yap_GlobalBase, Yap_LocalBase, Yap_TrailTop);
|
Yap_HeapBase, Yap_GlobalBase, Yap_LocalBase, Yap_TrailTop);
|
||||||
|
|
|
@ -126,7 +126,8 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
|
||||||
|
|
||||||
sc = Yap_heap_regs;
|
sc = Yap_heap_regs;
|
||||||
vsc_count++;
|
vsc_count++;
|
||||||
if (vsc_count == 229) jmp_deb(1);
|
if (vsc_count < 183400)
|
||||||
|
return;
|
||||||
#ifdef COMMENTED
|
#ifdef COMMENTED
|
||||||
// if (vsc_count == 218280)
|
// if (vsc_count == 218280)
|
||||||
// vsc_xstop = 1;
|
// vsc_xstop = 1;
|
||||||
|
|
|
@ -95,7 +95,7 @@ portray_clause(_).
|
||||||
'$write_body'((P,Q), I, T, Stream) :-
|
'$write_body'((P,Q), I, T, Stream) :-
|
||||||
!,
|
!,
|
||||||
'$write_body'(P,I,T, Stream),
|
'$write_body'(P,I,T, Stream),
|
||||||
put(Stream, ','),
|
put(Stream, 0',),
|
||||||
'$write_body'(Q,I,',',Stream).
|
'$write_body'(Q,I,',',Stream).
|
||||||
'$write_body'((P->Q;S),I,_, Stream) :-
|
'$write_body'((P->Q;S),I,_, Stream) :-
|
||||||
!,
|
!,
|
||||||
|
|
Reference in New Issue