blob: 3a7d3ac1238e1f8b1478b31c3e1af7774b207453 (
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 <syserr.h>
include <config.h>
include <mach.h>
# MGTLWL -- Given a user buffer pointer, retrieve location of the last word.
int procedure mgtlwl (ptr, dtype)
pointer ptr, bufptr
int dtype
int coerce()
begin
bufptr = coerce (ptr, dtype, TY_INT)
return (Memi[bufptr-4])
end
|
