suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use stdcall for windows kernel functions

Browse Source 
svn: r11543

original commit: e5686a5577f39ee641093c792c09ede144a78967
This commit is contained in:
Eli Barzilay 2008-09-04 22:07:23 +00:00
parent 901c60532c
commit f67213751b
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/os.ss
View File

@ -25,7 +25,7 @@
(define windows-getcomputername (define windows-getcomputername
(delay-ffi-obj "GetComputerNameExA" (force kernel32) (delay-ffi-obj "GetComputerNameExA" (force kernel32)
(_fun _int _bytes _cvector -> _int))) (_fun #:abi 'stdcall _int _bytes _cvector -> _int)))
(define (gethostname) (define (gethostname)
(case (system-type) (case (system-type)
@ -53,12 +53,11 @@
;; getpid ;; getpid
(define unix-getpid (define unix-getpid
(delay-ffi-obj "getpid" #f (delay-ffi-obj "getpid" #f (_fun -> _int)))
(_fun -> _int)))
(define windows-getpid (define windows-getpid
(delay-ffi-obj "GetCurrentProcessId" (force kernel32) (delay-ffi-obj "GetCurrentProcessId" (force kernel32)
(_fun -> _int))) (_fun #:abi 'stdcall -> _int)))
(define (getpid) (define (getpid)
(case (system-type) (case (system-type)