Changeset 8737


Ignore:
Timestamp:
Mar 11, 2008, 7:24:49 PM (12 years ago)
Author:
gb
Message:

Comment-out unfinished windows code so that the file compiles.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-0/l0-cfm-support.lisp

    r8717 r8737  
    460460  ) 
    461461
    462 #+windows-target
     462#||
    463463(progn
    464464  (defvar *current-process-handle* (ff-call (foreign-symbol-entry "GetCurrentProcess") :address))
     
    564564                   :address pcbneeded)
    565565          (let* ((cbneeded (pref pcbneeded #>DWORD)))
    566             (if (< cb
     566            (if (< cb cbneeded)
     567              (setq cb cbneeded)
     568              (let* ((nmodules (%fixnum-floor cbneeded (record-length #>HMODULE))))
     569               
    567570 
    568571
    569            
    570572;;; end windows-target
    571573
    572 
     574||#
    573575
    574576(defun ensure-open-shlib (c force)
Note: See TracChangeset for help on using the changeset viewer.