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

debug mode should be recovered at debug exit.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-04-21 15:01:18 -05:00
parent 43d8e1a287
commit af69088bc3
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pl/directives.yap
View File

@ -234,14 +234,27 @@ yap_flag(generate_debug_info,X) :-
'$access_yap_flags'(18,Options), '$access_yap_flags'(18,Options),
(Options =:= 0 -> X = false ; X = true ). (Options =:= 0 -> X = false ; X = true ).
yap_flag(generate_debug_info,true) :- !, yap_flag(generate_debug_info,true) :- !,
'$enable_restore_flag_info'(generate_debug_info),
'$set_yap_flags'(18,1), '$set_yap_flags'(18,1),
source. source.
yap_flag(generate_debug_info,false) :- !, yap_flag(generate_debug_info,false) :- !,
'$enable_restore_flag_info'(generate_debug_info),
'$set_yap_flags'(18,0), '$set_yap_flags'(18,0),
no_source. no_source.
yap_flag(generate_debug_info,X) :- yap_flag(generate_debug_info,X) :-
'$do_error'(domain_error(flag_value,generate_debug_info+X),yap_flag(generate_debug_info,X)). '$do_error'(domain_error(flag_value,generate_debug_info+X),yap_flag(generate_debug_info,X)).
'$enable_restore_flag_info'(_Flag) :-
nb_getval('$consulting_file',[]), !.
'$enable_restore_flag_info'(Flag) :-
'$show_consult_level'(Level1),
yap_flag(Flag, Info),
% it will be done after we leave the current consult level.
Level is Level1-1,
recorda('$initialisation',do(Level,yap_flag(Flag,Info)),_),
fail.
'$enable_restore_flag_info'(_).
% %
% show state of $ % show state of $
% %