Changeset 9324


Ignore:
Timestamp:
Apr 29, 2008, 10:06:34 AM (11 years ago)
Author:
gb
Message:

Use :_stat64 struct type in windows %fstat.

GETPID: don't trust presence of #_getpid, use #_GetCurrentProcessId
on Windows.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-1/linux-files.lisp

    r9315 r9324  
    414414
    415415(defun %fstat (fd)
    416   (rlet ((stat :stat))
     416  (rlet ((stat #+win64-target #>_stat64 #-win64-target :stat))
    417417    (%%fstat fd stat)))
    418418
     
    685685(defun getpid ()
    686686  "Return the ID of the OpenMCL OS process."
    687   (int-errno-call (#_getpid)))
     687  #-windows-target
     688  (int-errno-call (#_getpid))
     689  #+windows-target (#_GetCurrentProcessId))
     690
    688691
    689692(defun getuid ()
Note: See TracChangeset for help on using the changeset viewer.