blob: d77ade09e8e4d5f433b079359b79fb6b9ad2636e (
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 "../lib/ids.h"
# IDS_CLOSE -- Close the image display kernel.
# Free up storage.
procedure ids_close()
include "../lib/ids.com"
begin
call close(i_out)
call mfree (IDS_FRAME(i_kt), TY_SHORT)
call mfree (IDS_BITPL(i_kt), TY_SHORT)
call mfree (IDS_SBUF(i_kt), TY_CHAR)
call mfree (i_kt, TY_STRUCT)
i_kt = NULL
end
|
