blob: bd09c561b93fd0d29c8a20abf0d4f90fc7753a84 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
\section[Info.lh]{Definitions for the Info Pointer Field}
Multi-slurp protection:
\begin{code}
#ifndef Info_H
#define Info_H
\end{code}
%************************************************************************
%* *
\subsection[info-SM]{Storage-mgr interface things for the info ptr}
%* *
%************************************************************************
\begin{code}
#define INFO_FIXED_HDR 1
#define INFO_HDR_POSN 0
#define AFTER_INFO_HDR (INFO_HDR_POSN+INFO_FIXED_HDR)
#define INFO_PTR(closure) (((P_)(closure))[INFO_HDR_POSN])
#define SET_INFO_PTR(closure,wd) INFO_PTR(closure) = (W_) wd
#define SET_STATIC_INFO_PTR(wd) (W_) wd
\end{code}
End multi-slurp protection:
\begin{code}
#endif /* Info_H */
\end{code}
|
