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

@ -1 +1 @@
Subproject commit d41891071193a6c9d20b30bdbe709531948e111b
Subproject commit b1c05f2dfba27286d3810c6921d027cecd528b01

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, _),