fix user-c spying.
This commit is contained in:
parent
80966dd286
commit
c78aa3cf1d
@ -1 +1 @@
|
||||
Subproject commit d41891071193a6c9d20b30bdbe709531948e111b
|
||||
Subproject commit b1c05f2dfba27286d3810c6921d027cecd528b01
|
@ -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, _),
|
||||
|
Reference in New Issue
Block a user