libgloss/m68k/atari/atari-close.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

/*
	Copyright (C) 2025 Mikael Hildenborg
	SPDX-License-Identifier: BSD-2-Clause
*/

#include <_ansi.h>
#include "atari-gem_errno.h"
#include "atari-traps.h"

int close(int fd)
{
	int err = GEM_EIHNDL;
	if (fd >= 0)
	{
		err = trap1_3e((unsigned short)fd);
	}
	if (err <  0)
	{
		gem_error_to_errno(err);
		return -1;
	}
	return 0;
}