Import Upstream version 20180207
[hcoop/debian/mlton.git] / runtime / basis / Posix / Error.c
1 #include "platform.h"
2
3 void Posix_Error_clearErrno (void) {
4 errno = 0;
5 }
6
7 C_Int_t Posix_Error_getErrno (void) {
8 return errno;
9 }
10
11 C_String_t Posix_Error_strError (C_Int_t n) {
12 char *res = strerror (n);
13 return (C_String_t)res;
14 }