Changeset 6437 for branches/x8664-call


Ignore:
Timestamp:
May 8, 2007, 1:12:33 AM (13 years ago)
Author:
gb
Message:

More file-mapping fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/level-1/linux-files.lisp

    r6436 r6437  
    12731273         (base-address (%inc-ptr data-address (- *host-page-size*)))
    12741274         (fd (pref base-address :int)))
     1275      (let* ((element-type (array-element-type displaced-vector)))
     1276        (adjust-array displaced-vector 0
     1277                      :element-type element-type
     1278                      :displaced-to (make-array 0 :element-type element-type)
     1279                      :displaced-index-offset 0))
    12751280      (with-lock-grabbed (*heap-ivector-lock*)
    12761281        (setq *heap-ivectors* (delete v *heap-ivectors*)))
    1277       (#_munmap base-address (+ size-in-octets *host-page-size*))
     1282      (#_munmap base-address (+ size-in-octets *host-page-size*))     
    12781283      (fd-close fd)
    12791284      t)))
Note: See TracChangeset for help on using the changeset viewer.