Ignore:
Timestamp:
Nov 30, 2009, 3:23:29 PM (10 years ago)
Author:
gz
Message:

r13225 from trunk (fix for execute permission when prepending symbols)

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl

  • branches/working-0711/ccl/lib/dumplisp.lisp

    r13142 r13235  
    270270      (%delete-file filename))
    271271    (when prepend-fd
    272       (setq mode (logior #o111 mode)))
     272      ;; Copy the execute mode bits from the prepended "kernel".
     273      (let ((prepend-fd-mode (nth-value 1 (%fstat prepend-fd))))
     274        (setq mode (logior (logand prepend-fd-mode #o111) mode))))
    273275    (let* ((image-fd (fd-open filename (logior #$O_WRONLY #$O_CREAT) mode)))
    274276      (unless (>= image-fd 0) (signal-file-error image-fd filename))
Note: See TracChangeset for help on using the changeset viewer.