added Low Profiler to yap

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@804 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rslopes
2003-03-21 16:18:42 +00:00
parent 0418e54be4
commit 1febfedc9d
4 changed files with 60 additions and 0 deletions

View File

@@ -1323,6 +1323,10 @@ MSCHandleSignal(DWORD dwCtrlType) {
static void
InitSignals (void)
{
#ifdef LOW_PROF
return;
#endif
#if !defined(LIGHT) && !_MSC_VER && !defined(__MINGW32__) && !defined(LIGHT)
my_signal (SIGQUIT, ReceiveSignal);
my_signal (SIGKILL, ReceiveSignal);
@@ -2001,7 +2005,11 @@ p_alarm(void)
Int left;
Term tout;
#ifdef LOW_PROF
left=0;
#else
left = alarm(IntegerOfTerm(t));
#endif
tout = MkIntegerTerm(left);
return(Yap_unify(ARG2,tout));
}