pkgsrc/lang/cu-prolog/patches/patch-ac
2015-12-29 23:34:43 +00:00

18 lines
642 B
Text

$NetBSD: patch-ac,v 1.3 2015/12/29 23:34:45 dholland Exp $
Cast to float correctly.
--- 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));