From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Feb 1997 05:26:20 +0000 (+0000)
Subject: Fix typo in translation of unix time to NT file time.
X-Git-Tag: 20090517-FFI~5257
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=87c3d0bb4f2b086d92580b70119b3daa7555a3b2;p=mit-scheme.git

Fix typo in translation of unix time to NT file time.
---

diff --git a/v7/src/microcode/prntfs.c b/v7/src/microcode/prntfs.c
index 29ee6f8de..1a7cafa22 100644
--- a/v7/src/microcode/prntfs.c
+++ b/v7/src/microcode/prntfs.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prntfs.c,v 1.10 1997/01/05 23:41:16 cph Exp $
+$Id: prntfs.c,v 1.11 1997/02/20 05:26:20 cph Exp $
 
 Copyright (c) 1993-97 Massachusetts Institute of Technology
 
@@ -153,7 +153,7 @@ file_time_to_unix_time (FILETIME * ft)
 void
 unix_time_to_file_time (unsigned long ut, FILETIME * ft)
 {
-  double ud = (((double) ut) * 10000000.);
+  double ud = ((((double) ut) * 10000000.) + ut_zero);
   double udh = (floor (ud / 4294967296.));
   (ft -> dwHighDateTime) = ((DWORD) udh);
   (ft -> dwLowDateTime) = ((DWORD) (ud -(udh * 4294967296.)));