Changeset 33962 in project


Ignore:
Timestamp:
04/15/17 17:35:53 (7 months ago)
Author:
felix
Message:

buffer-ports 0.7: applied bugfixes by Moritz

Location:
release/4/buffer-ports
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/buffer-ports/tags/0.7/buffer-ports.scm

    r25744 r33962  
    115115     ((##sys#slot p 13) p))
    116116   (lambda (p) #f)                      ; flush-output
    117    (lambda (p)                          ; char-ready?
    118      (fx< (##sys#slot p 10) (##sys#slot p 11)) )
     117   (lambda (p) #t)                      ; char-ready?
    119118   (lambda (p n dest start)             ; read-string!
    120119     (let* ((pos (##sys#slot p 10))
     
    149148       (if (fx>= pos len)
    150149           ""
    151            (let ((buffered (##sys#make-string len)))
     150           (let ((buffered (##sys#make-string (fx- len pos))))
    152151             (##core#inline "C_copy_pointer_to_string" ptr buffered pos (fx+ pos len) 0)
    153152             (##sys#setislot p 10 len)
     
    159158           (##sys#check-exact len loc)
    160159           (when s
    161              (assert (and (positive? len) (< len s))
     160             (assert (and (positive? len) (<= len s))
    162161                     "length exceeds object limit" len s x)))
    163162          (else
  • release/4/buffer-ports/tags/0.7/buffer-ports.setup

    r30342 r33962  
    22
    33
    4 (standard-extension 'buffer-ports "0.6")
     4(standard-extension 'buffer-ports "0.7")
  • release/4/buffer-ports/trunk/buffer-ports.scm

    r25744 r33962  
    115115     ((##sys#slot p 13) p))
    116116   (lambda (p) #f)                      ; flush-output
    117    (lambda (p)                          ; char-ready?
    118      (fx< (##sys#slot p 10) (##sys#slot p 11)) )
     117   (lambda (p) #t)                      ; char-ready?
    119118   (lambda (p n dest start)             ; read-string!
    120119     (let* ((pos (##sys#slot p 10))
     
    149148       (if (fx>= pos len)
    150149           ""
    151            (let ((buffered (##sys#make-string len)))
     150           (let ((buffered (##sys#make-string (fx- len pos))))
    152151             (##core#inline "C_copy_pointer_to_string" ptr buffered pos (fx+ pos len) 0)
    153152             (##sys#setislot p 10 len)
     
    159158           (##sys#check-exact len loc)
    160159           (when s
    161              (assert (and (positive? len) (< len s))
     160             (assert (and (positive? len) (<= len s))
    162161                     "length exceeds object limit" len s x)))
    163162          (else
  • release/4/buffer-ports/trunk/buffer-ports.setup

    r30342 r33962  
    22
    33
    4 (standard-extension 'buffer-ports "0.6")
     4(standard-extension 'buffer-ports "0.7")
Note: See TracChangeset for help on using the changeset viewer.