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

new scheme for flags.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@949 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2003-12-04 18:13:04 +00:00
parent 945adacdd5
commit 4c264a968a
12 changed files with 48 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
pl/debug.yap
View File

@@ -396,7 +396,7 @@ debugging :-
'$execute0'(G, M).
'$spycall'(G, M, InControl) :-
'$flags'(G,M,F,F),
F /\ 16'402008 =\= 0, !, % dynamic procedure, logical semantics, or source
F /\ 0x8402000 =\= 0, !, % dynamic procedure, logical semantics, or source
% use the interpreter
'$clause'(G, M, Cl),
CP is '$last_choice_pt',