blob: cf98aa556ca0fb8942035c22b0192600d88fc307 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
include <fio.h>
# FRTNFD -- Return file descriptor and buffers.
procedure frtnfd (fd)
int fd
include <fio.com>
begin
if (fiodes[fd] != NULL) {
call frmbfs (fd)
call mfree (fiodes[fd], TY_STRUCT)
fiodes[fd] = NULL
}
end
|
