blob: 7b3215126d0b6605cfc6fe172a14f9762128df25 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <pmset.h>
include "mio.h"
# MIO_CLOSE -- Close an MIO descriptor.
procedure mio_close (mp)
pointer mp #I MIO descriptor
begin
if (M_PMCLOSE(mp) == YES)
call pm_close (M_PM(mp))
if (M_RLP(mp) != NULL)
call mfree (M_RLP(mp), TY_INT)
call mfree (mp, TY_STRUCT)
end
|
