diff options
Diffstat (limited to 'newlib/libc/sys/mmixware/close.c')
-rw-r--r-- | newlib/libc/sys/mmixware/close.c | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/newlib/libc/sys/mmixware/close.c b/newlib/libc/sys/mmixware/close.c new file mode 100644 index 000000000..d2065da11 --- /dev/null +++ b/newlib/libc/sys/mmixware/close.c @@ -0,0 +1,36 @@ +/* close for MMIXware. + + Copyright (C) 2001 Hans-Peter Nilsson. + + Permission to use, copy, modify, and distribute this software is freely + granted, provided that this notice is preserved with no changes. + THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR + IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED + WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR + PURPOSE. */ + +#include <_ansi.h> +#include <sys/types.h> +#include <sys/stat.h> +#include "sys/syscall.h" +#include <errno.h> + +int +_close (int file) +{ + if ((unsigned int) file >= N_MMIX_FILEHANDLES + || _MMIX_allocated_filehandle[file] == 0) + { + errno = EBADF; + return -1; + } + + _MMIX_allocated_filehandle[file] = 0; + + if (TRAP1f (SYS_Fclose, file) != 0) + { + errno = EIO; + return -1; + } + return 0; +} |