blob: 3af66d1d06c9723fec85dcc77baf9b626b76306c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# LOCPR -- Return the entry point address of a procedure, suitable for input
# to a ZCALL prcocedure to call the target procedure indirectly.
int procedure locpr (proc)
extern proc() # external procedure
int epa
begin
call zlocpr (proc, epa)
return (epa)
end
|
