Changeset 25744 in project for release


Ignore:
Timestamp:
12/30/11 16:00:34 (10 years ago)
Author:
felix winkelmann
Message:

buffer-ports 0.3: fixed missing file-size computation for open/mmap

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

Legend:

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

    r25350 r25744  
    215215     (lambda (name)
    216216       (let* ((fd (file-open name open/rdonly))
     217              (length (file-size fd))
    217218              (mmap (map-file-to-memory #f length prot/read map/shared fd))
    218               (port (open-input-buffer mmap)))
     219              (port (open-input-buffer mmap length)))
    219220         (##sys#setslot port 13 (lambda _ (unmap-file-from-memory mmap)))
    220221         port)))))
  • release/4/buffer-ports/tags/0.3/buffer-ports.setup

    r25350 r25744  
    22
    33
    4 (standard-extension 'buffer-ports "0.2")
     4(standard-extension 'buffer-ports "0.3")
  • release/4/buffer-ports/trunk/buffer-ports.scm

    r25350 r25744  
    215215     (lambda (name)
    216216       (let* ((fd (file-open name open/rdonly))
     217              (length (file-size fd))
    217218              (mmap (map-file-to-memory #f length prot/read map/shared fd))
    218               (port (open-input-buffer mmap)))
     219              (port (open-input-buffer mmap length)))
    219220         (##sys#setslot port 13 (lambda _ (unmap-file-from-memory mmap)))
    220221         port)))))
  • release/4/buffer-ports/trunk/buffer-ports.setup

    r25350 r25744  
    22
    33
    4 (standard-extension 'buffer-ports "0.2")
     4(standard-extension 'buffer-ports "0.3")
Note: See TracChangeset for help on using the changeset viewer.