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

Use foreign function from MSVCRT on Windows

Browse Source
This commit is contained in:
shhyou 2020-12-24 01:00:09 -06:00 committed by Matthew Flatt
parent f6b7f93895
commit 6e58310176
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
racket/src/cs/rumble/foreign.ss
View File

@ -2042,11 +2042,17 @@
;; function is called with interrupts disabled ;; function is called with interrupts disabled
(define get-errno (define get-errno
(cond (cond
[(foreign-entry? "racket_errno") [(and (not (chez:memq (machine-type) '(a6nt ta6nt i3nt ti3nt)))
(foreign-entry? "racket_errno"))
(foreign-procedure "racket_errno" () int)] (foreign-procedure "racket_errno" () int)]
[else [else
;; We get here only during a bootstrapping process or in a ;; We get here when (i) during a bootstrapping process, (ii) in a
;; development mode that is not running in a Racket executable ;; development mode that is not running in a Racket executable,
;; or (iii) running on Windows.
;; In the third case, `errno` could be a different one from
;; `_errno` in MSVCRT. Therefore fallback to the foreign function.
;; See `save_errno_values` in `foreign.c` from Racket BC for more
;; information.
(let ([get-&errno-name (let ([get-&errno-name
(case (machine-type) (case (machine-type)
[(a6nt ta6nt i3nt ti3nt) [(a6nt ta6nt i3nt ti3nt)