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

9
collects/mzlib/os.ss
View File

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