use setitmer instead of alarm.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1886 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-05-20 23:00:38 +00:00
parent ed7873ef8a
commit 5affad32b6
9 changed files with 6316 additions and 6089 deletions
--- a/library/timeout.yap
+++ b/library/timeout.yap
@@ -26,8 +26,9 @@
 %
 time_out(Goal, Time, Result) :-
 	T is Time//1000,
+	UT is (Time mod 1000)*1000,
 	% enable alarm
-	alarm(T,throw(time_out),_),
+	alarm(T.UT,throw(time_out),_),
 	% launch goal and wait for signal
 	( catch(Goal, time_out, Result = time_out)
        % make sure to disable alarm