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

portray within debugger may not be debugged.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@423 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-03-28 18:48:55 +00:00
parent 6f051a5025
commit 6a28b0a02b
3 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/write.c
View File

@ -220,6 +220,15 @@ putAtom(Atom atom) /* writes an atom */
char *s = RepAtom(atom)->StrOfAE; char *s = RepAtom(atom)->StrOfAE;
wtype atom_or_symbol = AtomIsSymbols(s); wtype atom_or_symbol = AtomIsSymbols(s);
#define CRYPT_FOR_STEVE 1
#ifdef CRYPT_FOR_STEVE
if (GetValue(LookupAtom("crypt_atoms")) != TermNil && GetAProp(atom, OpProperty) == NIL) {
char s[16];
sprintf(s,"x%x", (CELL)s);
wrputs(s);
return;
}
#endif
if (lastw == atom_or_symbol && atom_or_symbol != separator /* solo */) if (lastw == atom_or_symbol && atom_or_symbol != separator /* solo */)
wrputc(' '); wrputc(' ');
lastw = atom_or_symbol; lastw = atom_or_symbol;

2
changes4.3.html
View File

@ -16,6 +16,8 @@
<h2>Yap-4.3.21:</h2> <h2>Yap-4.3.21:</h2>
<ul> <ul>
<li>FIXED: debugger could enter infinite loop if spying
portray (Steve Moyle).</li>
<li>FIXED: predicate_property(P,source) (Ines Dutra).</li> <li>FIXED: predicate_property(P,source) (Ines Dutra).</li>
<li>NEW: use system regex routines if available.</li> <li>NEW: use system regex routines if available.</li>
<li>FIXED: profiling.</li> <li>FIXED: profiling.</li>

5
pl/debug.yap
View File

@ -768,6 +768,9 @@ debugging :-
flush_output(user_error), flush_output(user_error),
'$get_value'(debug,1), '$get_value'(debug,1),
repeat, repeat,
'$set_value'(debug,0),
'$get_value'('$trace',OldTrace),
'$set_value'('$trace',0),
('$pred_being_spied'(G,Module) -> write(user_error,'*') ; write(user_error,' ')), ('$pred_being_spied'(G,Module) -> write(user_error,'*') ; write(user_error,' ')),
( SL = L -> write(user_error,'>') ; write(user_error,' ')), ( SL = L -> write(user_error,'>') ; write(user_error,' ')),
write(user_error,' ('), write(user_error,L), write(user_error,') '), write(user_error,' ('), write(user_error,L), write(user_error,') '),
@ -777,6 +780,8 @@ debugging :-
true true
), ),
'$debugger_write'(user_error,G), '$debugger_write'(user_error,G),
'$set_value'(debug,1),
'$set_value'('$trace',OldTrace),
( (
'$unleashed'(P), '$unleashed'(P),
nl(user_error) nl(user_error)