Changeset 8330 in project


Ignore:
Timestamp:
02/10/08 16:52:44 (10 years ago)
Author:
kon
Message:

Fix for non-0 term'd str use in 'string->time' & 'time->string'. [Thanks to Hans Bulfone for pointing it out]

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/buildsvnrevision

    r8311 r8330  
    1 8310
     18329
  • chicken/trunk/posixunix.scm

    r7985 r8330  
    18441844          (begin
    18451845            (##sys#check-string fmt 'time->string)
    1846             (or (strftime tm fmt)
     1846            (or (strftime tm (##sys#make-c-string fmt))
    18471847                (##sys#error 'time->string "time formatting overflows buffer" tm)) )
    18481848          (let ([str (asctime tm)])
     
    18561856      (##sys#check-string tim 'string->time)
    18571857      (##sys#check-string fmt 'string->time)
    1858       (strptime tim fmt (make-vector 10 #f)) ) ) )
     1858      (strptime (##sys#make-c-string tim) (##sys#make-c-string fmt) (make-vector 10 #f)) ) ) )
    18591859
    18601860(define (local-time->seconds tm)
  • chicken/trunk/posixwin.scm

    r7984 r8330  
    16091609          (begin
    16101610            (##sys#check-string fmt 'time->string)
    1611             (or (strftime tm fmt)
     1611            (or (strftime tm (##sys#make-c-string fmt))
    16121612                (##sys#error 'time->string "time formatting overflows buffer" tm)) )
    16131613          (let ([str (asctime tm)])
Note: See TracChangeset for help on using the changeset viewer.