From: sof <unknown>
Date: Tue, 3 Jun 1997 23:27:13 +0000 (+0000)
Subject: [project @ 1997-06-03 23:27:13 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~436
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=94f703f4d1c06bdf9b66d89b431a299ad4f8ee23;p=ghc-hetmet.git

[project @ 1997-06-03 23:27:13 by sof]
Added DST arg to toClockSec
---

diff --git a/ghc/lib/cbits/toClockSec.lc b/ghc/lib/cbits/toClockSec.lc
index 71062e5..3107ae3 100644
--- a/ghc/lib/cbits/toClockSec.lc
+++ b/ghc/lib/cbits/toClockSec.lc
@@ -10,7 +10,7 @@
 #include "stgio.h"
 
 StgAddr 
-toClockSec(I_ year, I_ mon, I_ mday, I_ hour, I_ min, I_ sec, I_ tz, StgByteArray res)
+toClockSec(I_ year, I_ mon, I_ mday, I_ hour, I_ min, I_ sec, I_ isdst, StgByteArray res)
 {
     struct tm tm;
     time_t t;
@@ -21,7 +21,7 @@ toClockSec(I_ year, I_ mon, I_ mday, I_ hour, I_ min, I_ sec, I_ tz, StgByteArra
     tm.tm_hour = hour;
     tm.tm_min = min;
     tm.tm_sec = sec;
-    tm.tm_isdst = -1;
+    tm.tm_isdst = isdst;
 
 #ifdef HAVE_MKTIME
     t = mktime(&tm);