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

fix stack_dump

Browse Source
This commit is contained in:
Vitor Santos Costa 2008-08-25 15:20:18 +01:00
parent a6b9d096a6
commit 8169ef0343
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/hacks.yap
View File

@ -25,7 +25,7 @@ stack_dump(Max) :-
length(CPs, LCPs),
length(Envs, LEnvs),
format(user_error,'~n~n~tStack Dump~t~40+~n~nAddress~tChoiceP~16+ Cur/Next Clause Goal~n',[LCPs,LEnvs]),
display_stack_info(CPs, Envs, Max, ContP, StackInfo, StackInfo, []),
'$hacks':display_stack_info(CPs, Envs, Max, ContP, StackInfo, []),
run_formats(StackInfo, user_error).
run_formats([], _).

4
pl/hacks.yap
View File

@ -104,7 +104,7 @@ show_cp(CP, Continuation) -->
[Addr, Continuation, ClNo, Mod]]
),
{clean_goal(Goal,Mod,G)},
['~@.~q~n' - write_term(G,Opts)].
['~@.~n' - write_term(G,Opts)].
show_env(Env,Cont,NCont) -->
{
@ -114,7 +114,7 @@ show_env(Env,Cont,NCont) -->
[ '0x~16r~t ~16+ Cur~t ~d~16+ ~q:' -
[Addr, ClId, Mod] ],
{scratch_goal(Name, Arity, Mod, G)},
['~@.~q~n' - write_term(G,Opts)].
['~@.~n' - write_term(G,Opts)].
clean_goal(G,Mod,NG) :-
beautify_hidden_goal(G,Mod,[NG],[]), !.