From: Ben Pfaff <blp@gnu.org>
Date: Tue, 16 Nov 2004 06:18:00 +0000 (+0000)
Subject: Fix XDATE.JDAY formula.
X-Git-Tag: v0.4.0~228
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f9ce8d75ae81553d9aec05351cb2d12d0df33e5e;p=pspp-builds.git

Fix XDATE.JDAY formula.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index e4c9c91d..5d353632 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+Mon Nov 15 22:08:25 2004  Ben Pfaff  <blp@gnu.org>
+
+	* expr-evl.c: (expr_evaluate) Fix XDATE.JDAY formula.  Thanks to
+	John Darrington <john@darrington.wattle.id.au> for reporting this
+	bug.
+
 Tue Nov 16 13:19:18 WST 2004 John Darrington <john@darrington.wattle.id.au>
 
 	* permissions.c command.def Added the PERMISSIONS command
diff --git a/src/expr-evl.c b/src/expr-evl.c
index 04327658..8628cfd3 100644
--- a/src/expr-evl.c
+++ b/src/expr-evl.c
@@ -733,7 +733,7 @@ expr_evaluate (const struct expression *e, const struct ccase *c, int case_idx,
 	  break;
 	case OP_XDATE_JDAY:
 	  if (sp->f != SYSMIS)
-	    sp->f = 86400. * julian_to_jday (sp->f / 86400.);
+	    sp->f = julian_to_jday (sp->f / 86400.);
 	  break;
 	case OP_XDATE_MDAY:
 	  if (sp->f != SYSMIS)