projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5740c0e
)
[project @ 1999-09-12 14:39:50 by sof]
author
sof
<unknown>
Sun, 12 Sep 1999 14:39:50 +0000
(14:39 +0000)
committer
sof
<unknown>
Sun, 12 Sep 1999 14:39:50 +0000
(14:39 +0000)
s/ZONE/get_ZONE/g
ghc/lib/std/Time.lhs
patch
|
blob
|
history
diff --git
a/ghc/lib/std/Time.lhs
b/ghc/lib/std/Time.lhs
index
fb6b3fe
..
2eecaae
100644
(file)
--- a/
ghc/lib/std/Time.lhs
+++ b/
ghc/lib/std/Time.lhs
@@
-376,7
+376,7
@@
toCalendarTime (TOD (J# s# d#) psec) = do
wday <- _casm_ ``%r = ((struct tm *)%0)->tm_wday;'' tm
yday <- _casm_ ``%r = ((struct tm *)%0)->tm_yday;'' tm
isdst <- _casm_ ``%r = ((struct tm *)%0)->tm_isdst;'' tm
- zone <- _ccall_ ZONE tm
+ zone <- _ccall_ get_ZONE tm
tz <- _ccall_ GMTOFF tm
let tzname = unpackCString zone
return (CalendarTime (1900+year) mon mday hour min sec psec