fix user-c spying.

This commit is contained in:
Vitor Santos Costa
2011-07-22 14:10:55 +01:00
parent 80966dd286
commit c78aa3cf1d
2 changed files with 2 additions and 2 deletions

View File

@@ -495,7 +495,7 @@ debugging :-
'$continue_debugging'(no, '$execute_nonstop'(G,M)).
'$spycall'(G, M, CalledFromDebugger, InRedo) :-
'$flags'(G,M,F,F),
F /\ 0x18402000 =\= 0, !, % dynamic procedure, logical semantics, user-C, or source
F /\ 0x08402000 =\= 0, !, % dynamic procedure, logical semantics, or source
% use the interpreter
CP is '$last_choice_pt',
'$clause'(G, M, Cl, _),