blob: 2ae53882f48b3b28ab36c7913ba671aba960c321 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
# MIINELEM -- Determine the number of MII elements of the given datatype
# which can be stored in an SPP char array of the indicated length.
# The mii_type codes are defined in mii.h; we assume here that the codes
# used are the number of bits in each MII type.
int procedure miinelem (nchars, mii_type)
int nchars #I size in chars of packed array
int mii_type #I MII type of packed data
int nbits
begin
nbits = abs (mii_type)
return ((nchars * SZB_CHAR * NBITS_BYTE) / nbits)
end
|
