libc.windows: We have to use utf8 since this is a libc call and the native

encoding on windows is utf16n.
db4
Doug Coleman 2014-07-07 00:50:01 -05:00
parent e5db4c2ccc
commit 31b8a0e051
1 changed files with 2 additions and 2 deletions

View File

@ -1,5 +1,5 @@
USING: alien.c-types alien.strings alien.syntax destructors USING: alien.c-types alien.strings alien.syntax destructors
kernel libc system ; io.encodings.utf8 kernel libc system ;
IN: libc IN: libc
LIBRARY: libc LIBRARY: libc
@ -112,5 +112,5 @@ M: windows strerror ( errno -- str )
[ [
[ 1024 [ malloc &free ] keep ] dip [ 1024 [ malloc &free ] keep ] dip
[ strerror_s drop ] 3keep 2drop [ strerror_s drop ] 3keep 2drop
alien>native-string utf8 alien>string
] with-destructors ; ] with-destructors ;