suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix _date to allow dates before 1970 year

Browse Source 
(cherry picked from commit 7d65ee6127)
This commit is contained in:
Kalimehtar 2014-07-11 16:42:09 +06:00 committed by Ryan Culpepper
parent 6e4234e32b
commit 1962da8587
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
racket/collects/ffi/unsafe/com.rkt
View File

@ -1447,13 +1447,16 @@
(define s (make-SYSTEMTIME 0 0 0 0 0 0 0 0)) (define s (make-SYSTEMTIME 0 0 0 0 0 0 0 0))
(unless (not (zero? (VariantTimeToSystemTime d s))) (unless (not (zero? (VariantTimeToSystemTime d s)))
(error 'date "error converting date from COM date")) (error 'date "error converting date from COM date"))
(seconds->date (date (SYSTEMTIME-wSecond s)
(find-seconds (SYSTEMTIME-wSecond s) (SYSTEMTIME-wMinute s)
(SYSTEMTIME-wMinute s) (SYSTEMTIME-wHour s)
(SYSTEMTIME-wHour s) (SYSTEMTIME-wDay s)
(SYSTEMTIME-wDay s) (SYSTEMTIME-wMonth s)
(SYSTEMTIME-wMonth s) (SYSTEMTIME-wYear s)
(SYSTEMTIME-wYear s)))))) (SYSTEMTIME-wDayOfWeek s)
0
#f
0))))
(define _currency (define _currency
(make-ctype _CY (make-ctype _CY