Changeset 10692


Ignore:
Timestamp:
Sep 10, 2008, 6:53:46 AM (11 years ago)
Author:
gb
Message:

Move WITH-FILENAME-CSTRS elsewhere.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r10683 r10692  
    229229  (cwd path))
    230230
    231 (defmacro with-filename-cstrs (&rest rest)
    232   `(#+darwin-target with-utf-8-cstrs
    233     #+windows-target with-native-utf-16-cstrs
    234     #-(or darwin-target windows-target) with-cstrs ,@rest))
     231
    235232
    236233
     
    354351     (#_ __xstat #$_STAT_VER_LINUX cname stat)
    355352     #-linux-target
    356      (int-errno-call (#+windows-target #__wstat64 #-windows-target #_stat cname stat))
     353     (int-errno-ffcall (%kernel-import target::kernel-import-lisp-stat)
     354                       :address cname
     355                       :address stat
     356                       :int)
    357357     stat)))
    358358
     
    362362   (#_ __fxstat #$_STAT_VER_LINUX fd stat)
    363363   #-linux-target
    364    (int-errno-call (#+windows-target #__fstat64 #-windows-target #_fstat fd stat))
     364   (int-errno-ffcall (%kernel-import target::kernel-import-lisp-fstat)
     365                     :int fd
     366                     :address stat
     367                     :int)
    365368   stat))
    366369
Note: See TracChangeset for help on using the changeset viewer.