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

fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@412 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-03-12 15:10:09 +00:00
parent 3b9219afe4
commit de1a4700b6
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/sysbits.c
View File

@ -2149,7 +2149,7 @@ VaxFixFrame (dummy)
#endif #endif
#ifdef _WIN32 #if defined(_WIN32) || defined(__CYGWIN__)
#include <windows.h> #include <windows.h>

9
pl/utils.yap
View File

@ -632,8 +632,8 @@ profile_data(P, Parm, Data) :- var(P), !,
'$profile_say'(Stats, Parm, Data). '$profile_say'(Stats, Parm, Data).
'$profile_data_for_var'(Name/Arity, Parm, Data, M) :- '$profile_data_for_var'(Name/Arity, Parm, Data, M) :-
'$current_predicate'(M,_,P), '$current_predicate'(M,Name,Arity),
functor(P, Name, Arity), functor(P,Na,Ar),
'$profile_info'(M, P, Stats), '$profile_info'(M, P, Stats),
'$profile_say'(Stats, Parm, Data). '$profile_say'(Stats, Parm, Data).
@ -644,8 +644,9 @@ profile_data(P, Parm, Data) :- var(P), !,
profile_reset :- profile_reset :-
current_module(M), current_module(M),
'$current_predicate'(M,_,P0), '$current_predicate'(M,Na,Ar),
'$profile_reset'(M, P0), functor(P,Na,Ar),
'$profile_reset'(M, P),
fail. fail.
profile_reset. profile_reset.