libc.windows: We have to use utf8 since this is a libc call and the native
encoding on windows is utf16n.db4
parent
e5db4c2ccc
commit
31b8a0e051
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue