Changeset 10873


Ignore:
Timestamp:
Sep 25, 2008, 1:21:02 PM (11 years ago)
Author:
gb
Message:

Define *WINDOWS-INVALID-HANDLE*, which is EQL to what Windows returns if
it can't create a HANDLE. (Except when it returns some sort of integer ...).
Revive *WINDOWS-INVALID-HANDLE* on startup.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-cfm-support.lisp

    r10710 r10873  
    2020(in-package "CCL")
    2121
     22#+windows-target
     23(progn
     24  (defvar *windows-invalid-handle* nil)
     25  (setq *windows-invalid-handle* (%int-to-ptr #+64-bit-target #xffffffffffffffff #+32-bit-target #xffffffff)))
    2226
    2327
     
    471475
    472476  (defun init-windows-ffi ()
     477    (%revive-macptr *windows-invalid-handle*)
    473478    (setq *current-process-handle* (ff-call (foreign-symbol-entry "GetCurrentProcess") :address))
    474479    (setq *enum-process-modules-addr* (foreign-symbol-entry "EnumProcessModules"))   
Note: See TracChangeset for help on using the changeset viewer.