tcp_var.h revision 1.20 1 1.20 thorpej /* $NetBSD: tcp_var.h,v 1.20 1997/07/23 21:26:54 thorpej Exp $ */
2 1.9 cgd
3 1.1 cgd /*
4 1.8 mycroft * Copyright (c) 1982, 1986, 1993, 1994
5 1.8 mycroft * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.1 cgd * 3. All advertising materials mentioning features or use of this software
16 1.1 cgd * must display the following acknowledgement:
17 1.1 cgd * This product includes software developed by the University of
18 1.1 cgd * California, Berkeley and its contributors.
19 1.1 cgd * 4. Neither the name of the University nor the names of its contributors
20 1.1 cgd * may be used to endorse or promote products derived from this software
21 1.1 cgd * without specific prior written permission.
22 1.1 cgd *
23 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 1.1 cgd * SUCH DAMAGE.
34 1.1 cgd *
35 1.9 cgd * @(#)tcp_var.h 8.3 (Berkeley) 4/10/94
36 1.1 cgd */
37 1.1 cgd
38 1.1 cgd /*
39 1.1 cgd * Kernel variables for tcp.
40 1.1 cgd */
41 1.1 cgd
42 1.1 cgd /*
43 1.1 cgd * Tcp control block, one per tcp; fields:
44 1.1 cgd */
45 1.1 cgd struct tcpcb {
46 1.15 cgd struct ipqehead segq; /* sequencing queue */
47 1.1 cgd short t_state; /* state of this connection */
48 1.1 cgd short t_timer[TCPT_NTIMERS]; /* tcp timers */
49 1.1 cgd short t_rxtshift; /* log(2) of rexmt exp. backoff */
50 1.1 cgd short t_rxtcur; /* current retransmit value */
51 1.1 cgd short t_dupacks; /* consecutive dup acks recd */
52 1.1 cgd u_short t_maxseg; /* maximum segment size */
53 1.1 cgd char t_force; /* 1 if forcing out a byte */
54 1.8 mycroft u_short t_flags;
55 1.8 mycroft #define TF_ACKNOW 0x0001 /* ack peer immediately */
56 1.8 mycroft #define TF_DELACK 0x0002 /* ack, but try to delay it */
57 1.8 mycroft #define TF_NODELAY 0x0004 /* don't delay packets to coalesce */
58 1.8 mycroft #define TF_NOOPT 0x0008 /* don't use tcp options */
59 1.8 mycroft #define TF_SENTFIN 0x0010 /* have sent FIN */
60 1.8 mycroft #define TF_REQ_SCALE 0x0020 /* have/will request window scaling */
61 1.8 mycroft #define TF_RCVD_SCALE 0x0040 /* other side has requested scaling */
62 1.8 mycroft #define TF_REQ_TSTMP 0x0080 /* have/will request timestamps */
63 1.8 mycroft #define TF_RCVD_TSTMP 0x0100 /* a timestamp was received in SYN */
64 1.8 mycroft #define TF_SACK_PERMIT 0x0200 /* other side said I could SACK */
65 1.8 mycroft
66 1.1 cgd struct tcpiphdr *t_template; /* skeletal packet for transmit */
67 1.1 cgd struct inpcb *t_inpcb; /* back pointer to internet pcb */
68 1.1 cgd /*
69 1.1 cgd * The following fields are used as in the protocol specification.
70 1.1 cgd * See RFC783, Dec. 1981, page 21.
71 1.1 cgd */
72 1.1 cgd /* send sequence variables */
73 1.1 cgd tcp_seq snd_una; /* send unacknowledged */
74 1.1 cgd tcp_seq snd_nxt; /* send next */
75 1.1 cgd tcp_seq snd_up; /* send urgent pointer */
76 1.1 cgd tcp_seq snd_wl1; /* window update seg seq number */
77 1.1 cgd tcp_seq snd_wl2; /* window update seg ack number */
78 1.1 cgd tcp_seq iss; /* initial send sequence number */
79 1.8 mycroft u_long snd_wnd; /* send window */
80 1.1 cgd /* receive sequence variables */
81 1.8 mycroft u_long rcv_wnd; /* receive window */
82 1.1 cgd tcp_seq rcv_nxt; /* receive next */
83 1.1 cgd tcp_seq rcv_up; /* receive urgent pointer */
84 1.1 cgd tcp_seq irs; /* initial receive sequence number */
85 1.1 cgd /*
86 1.1 cgd * Additional variables for this implementation.
87 1.1 cgd */
88 1.1 cgd /* receive variables */
89 1.1 cgd tcp_seq rcv_adv; /* advertised window */
90 1.1 cgd /* retransmit variables */
91 1.1 cgd tcp_seq snd_max; /* highest sequence number sent;
92 1.1 cgd * used to recognize retransmits
93 1.1 cgd */
94 1.1 cgd /* congestion control (for slow start, source quench, retransmit after loss) */
95 1.8 mycroft u_long snd_cwnd; /* congestion-controlled window */
96 1.8 mycroft u_long snd_ssthresh; /* snd_cwnd size threshhold for
97 1.1 cgd * for slow start exponential to
98 1.1 cgd * linear switch
99 1.1 cgd */
100 1.1 cgd /*
101 1.1 cgd * transmit timing stuff. See below for scale of srtt and rttvar.
102 1.1 cgd * "Variance" is actually smoothed difference.
103 1.1 cgd */
104 1.1 cgd short t_idle; /* inactivity time */
105 1.1 cgd short t_rtt; /* round trip time */
106 1.1 cgd tcp_seq t_rtseq; /* sequence number being timed */
107 1.1 cgd short t_srtt; /* smoothed round-trip time */
108 1.1 cgd short t_rttvar; /* variance in round-trip time */
109 1.1 cgd u_short t_rttmin; /* minimum rtt allowed */
110 1.8 mycroft u_long max_sndwnd; /* largest window peer has offered */
111 1.1 cgd
112 1.1 cgd /* out-of-band data */
113 1.1 cgd char t_oobflags; /* have some */
114 1.1 cgd char t_iobc; /* input character */
115 1.1 cgd #define TCPOOB_HAVEDATA 0x01
116 1.1 cgd #define TCPOOB_HADDATA 0x02
117 1.1 cgd short t_softerror; /* possible error not yet reported */
118 1.8 mycroft
119 1.8 mycroft /* RFC 1323 variables */
120 1.8 mycroft u_char snd_scale; /* window scaling for send window */
121 1.8 mycroft u_char rcv_scale; /* window scaling for recv window */
122 1.8 mycroft u_char request_r_scale; /* pending window scaling */
123 1.8 mycroft u_char requested_s_scale;
124 1.11 cgd u_int32_t ts_recent; /* timestamp echo data */
125 1.11 cgd u_int32_t ts_recent_age; /* when last updated */
126 1.8 mycroft tcp_seq last_ack_sent;
127 1.8 mycroft
128 1.8 mycroft /* TUBA stuff */
129 1.8 mycroft caddr_t t_tuba_pcb; /* next level down pcb for TCP over z */
130 1.1 cgd };
131 1.1 cgd
132 1.20 thorpej /*
133 1.20 thorpej * Handy way of passing around TCP option info.
134 1.20 thorpej */
135 1.20 thorpej struct tcp_opt_info {
136 1.20 thorpej int ts_present;
137 1.20 thorpej u_int32_t ts_val;
138 1.20 thorpej u_int32_t ts_ecr;
139 1.20 thorpej u_int16_t maxseg;
140 1.20 thorpej };
141 1.20 thorpej
142 1.20 thorpej /*
143 1.20 thorpej * This structure should not exceed 32 bytes.
144 1.20 thorpej * XXX On the Alpha, it's already 36-bytes, which rounds to 40.
145 1.20 thorpej * XXX Need to eliminate the pointer.
146 1.20 thorpej */
147 1.20 thorpej struct syn_cache {
148 1.20 thorpej struct syn_cache *sc_next;
149 1.20 thorpej u_int32_t sc_tstmp : 1,
150 1.20 thorpej sc_hash : 31;
151 1.20 thorpej struct in_addr sc_src;
152 1.20 thorpej struct in_addr sc_dst;
153 1.20 thorpej tcp_seq sc_irs;
154 1.20 thorpej tcp_seq sc_iss;
155 1.20 thorpej u_int16_t sc_sport;
156 1.20 thorpej u_int16_t sc_dport;
157 1.20 thorpej u_int16_t sc_peermaxseg;
158 1.20 thorpej u_int8_t sc_timer;
159 1.20 thorpej u_int8_t sc_request_r_scale : 4,
160 1.20 thorpej sc_requested_s_scale : 4;
161 1.20 thorpej };
162 1.20 thorpej
163 1.20 thorpej struct syn_cache_head {
164 1.20 thorpej struct syn_cache *sch_first; /* First entry in the bucket */
165 1.20 thorpej struct syn_cache *sch_last; /* Last entry in the bucket */
166 1.20 thorpej struct syn_cache_head *sch_headq; /* The next non-empty bucket */
167 1.20 thorpej int16_t sch_timer_sum; /* Total time in this bucket */
168 1.20 thorpej u_int16_t sch_length; /* @ # elements in bucket */
169 1.20 thorpej };
170 1.20 thorpej
171 1.1 cgd #define intotcpcb(ip) ((struct tcpcb *)(ip)->inp_ppcb)
172 1.1 cgd #define sototcpcb(so) (intotcpcb(sotoinpcb(so)))
173 1.1 cgd
174 1.1 cgd /*
175 1.1 cgd * The smoothed round-trip time and estimated variance
176 1.1 cgd * are stored as fixed point numbers scaled by the values below.
177 1.1 cgd * For convenience, these scales are also used in smoothing the average
178 1.1 cgd * (smoothed = (1/scale)sample + ((scale-1)/scale)smoothed).
179 1.1 cgd * With these scales, srtt has 3 bits to the right of the binary point,
180 1.1 cgd * and thus an "ALPHA" of 0.875. rttvar has 2 bits to the right of the
181 1.1 cgd * binary point, and is smoothed with an ALPHA of 0.75.
182 1.1 cgd */
183 1.1 cgd #define TCP_RTT_SHIFT 3 /* shift for srtt; 3 bits frac. */
184 1.1 cgd #define TCP_RTTVAR_SHIFT 2 /* multiplier for rttvar; 2 bits */
185 1.1 cgd
186 1.1 cgd /*
187 1.1 cgd * The initial retransmission should happen at rtt + 4 * rttvar.
188 1.1 cgd * Because of the way we do the smoothing, srtt and rttvar
189 1.1 cgd * will each average +1/2 tick of bias. When we compute
190 1.1 cgd * the retransmit timer, we want 1/2 tick of rounding and
191 1.1 cgd * 1 extra tick because of +-1/2 tick uncertainty in the
192 1.1 cgd * firing of the timer. The bias will give us exactly the
193 1.1 cgd * 1.5 tick we need. But, because the bias is
194 1.1 cgd * statistical, we have to test that we don't drop below
195 1.1 cgd * the minimum feasible timer (which is 2 ticks).
196 1.19 mycroft * This macro assumes that the value of 1<<TCP_RTTVAR_SHIFT
197 1.1 cgd * is the same as the multiplier for rttvar.
198 1.1 cgd */
199 1.1 cgd #define TCP_REXMTVAL(tp) \
200 1.12 mycroft ((((tp)->t_srtt >> TCP_RTT_SHIFT) + (tp)->t_rttvar) >> 2)
201 1.1 cgd
202 1.1 cgd /*
203 1.1 cgd * TCP statistics.
204 1.1 cgd * Many of these should be kept per connection,
205 1.1 cgd * but that's inconvenient at the moment.
206 1.1 cgd */
207 1.1 cgd struct tcpstat {
208 1.1 cgd u_long tcps_connattempt; /* connections initiated */
209 1.1 cgd u_long tcps_accepts; /* connections accepted */
210 1.1 cgd u_long tcps_connects; /* connections established */
211 1.1 cgd u_long tcps_drops; /* connections dropped */
212 1.1 cgd u_long tcps_conndrops; /* embryonic connections dropped */
213 1.1 cgd u_long tcps_closed; /* conn. closed (includes drops) */
214 1.1 cgd u_long tcps_segstimed; /* segs where we tried to get rtt */
215 1.1 cgd u_long tcps_rttupdated; /* times we succeeded */
216 1.1 cgd u_long tcps_delack; /* delayed acks sent */
217 1.1 cgd u_long tcps_timeoutdrop; /* conn. dropped in rxmt timeout */
218 1.1 cgd u_long tcps_rexmttimeo; /* retransmit timeouts */
219 1.1 cgd u_long tcps_persisttimeo; /* persist timeouts */
220 1.1 cgd u_long tcps_keeptimeo; /* keepalive timeouts */
221 1.1 cgd u_long tcps_keepprobe; /* keepalive probes sent */
222 1.1 cgd u_long tcps_keepdrops; /* connections dropped in keepalive */
223 1.1 cgd
224 1.1 cgd u_long tcps_sndtotal; /* total packets sent */
225 1.1 cgd u_long tcps_sndpack; /* data packets sent */
226 1.1 cgd u_long tcps_sndbyte; /* data bytes sent */
227 1.1 cgd u_long tcps_sndrexmitpack; /* data packets retransmitted */
228 1.1 cgd u_long tcps_sndrexmitbyte; /* data bytes retransmitted */
229 1.1 cgd u_long tcps_sndacks; /* ack-only packets sent */
230 1.1 cgd u_long tcps_sndprobe; /* window probes sent */
231 1.1 cgd u_long tcps_sndurg; /* packets sent with URG only */
232 1.1 cgd u_long tcps_sndwinup; /* window update-only packets sent */
233 1.1 cgd u_long tcps_sndctrl; /* control (SYN|FIN|RST) packets sent */
234 1.1 cgd
235 1.1 cgd u_long tcps_rcvtotal; /* total packets received */
236 1.1 cgd u_long tcps_rcvpack; /* packets received in sequence */
237 1.1 cgd u_long tcps_rcvbyte; /* bytes received in sequence */
238 1.1 cgd u_long tcps_rcvbadsum; /* packets received with ccksum errs */
239 1.1 cgd u_long tcps_rcvbadoff; /* packets received with bad offset */
240 1.15 cgd u_long tcps_rcvmemdrop; /* packets dropped for lack of memory */
241 1.1 cgd u_long tcps_rcvshort; /* packets received too short */
242 1.1 cgd u_long tcps_rcvduppack; /* duplicate-only packets received */
243 1.1 cgd u_long tcps_rcvdupbyte; /* duplicate-only bytes received */
244 1.1 cgd u_long tcps_rcvpartduppack; /* packets with some duplicate data */
245 1.1 cgd u_long tcps_rcvpartdupbyte; /* dup. bytes in part-dup. packets */
246 1.1 cgd u_long tcps_rcvoopack; /* out-of-order packets received */
247 1.1 cgd u_long tcps_rcvoobyte; /* out-of-order bytes received */
248 1.1 cgd u_long tcps_rcvpackafterwin; /* packets with data after window */
249 1.1 cgd u_long tcps_rcvbyteafterwin; /* bytes rcvd after window */
250 1.1 cgd u_long tcps_rcvafterclose; /* packets rcvd after "close" */
251 1.1 cgd u_long tcps_rcvwinprobe; /* rcvd window probe packets */
252 1.1 cgd u_long tcps_rcvdupack; /* rcvd duplicate acks */
253 1.1 cgd u_long tcps_rcvacktoomuch; /* rcvd acks for unsent data */
254 1.1 cgd u_long tcps_rcvackpack; /* rcvd ack packets */
255 1.1 cgd u_long tcps_rcvackbyte; /* bytes acked by rcvd acks */
256 1.1 cgd u_long tcps_rcvwinupd; /* rcvd window update packets */
257 1.8 mycroft u_long tcps_pawsdrop; /* segments dropped due to PAWS */
258 1.8 mycroft u_long tcps_predack; /* times hdr predict ok for acks */
259 1.8 mycroft u_long tcps_preddat; /* times hdr predict ok for data pkts */
260 1.16 mycroft
261 1.16 mycroft u_long tcps_pcbhashmiss; /* input packets missing pcb hash */
262 1.16 mycroft u_long tcps_noport; /* no socket on port */
263 1.20 thorpej u_long tcps_badsyn; /* received ack for which we have
264 1.20 thorpej no SYN in compressed state */
265 1.20 thorpej
266 1.20 thorpej /* These statistics deal with the SYN cache. */
267 1.20 thorpej u_long tcps_sc_added; /* # of entries added */
268 1.20 thorpej u_long tcps_sc_completed; /* # of connections completed */
269 1.20 thorpej u_long tcps_sc_timed_out; /* # of entries timed out */
270 1.20 thorpej u_long tcps_sc_overflowed; /* # dropped due to overflow */
271 1.20 thorpej u_long tcps_sc_reset; /* # dropped due to RST */
272 1.20 thorpej u_long tcps_sc_unreach; /* # dropped due to ICMP unreach */
273 1.20 thorpej u_long tcps_sc_bucketoverflow; /* # dropped due to bucket overflow */
274 1.20 thorpej u_long tcps_sc_aborted; /* # of entries aborted (no mem) */
275 1.20 thorpej u_long tcps_sc_dupesyn; /* # of duplicate SYNs received */
276 1.20 thorpej u_long tcps_sc_dropped; /* # of SYNs dropped (no route/mem) */
277 1.20 thorpej u_long tcps_sc_collisions; /* # of hash collisions */
278 1.1 cgd };
279 1.1 cgd
280 1.14 thorpej /*
281 1.14 thorpej * Names for TCP sysctl objects.
282 1.14 thorpej */
283 1.14 thorpej /* enable/disable RFC1323 timestamps/scaling */
284 1.14 thorpej #define TCPCTL_RFC1323 1
285 1.14 thorpej #define TCPCTL_MAXID 2
286 1.14 thorpej
287 1.14 thorpej #define TCPCTL_NAMES { \
288 1.14 thorpej { 0, 0 }, \
289 1.14 thorpej { "rfc1323", CTLTYPE_INT }, \
290 1.14 thorpej }
291 1.14 thorpej
292 1.10 jtc #ifdef _KERNEL
293 1.13 mycroft struct inpcbtable tcbtable; /* head of queue of active tcpcb's */
294 1.1 cgd struct tcpstat tcpstat; /* tcp statistics */
295 1.11 cgd u_int32_t tcp_now; /* for RFC 1323 timestamps */
296 1.14 thorpej extern int tcp_do_rfc1323; /* enabled/disabled? */
297 1.5 mycroft
298 1.20 thorpej int tcp_syn_cache_size;
299 1.20 thorpej int tcp_syn_cache_timeo;
300 1.20 thorpej struct syn_cache_head tcp_syn_cache[], *tcp_syn_cache_first;
301 1.20 thorpej u_long syn_cache_count;
302 1.20 thorpej
303 1.8 mycroft int tcp_attach __P((struct socket *));
304 1.8 mycroft void tcp_canceltimers __P((struct tcpcb *));
305 1.5 mycroft struct tcpcb *
306 1.8 mycroft tcp_close __P((struct tcpcb *));
307 1.17 christos void *tcp_ctlinput __P((int, struct sockaddr *, void *));
308 1.8 mycroft int tcp_ctloutput __P((int, struct socket *, int, int, struct mbuf **));
309 1.5 mycroft struct tcpcb *
310 1.8 mycroft tcp_disconnect __P((struct tcpcb *));
311 1.5 mycroft struct tcpcb *
312 1.8 mycroft tcp_drop __P((struct tcpcb *, int));
313 1.8 mycroft void tcp_dooptions __P((struct tcpcb *,
314 1.20 thorpej u_char *, int, struct tcpiphdr *, struct tcp_opt_info *));
315 1.8 mycroft void tcp_drain __P((void));
316 1.8 mycroft void tcp_fasttimo __P((void));
317 1.8 mycroft void tcp_init __P((void));
318 1.17 christos void tcp_input __P((struct mbuf *, ...));
319 1.8 mycroft int tcp_mss __P((struct tcpcb *, u_int));
320 1.5 mycroft struct tcpcb *
321 1.8 mycroft tcp_newtcpcb __P((struct inpcb *));
322 1.8 mycroft void tcp_notify __P((struct inpcb *, int));
323 1.8 mycroft int tcp_output __P((struct tcpcb *));
324 1.8 mycroft void tcp_pulloutofband __P((struct socket *,
325 1.8 mycroft struct tcpiphdr *, struct mbuf *));
326 1.8 mycroft void tcp_quench __P((struct inpcb *, int));
327 1.8 mycroft int tcp_reass __P((struct tcpcb *, struct tcpiphdr *, struct mbuf *));
328 1.20 thorpej int tcp_respond __P((struct tcpcb *,
329 1.11 cgd struct tcpiphdr *, struct mbuf *, tcp_seq, tcp_seq, int));
330 1.8 mycroft void tcp_setpersist __P((struct tcpcb *));
331 1.8 mycroft void tcp_slowtimo __P((void));
332 1.5 mycroft struct tcpiphdr *
333 1.8 mycroft tcp_template __P((struct tcpcb *));
334 1.5 mycroft struct tcpcb *
335 1.8 mycroft tcp_timers __P((struct tcpcb *, int));
336 1.8 mycroft void tcp_trace __P((int, int, struct tcpcb *, struct tcpiphdr *, int));
337 1.5 mycroft struct tcpcb *
338 1.8 mycroft tcp_usrclosed __P((struct tcpcb *));
339 1.14 thorpej int tcp_sysctl __P((int *, u_int, void *, size_t *, void *, size_t));
340 1.8 mycroft int tcp_usrreq __P((struct socket *,
341 1.18 mycroft int, struct mbuf *, struct mbuf *, struct mbuf *, struct proc *));
342 1.8 mycroft void tcp_xmit_timer __P((struct tcpcb *, int));
343 1.20 thorpej
344 1.20 thorpej int syn_cache_add __P((struct socket *, struct mbuf *, u_char *,
345 1.20 thorpej int, struct tcp_opt_info *));
346 1.20 thorpej void syn_cache_unreach __P((struct ip *, struct tcphdr *));
347 1.20 thorpej struct socket *
348 1.20 thorpej syn_cache_get __P((struct socket *so, struct mbuf *));
349 1.20 thorpej void syn_cache_insert __P((struct syn_cache *, struct syn_cache ***,
350 1.20 thorpej struct syn_cache_head **));
351 1.20 thorpej struct syn_cache *
352 1.20 thorpej syn_cache_lookup __P((struct tcpiphdr *, struct syn_cache ***,
353 1.20 thorpej struct syn_cache_head **));
354 1.20 thorpej void syn_cache_reset __P((struct tcpiphdr *));
355 1.20 thorpej int syn_cache_respond __P((struct syn_cache *, struct mbuf *,
356 1.20 thorpej register struct tcpiphdr *, long, u_long));
357 1.20 thorpej void syn_cache_timer __P((int));
358 1.20 thorpej
359 1.1 cgd #endif
360