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

read only flag to emulate debug_on_exception SWI flag.

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-12-11 22:07:44 +00:00
parent e41f821d67
commit 63a5daa295
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/flags.yap
View File

@ -118,6 +118,18 @@ yap_flag(agc_margin,Margin) :-
% %
% SWI compatibility flag % SWI compatibility flag
% %
yap_flag(debug_on_error,X) :-
var(X), !,
X = false.
yap_flag(debug_on_error,true) :- !,
X = true,
'$do_error'(domain_error(flag_value,debug_on_error+X),yap_flag(debug_on_error,X)).
yap_flag(debug_on_error,false) :- !.
yap_flag(debug_on_error,X) :-
'$do_error'(domain_error(flag_value,debug_on_error+X),yap_flag(debug_on_error,X)).
yap_flag(generate_debug_info,X) :- yap_flag(generate_debug_info,X) :-
var(X), !, var(X), !,
'$access_yap_flags'(18,Options), '$access_yap_flags'(18,Options),
@ -830,6 +842,7 @@ yap_flag(dialect,yap).
'$yap_system_flag'(character_escapes). '$yap_system_flag'(character_escapes).
'$yap_system_flag'(chr_toplevel_show_store). '$yap_system_flag'(chr_toplevel_show_store).
'$yap_system_flag'(debug). '$yap_system_flag'(debug).
'$yap_system_flag'(debug_on_error ).
'$yap_system_flag'(debugger_print_options). '$yap_system_flag'(debugger_print_options).
'$yap_system_flag'(dialect). '$yap_system_flag'(dialect).
'$yap_system_flag'(discontiguous_warnings). '$yap_system_flag'(discontiguous_warnings).