[hcoop/debian/mlton.git] / runtime / basis / Posix / Error.c

#include "platform.h"

void Posix_Error_clearErrno (void) {
  errno = 0;
}

C_Int_t Posix_Error_getErrno (void) {
  return errno;
}

C_String_t Posix_Error_strError (C_Int_t n) {
  char *res = strerror (n);
  return (C_String_t)res;
}
Commit	Line	Data
7f918cf1 CE	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	}