summaryrefslogtreecommitdiff
path: root/lang/cu-prolog/patches/patch-ac
blob: cbd682e3630a3c6a491dd565c7e950e1f507e778 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
$NetBSD: patch-ac,v 1.2 2001/02/24 15:45:53 jtb Exp $

--- defsysp.c.orig	Wed Jul  7 02:21:11 1999
+++ defsysp.c		Wed Jul  7 02:21:32 1999
@@ -932,9 +932,9 @@
   t1 = t2 = Nnum_val(0.0,TEMPORAL);
 #else
   times(&TIMES);
-  t1 = Nnum_val(((float)(TIMES.tms_stime+TIMES.tms_utime-OLD_TIME))/CPUTIME.0,
+  t1 = Nnum_val(((float)(TIMES.tms_stime+TIMES.tms_utime-OLD_TIME))/(float)CPUTIME,
 		TEMPORAL);
-  t2 = Nnum_val(((float)CONSTRAINT_HANDLING_TIME)/CPUTIME.0,TEMPORAL);
+  t2 = Nnum_val(((float)CONSTRAINT_HANDLING_TIME)/(float)CPUTIME,TEMPORAL);
 #endif
 #endif
   upush(&(p1->p_body));	upush(&(p1->p_env));