conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

slight change to implementation of time-gmt-offset so that the 

gmt_off field of the tm struct is not used (not available in
cygwin).
This commit is contained in:
Abdulaziz Ghuloum 2007-12-11 19:32:34 -05:00
parent 54f683f0e0
commit af020f909b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ikarus-runtime.c
View File

@ -849,9 +849,14 @@ ikrt_gmt_offset(ikp t){
time_t clock = time_t clock =
unfix(ref(t, off_record_data + 0*wordsize)) * 1000000 unfix(ref(t, off_record_data + 0*wordsize)) * 1000000
+ unfix(ref(t, off_record_data + 1*wordsize)); + unfix(ref(t, off_record_data + 1*wordsize));
struct tm* m = gmtime(&clock);
time_t gmtclock = mktime(m);
return fix(clock - gmtclock);
/*
struct tm* m = localtime(&clock); struct tm* m = localtime(&clock);
ikp r = fix(m->tm_gmtoff); ikp r = fix(m->tm_gmtoff);
return r; return r;
*/
} }