tcp_output.c revision 1.20.2.5 1 1.20.2.5 mycroft /* $NetBSD: tcp_output.c,v 1.20.2.5 1998/05/05 23:01:27 mycroft Exp $ */
2 1.10 cgd
3 1.1 cgd /*
4 1.20.2.3 mellon * Copyright (c) 1982, 1986, 1988, 1990, 1993, 1995
5 1.9 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.20.2.3 mellon * @(#)tcp_output.c 8.4 (Berkeley) 5/24/95
36 1.1 cgd */
37 1.1 cgd
38 1.4 mycroft #include <sys/param.h>
39 1.4 mycroft #include <sys/systm.h>
40 1.4 mycroft #include <sys/malloc.h>
41 1.4 mycroft #include <sys/mbuf.h>
42 1.4 mycroft #include <sys/protosw.h>
43 1.4 mycroft #include <sys/socket.h>
44 1.4 mycroft #include <sys/socketvar.h>
45 1.4 mycroft #include <sys/errno.h>
46 1.1 cgd
47 1.17 thorpej #include <net/if.h>
48 1.4 mycroft #include <net/route.h>
49 1.1 cgd
50 1.4 mycroft #include <netinet/in.h>
51 1.4 mycroft #include <netinet/in_systm.h>
52 1.4 mycroft #include <netinet/ip.h>
53 1.4 mycroft #include <netinet/in_pcb.h>
54 1.4 mycroft #include <netinet/ip_var.h>
55 1.4 mycroft #include <netinet/tcp.h>
56 1.1 cgd #define TCPOUTFLAGS
57 1.4 mycroft #include <netinet/tcp_fsm.h>
58 1.4 mycroft #include <netinet/tcp_seq.h>
59 1.4 mycroft #include <netinet/tcp_timer.h>
60 1.4 mycroft #include <netinet/tcp_var.h>
61 1.4 mycroft #include <netinet/tcpip.h>
62 1.4 mycroft #include <netinet/tcp_debug.h>
63 1.14 christos
64 1.14 christos #ifdef TUBA
65 1.14 christos #include <netiso/iso.h>
66 1.14 christos #include <netiso/tuba_table.h>
67 1.14 christos #endif
68 1.1 cgd
69 1.1 cgd #ifdef notyet
70 1.1 cgd extern struct mbuf *m_copypack();
71 1.1 cgd #endif
72 1.1 cgd
73 1.9 mycroft #define MAX_TCPOPTLEN 32 /* max # bytes that go in options */
74 1.1 cgd
75 1.18 thorpej static __inline void tcp_segsize __P((struct tcpcb *, int *, int *));
76 1.18 thorpej static __inline void
77 1.18 thorpej tcp_segsize(tp, txsegsizep, rxsegsizep)
78 1.17 thorpej struct tcpcb *tp;
79 1.18 thorpej int *txsegsizep, *rxsegsizep;
80 1.17 thorpej {
81 1.17 thorpej struct inpcb *inp = tp->t_inpcb;
82 1.17 thorpej struct rtentry *rt;
83 1.17 thorpej struct ifnet *ifp;
84 1.17 thorpej int size;
85 1.17 thorpej
86 1.17 thorpej if ((rt = in_pcbrtentry(inp)) == NULL) {
87 1.17 thorpej size = tcp_mssdflt;
88 1.17 thorpej goto out;
89 1.17 thorpej }
90 1.17 thorpej
91 1.17 thorpej ifp = rt->rt_ifp;
92 1.17 thorpej
93 1.19 kml if (rt->rt_rmx.rmx_mtu != 0)
94 1.17 thorpej size = rt->rt_rmx.rmx_mtu - sizeof(struct tcpiphdr);
95 1.20 kml else if (ip_mtudisc || in_localaddr(inp->inp_faddr) ||
96 1.19 kml ifp->if_flags & IFF_LOOPBACK)
97 1.17 thorpej size = ifp->if_mtu - sizeof(struct tcpiphdr);
98 1.17 thorpej else
99 1.17 thorpej size = tcp_mssdflt;
100 1.20.2.5 mycroft size -= tcp_optlen(tp);
101 1.17 thorpej
102 1.17 thorpej out:
103 1.20.2.1 thorpej *txsegsizep = min(tp->t_peermss, size);
104 1.18 thorpej *rxsegsizep = min(tp->t_ourmss, size);
105 1.20.2.1 thorpej
106 1.20.2.1 thorpej if (*txsegsizep != tp->t_segsz) {
107 1.20.2.5 mycroft /*
108 1.20.2.5 mycroft * XXX: should we check to make sure these are all
109 1.20.2.5 mycroft * at least txsegsize in length, now?
110 1.20.2.5 mycroft */
111 1.20.2.1 thorpej tp->snd_cwnd = (tp->snd_cwnd / tp->t_segsz) * *txsegsizep;
112 1.20.2.1 thorpej tp->snd_ssthresh = (tp->snd_ssthresh / tp->t_segsz) *
113 1.20.2.1 thorpej *txsegsizep;
114 1.20.2.1 thorpej tp->t_segsz = *txsegsizep;
115 1.20.2.1 thorpej }
116 1.17 thorpej }
117 1.17 thorpej
118 1.1 cgd /*
119 1.1 cgd * Tcp output routine: figure out what should be sent and send it.
120 1.1 cgd */
121 1.6 mycroft int
122 1.1 cgd tcp_output(tp)
123 1.1 cgd register struct tcpcb *tp;
124 1.1 cgd {
125 1.1 cgd register struct socket *so = tp->t_inpcb->inp_socket;
126 1.1 cgd register long len, win;
127 1.1 cgd int off, flags, error;
128 1.1 cgd register struct mbuf *m;
129 1.1 cgd register struct tcpiphdr *ti;
130 1.9 mycroft u_char opt[MAX_TCPOPTLEN];
131 1.1 cgd unsigned optlen, hdrlen;
132 1.18 thorpej int idle, sendalot, txsegsize, rxsegsize;
133 1.17 thorpej
134 1.18 thorpej tcp_segsize(tp, &txsegsize, &rxsegsize);
135 1.1 cgd
136 1.1 cgd /*
137 1.1 cgd * Determine length of data that should be transmitted,
138 1.1 cgd * and flags that will be used.
139 1.1 cgd * If there is some data or critical controls (SYN, RST)
140 1.1 cgd * to send, then transmit; otherwise, investigate further.
141 1.1 cgd */
142 1.1 cgd idle = (tp->snd_max == tp->snd_una);
143 1.1 cgd if (idle && tp->t_idle >= tp->t_rxtcur)
144 1.1 cgd /*
145 1.1 cgd * We have been idle for "a while" and no acks are
146 1.1 cgd * expected to clock out any data we send --
147 1.1 cgd * slow start to get ack "clock" running again.
148 1.1 cgd */
149 1.20.2.3 mellon tp->snd_cwnd = TCP_INITIAL_WINDOW(txsegsize);
150 1.1 cgd again:
151 1.1 cgd sendalot = 0;
152 1.1 cgd off = tp->snd_nxt - tp->snd_una;
153 1.1 cgd win = min(tp->snd_wnd, tp->snd_cwnd);
154 1.1 cgd
155 1.9 mycroft flags = tcp_outflags[tp->t_state];
156 1.1 cgd /*
157 1.1 cgd * If in persist timeout with window of 0, send 1 byte.
158 1.1 cgd * Otherwise, if window is small but nonzero
159 1.1 cgd * and timer expired, we will send what we can
160 1.1 cgd * and go to transmit state.
161 1.1 cgd */
162 1.1 cgd if (tp->t_force) {
163 1.9 mycroft if (win == 0) {
164 1.9 mycroft /*
165 1.9 mycroft * If we still have some data to send, then
166 1.9 mycroft * clear the FIN bit. Usually this would
167 1.9 mycroft * happen below when it realizes that we
168 1.9 mycroft * aren't sending all the data. However,
169 1.9 mycroft * if we have exactly 1 byte of unset data,
170 1.9 mycroft * then it won't clear the FIN bit below,
171 1.9 mycroft * and if we are in persist state, we wind
172 1.9 mycroft * up sending the packet without recording
173 1.9 mycroft * that we sent the FIN bit.
174 1.9 mycroft *
175 1.9 mycroft * We can't just blindly clear the FIN bit,
176 1.9 mycroft * because if we don't have any more data
177 1.9 mycroft * to send then the probe will be the FIN
178 1.9 mycroft * itself.
179 1.9 mycroft */
180 1.9 mycroft if (off < so->so_snd.sb_cc)
181 1.9 mycroft flags &= ~TH_FIN;
182 1.1 cgd win = 1;
183 1.9 mycroft } else {
184 1.1 cgd tp->t_timer[TCPT_PERSIST] = 0;
185 1.1 cgd tp->t_rxtshift = 0;
186 1.1 cgd }
187 1.1 cgd }
188 1.1 cgd
189 1.11 mycroft if (win < so->so_snd.sb_cc) {
190 1.11 mycroft len = win - off;
191 1.11 mycroft flags &= ~TH_FIN;
192 1.11 mycroft } else
193 1.11 mycroft len = so->so_snd.sb_cc - off;
194 1.1 cgd
195 1.1 cgd if (len < 0) {
196 1.1 cgd /*
197 1.1 cgd * If FIN has been sent but not acked,
198 1.1 cgd * but we haven't been called to retransmit,
199 1.1 cgd * len will be -1. Otherwise, window shrank
200 1.1 cgd * after we sent into it. If window shrank to 0,
201 1.20.2.3 mellon * cancel pending retransmit, pull snd_nxt back
202 1.20.2.3 mellon * to (closed) window, and set the persist timer
203 1.20.2.3 mellon * if it isn't already going. If the window didn't
204 1.20.2.3 mellon * close completely, just wait for an ACK.
205 1.1 cgd */
206 1.1 cgd len = 0;
207 1.1 cgd if (win == 0) {
208 1.1 cgd tp->t_timer[TCPT_REXMT] = 0;
209 1.20.2.3 mellon tp->t_rxtshift = 0;
210 1.1 cgd tp->snd_nxt = tp->snd_una;
211 1.20.2.3 mellon if (tp->t_timer[TCPT_PERSIST] == 0)
212 1.20.2.3 mellon tcp_setpersist(tp);
213 1.1 cgd }
214 1.1 cgd }
215 1.18 thorpej if (len > txsegsize) {
216 1.18 thorpej len = txsegsize;
217 1.11 mycroft flags &= ~TH_FIN;
218 1.1 cgd sendalot = 1;
219 1.1 cgd }
220 1.1 cgd
221 1.1 cgd win = sbspace(&so->so_rcv);
222 1.1 cgd
223 1.1 cgd /*
224 1.1 cgd * Sender silly window avoidance. If connection is idle
225 1.1 cgd * and can send all data, a maximum segment,
226 1.1 cgd * at least a maximum default-size segment do it,
227 1.1 cgd * or are forced, do it; otherwise don't bother.
228 1.1 cgd * If peer's buffer is tiny, then send
229 1.1 cgd * when window is at least half open.
230 1.1 cgd * If retransmitting (possibly after persist timer forced us
231 1.1 cgd * to send into a small window), then must resend.
232 1.1 cgd */
233 1.1 cgd if (len) {
234 1.18 thorpej if (len == txsegsize)
235 1.1 cgd goto send;
236 1.1 cgd if ((idle || tp->t_flags & TF_NODELAY) &&
237 1.1 cgd len + off >= so->so_snd.sb_cc)
238 1.1 cgd goto send;
239 1.1 cgd if (tp->t_force)
240 1.1 cgd goto send;
241 1.1 cgd if (len >= tp->max_sndwnd / 2)
242 1.1 cgd goto send;
243 1.1 cgd if (SEQ_LT(tp->snd_nxt, tp->snd_max))
244 1.1 cgd goto send;
245 1.1 cgd }
246 1.1 cgd
247 1.1 cgd /*
248 1.18 thorpej * Compare available window to amount of window known to peer
249 1.18 thorpej * (as advertised window less next expected input). If the
250 1.18 thorpej * difference is at least twice the size of the largest segment
251 1.18 thorpej * we expect to receive (i.e. two segments) or at least 50% of
252 1.18 thorpej * the maximum possible window, then want to send a window update
253 1.18 thorpej * to peer.
254 1.1 cgd */
255 1.1 cgd if (win > 0) {
256 1.9 mycroft /*
257 1.9 mycroft * "adv" is the amount we can increase the window,
258 1.9 mycroft * taking into account that we are limited by
259 1.9 mycroft * TCP_MAXWIN << tp->rcv_scale.
260 1.9 mycroft */
261 1.9 mycroft long adv = min(win, (long)TCP_MAXWIN << tp->rcv_scale) -
262 1.9 mycroft (tp->rcv_adv - tp->rcv_nxt);
263 1.1 cgd
264 1.18 thorpej if (adv >= (long) (2 * rxsegsize))
265 1.1 cgd goto send;
266 1.1 cgd if (2 * adv >= (long) so->so_rcv.sb_hiwat)
267 1.1 cgd goto send;
268 1.1 cgd }
269 1.1 cgd
270 1.1 cgd /*
271 1.1 cgd * Send if we owe peer an ACK.
272 1.1 cgd */
273 1.1 cgd if (tp->t_flags & TF_ACKNOW)
274 1.1 cgd goto send;
275 1.1 cgd if (flags & (TH_SYN|TH_RST))
276 1.1 cgd goto send;
277 1.1 cgd if (SEQ_GT(tp->snd_up, tp->snd_una))
278 1.1 cgd goto send;
279 1.1 cgd /*
280 1.1 cgd * If our state indicates that FIN should be sent
281 1.1 cgd * and we have not yet done so, or we're retransmitting the FIN,
282 1.1 cgd * then we need to send.
283 1.1 cgd */
284 1.1 cgd if (flags & TH_FIN &&
285 1.1 cgd ((tp->t_flags & TF_SENTFIN) == 0 || tp->snd_nxt == tp->snd_una))
286 1.1 cgd goto send;
287 1.1 cgd
288 1.1 cgd /*
289 1.1 cgd * TCP window updates are not reliable, rather a polling protocol
290 1.1 cgd * using ``persist'' packets is used to insure receipt of window
291 1.1 cgd * updates. The three ``states'' for the output side are:
292 1.1 cgd * idle not doing retransmits or persists
293 1.1 cgd * persisting to move a small or zero window
294 1.1 cgd * (re)transmitting and thereby not persisting
295 1.1 cgd *
296 1.1 cgd * tp->t_timer[TCPT_PERSIST]
297 1.1 cgd * is set when we are in persist state.
298 1.1 cgd * tp->t_force
299 1.1 cgd * is set when we are called to send a persist packet.
300 1.1 cgd * tp->t_timer[TCPT_REXMT]
301 1.1 cgd * is set when we are retransmitting
302 1.1 cgd * The output side is idle when both timers are zero.
303 1.1 cgd *
304 1.1 cgd * If send window is too small, there is data to transmit, and no
305 1.1 cgd * retransmit or persist is pending, then go to persist state.
306 1.1 cgd * If nothing happens soon, send when timer expires:
307 1.1 cgd * if window is nonzero, transmit what we can,
308 1.1 cgd * otherwise force out a byte.
309 1.1 cgd */
310 1.1 cgd if (so->so_snd.sb_cc && tp->t_timer[TCPT_REXMT] == 0 &&
311 1.1 cgd tp->t_timer[TCPT_PERSIST] == 0) {
312 1.1 cgd tp->t_rxtshift = 0;
313 1.1 cgd tcp_setpersist(tp);
314 1.1 cgd }
315 1.1 cgd
316 1.1 cgd /*
317 1.1 cgd * No reason to send a segment, just return.
318 1.1 cgd */
319 1.1 cgd return (0);
320 1.1 cgd
321 1.1 cgd send:
322 1.1 cgd /*
323 1.1 cgd * Before ESTABLISHED, force sending of initial options
324 1.1 cgd * unless TCP set not to do any options.
325 1.1 cgd * NOTE: we assume that the IP/TCP header plus TCP options
326 1.1 cgd * always fit in a single mbuf, leaving room for a maximum
327 1.1 cgd * link header, i.e.
328 1.1 cgd * max_linkhdr + sizeof (struct tcpiphdr) + optlen <= MHLEN
329 1.1 cgd */
330 1.1 cgd optlen = 0;
331 1.1 cgd hdrlen = sizeof (struct tcpiphdr);
332 1.9 mycroft if (flags & TH_SYN) {
333 1.9 mycroft tp->snd_nxt = tp->iss;
334 1.17 thorpej tp->t_ourmss = tcp_mss_to_advertise(tp);
335 1.9 mycroft if ((tp->t_flags & TF_NOOPT) == 0) {
336 1.9 mycroft opt[0] = TCPOPT_MAXSEG;
337 1.9 mycroft opt[1] = 4;
338 1.17 thorpej opt[2] = (tp->t_ourmss >> 8) & 0xff;
339 1.17 thorpej opt[3] = tp->t_ourmss & 0xff;
340 1.9 mycroft optlen = 4;
341 1.9 mycroft
342 1.9 mycroft if ((tp->t_flags & TF_REQ_SCALE) &&
343 1.9 mycroft ((flags & TH_ACK) == 0 ||
344 1.9 mycroft (tp->t_flags & TF_RCVD_SCALE))) {
345 1.12 cgd *((u_int32_t *) (opt + optlen)) = htonl(
346 1.9 mycroft TCPOPT_NOP << 24 |
347 1.9 mycroft TCPOPT_WINDOW << 16 |
348 1.9 mycroft TCPOLEN_WINDOW << 8 |
349 1.9 mycroft tp->request_r_scale);
350 1.9 mycroft optlen += 4;
351 1.9 mycroft }
352 1.9 mycroft }
353 1.9 mycroft }
354 1.9 mycroft
355 1.9 mycroft /*
356 1.9 mycroft * Send a timestamp and echo-reply if this is a SYN and our side
357 1.9 mycroft * wants to use timestamps (TF_REQ_TSTMP is set) or both our side
358 1.9 mycroft * and our peer have sent timestamps in our SYN's.
359 1.9 mycroft */
360 1.9 mycroft if ((tp->t_flags & (TF_REQ_TSTMP|TF_NOOPT)) == TF_REQ_TSTMP &&
361 1.9 mycroft (flags & TH_RST) == 0 &&
362 1.9 mycroft ((flags & (TH_SYN|TH_ACK)) == TH_SYN ||
363 1.9 mycroft (tp->t_flags & TF_RCVD_TSTMP))) {
364 1.13 cgd u_int32_t *lp = (u_int32_t *)(opt + optlen);
365 1.9 mycroft
366 1.9 mycroft /* Form timestamp option as shown in appendix A of RFC 1323. */
367 1.9 mycroft *lp++ = htonl(TCPOPT_TSTAMP_HDR);
368 1.9 mycroft *lp++ = htonl(tcp_now);
369 1.9 mycroft *lp = htonl(tp->ts_recent);
370 1.9 mycroft optlen += TCPOLEN_TSTAMP_APPA;
371 1.9 mycroft }
372 1.9 mycroft
373 1.9 mycroft hdrlen += optlen;
374 1.9 mycroft
375 1.1 cgd #ifdef DIAGNOSTIC
376 1.20.2.5 mycroft if (len > txsegsize)
377 1.20.2.5 mycroft panic("tcp data to be sent is larger than segment");
378 1.9 mycroft if (max_linkhdr + hdrlen > MHLEN)
379 1.9 mycroft panic("tcphdr too big");
380 1.1 cgd #endif
381 1.1 cgd
382 1.1 cgd /*
383 1.1 cgd * Grab a header mbuf, attaching a copy of data to
384 1.1 cgd * be transmitted, and initialize the header from
385 1.1 cgd * the template for sends on this connection.
386 1.1 cgd */
387 1.1 cgd if (len) {
388 1.1 cgd if (tp->t_force && len == 1)
389 1.1 cgd tcpstat.tcps_sndprobe++;
390 1.1 cgd else if (SEQ_LT(tp->snd_nxt, tp->snd_max)) {
391 1.1 cgd tcpstat.tcps_sndrexmitpack++;
392 1.1 cgd tcpstat.tcps_sndrexmitbyte += len;
393 1.1 cgd } else {
394 1.1 cgd tcpstat.tcps_sndpack++;
395 1.1 cgd tcpstat.tcps_sndbyte += len;
396 1.1 cgd }
397 1.1 cgd #ifdef notyet
398 1.1 cgd if ((m = m_copypack(so->so_snd.sb_mb, off,
399 1.1 cgd (int)len, max_linkhdr + hdrlen)) == 0) {
400 1.1 cgd error = ENOBUFS;
401 1.1 cgd goto out;
402 1.1 cgd }
403 1.1 cgd /*
404 1.1 cgd * m_copypack left space for our hdr; use it.
405 1.1 cgd */
406 1.1 cgd m->m_len += hdrlen;
407 1.1 cgd m->m_data -= hdrlen;
408 1.1 cgd #else
409 1.1 cgd MGETHDR(m, M_DONTWAIT, MT_HEADER);
410 1.1 cgd if (m == NULL) {
411 1.1 cgd error = ENOBUFS;
412 1.1 cgd goto out;
413 1.1 cgd }
414 1.1 cgd m->m_data += max_linkhdr;
415 1.1 cgd m->m_len = hdrlen;
416 1.1 cgd if (len <= MHLEN - hdrlen - max_linkhdr) {
417 1.1 cgd m_copydata(so->so_snd.sb_mb, off, (int) len,
418 1.1 cgd mtod(m, caddr_t) + hdrlen);
419 1.1 cgd m->m_len += len;
420 1.1 cgd } else {
421 1.1 cgd m->m_next = m_copy(so->so_snd.sb_mb, off, (int) len);
422 1.20.2.3 mellon if (m->m_next == 0) {
423 1.20.2.3 mellon (void) m_freem(m);
424 1.20.2.3 mellon error = ENOBUFS;
425 1.20.2.3 mellon goto out;
426 1.20.2.3 mellon }
427 1.1 cgd }
428 1.1 cgd #endif
429 1.1 cgd /*
430 1.1 cgd * If we're sending everything we've got, set PUSH.
431 1.1 cgd * (This will keep happy those implementations which only
432 1.1 cgd * give data to the user when a buffer fills or
433 1.1 cgd * a PUSH comes in.)
434 1.1 cgd */
435 1.1 cgd if (off + len == so->so_snd.sb_cc)
436 1.1 cgd flags |= TH_PUSH;
437 1.1 cgd } else {
438 1.1 cgd if (tp->t_flags & TF_ACKNOW)
439 1.1 cgd tcpstat.tcps_sndacks++;
440 1.1 cgd else if (flags & (TH_SYN|TH_FIN|TH_RST))
441 1.1 cgd tcpstat.tcps_sndctrl++;
442 1.1 cgd else if (SEQ_GT(tp->snd_up, tp->snd_una))
443 1.1 cgd tcpstat.tcps_sndurg++;
444 1.1 cgd else
445 1.1 cgd tcpstat.tcps_sndwinup++;
446 1.1 cgd
447 1.1 cgd MGETHDR(m, M_DONTWAIT, MT_HEADER);
448 1.1 cgd if (m == NULL) {
449 1.1 cgd error = ENOBUFS;
450 1.1 cgd goto out;
451 1.1 cgd }
452 1.1 cgd m->m_data += max_linkhdr;
453 1.1 cgd m->m_len = hdrlen;
454 1.1 cgd }
455 1.1 cgd m->m_pkthdr.rcvif = (struct ifnet *)0;
456 1.1 cgd ti = mtod(m, struct tcpiphdr *);
457 1.1 cgd if (tp->t_template == 0)
458 1.1 cgd panic("tcp_output");
459 1.1 cgd bcopy((caddr_t)tp->t_template, (caddr_t)ti, sizeof (struct tcpiphdr));
460 1.1 cgd
461 1.1 cgd /*
462 1.1 cgd * Fill in fields, remembering maximum advertised
463 1.1 cgd * window for use in delaying messages about window sizes.
464 1.1 cgd * If resending a FIN, be sure not to use a new sequence number.
465 1.1 cgd */
466 1.9 mycroft if (flags & TH_FIN && tp->t_flags & TF_SENTFIN &&
467 1.1 cgd tp->snd_nxt == tp->snd_max)
468 1.1 cgd tp->snd_nxt--;
469 1.9 mycroft /*
470 1.9 mycroft * If we are doing retransmissions, then snd_nxt will
471 1.9 mycroft * not reflect the first unsent octet. For ACK only
472 1.9 mycroft * packets, we do not want the sequence number of the
473 1.9 mycroft * retransmitted packet, we want the sequence number
474 1.9 mycroft * of the next unsent octet. So, if there is no data
475 1.9 mycroft * (and no SYN or FIN), use snd_max instead of snd_nxt
476 1.9 mycroft * when filling in ti_seq. But if we are in persist
477 1.9 mycroft * state, snd_max might reflect one byte beyond the
478 1.9 mycroft * right edge of the window, so use snd_nxt in that
479 1.9 mycroft * case, since we know we aren't doing a retransmission.
480 1.9 mycroft * (retransmit and persist are mutually exclusive...)
481 1.9 mycroft */
482 1.8 mycroft if (len || (flags & (TH_SYN|TH_FIN)) || tp->t_timer[TCPT_PERSIST])
483 1.8 mycroft ti->ti_seq = htonl(tp->snd_nxt);
484 1.8 mycroft else
485 1.8 mycroft ti->ti_seq = htonl(tp->snd_max);
486 1.1 cgd ti->ti_ack = htonl(tp->rcv_nxt);
487 1.1 cgd if (optlen) {
488 1.1 cgd bcopy((caddr_t)opt, (caddr_t)(ti + 1), optlen);
489 1.1 cgd ti->ti_off = (sizeof (struct tcphdr) + optlen) >> 2;
490 1.1 cgd }
491 1.1 cgd ti->ti_flags = flags;
492 1.1 cgd /*
493 1.1 cgd * Calculate receive window. Don't shrink window,
494 1.1 cgd * but avoid silly window syndrome.
495 1.1 cgd */
496 1.18 thorpej if (win < (long)(so->so_rcv.sb_hiwat / 4) && win < (long)rxsegsize)
497 1.1 cgd win = 0;
498 1.9 mycroft if (win > (long)TCP_MAXWIN << tp->rcv_scale)
499 1.9 mycroft win = (long)TCP_MAXWIN << tp->rcv_scale;
500 1.1 cgd if (win < (long)(tp->rcv_adv - tp->rcv_nxt))
501 1.1 cgd win = (long)(tp->rcv_adv - tp->rcv_nxt);
502 1.12 cgd ti->ti_win = htons((u_int16_t) (win>>tp->rcv_scale));
503 1.1 cgd if (SEQ_GT(tp->snd_up, tp->snd_nxt)) {
504 1.16 kml u_int32_t urp = tp->snd_up - tp->snd_nxt;
505 1.16 kml if (urp > IP_MAXPACKET)
506 1.16 kml urp = IP_MAXPACKET;
507 1.16 kml ti->ti_urp = htons((u_int16_t)urp);
508 1.1 cgd ti->ti_flags |= TH_URG;
509 1.1 cgd } else
510 1.1 cgd /*
511 1.1 cgd * If no urgent pointer to send, then we pull
512 1.1 cgd * the urgent pointer to the left edge of the send window
513 1.1 cgd * so that it doesn't drift into the send window on sequence
514 1.1 cgd * number wraparound.
515 1.1 cgd */
516 1.1 cgd tp->snd_up = tp->snd_una; /* drag it along */
517 1.1 cgd
518 1.1 cgd /*
519 1.1 cgd * Put TCP length in extended header, and then
520 1.1 cgd * checksum extended header and data.
521 1.1 cgd */
522 1.1 cgd if (len + optlen)
523 1.12 cgd ti->ti_len = htons((u_int16_t)(sizeof (struct tcphdr) +
524 1.1 cgd optlen + len));
525 1.1 cgd ti->ti_sum = in_cksum(m, (int)(hdrlen + len));
526 1.1 cgd
527 1.1 cgd /*
528 1.1 cgd * In transmit state, time the transmission and arrange for
529 1.1 cgd * the retransmit. In persist state, just set snd_max.
530 1.1 cgd */
531 1.1 cgd if (tp->t_force == 0 || tp->t_timer[TCPT_PERSIST] == 0) {
532 1.1 cgd tcp_seq startseq = tp->snd_nxt;
533 1.1 cgd
534 1.1 cgd /*
535 1.1 cgd * Advance snd_nxt over sequence space of this segment.
536 1.1 cgd */
537 1.1 cgd if (flags & (TH_SYN|TH_FIN)) {
538 1.1 cgd if (flags & TH_SYN)
539 1.1 cgd tp->snd_nxt++;
540 1.1 cgd if (flags & TH_FIN) {
541 1.1 cgd tp->snd_nxt++;
542 1.1 cgd tp->t_flags |= TF_SENTFIN;
543 1.1 cgd }
544 1.1 cgd }
545 1.1 cgd tp->snd_nxt += len;
546 1.1 cgd if (SEQ_GT(tp->snd_nxt, tp->snd_max)) {
547 1.1 cgd tp->snd_max = tp->snd_nxt;
548 1.1 cgd /*
549 1.1 cgd * Time this transmission if not a retransmission and
550 1.1 cgd * not currently timing anything.
551 1.1 cgd */
552 1.1 cgd if (tp->t_rtt == 0) {
553 1.1 cgd tp->t_rtt = 1;
554 1.1 cgd tp->t_rtseq = startseq;
555 1.1 cgd tcpstat.tcps_segstimed++;
556 1.1 cgd }
557 1.1 cgd }
558 1.1 cgd
559 1.1 cgd /*
560 1.1 cgd * Set retransmit timer if not currently set,
561 1.1 cgd * and not doing an ack or a keep-alive probe.
562 1.1 cgd * Initial value for retransmit timer is smoothed
563 1.1 cgd * round-trip time + 2 * round-trip time variance.
564 1.1 cgd * Initialize shift counter which is used for backoff
565 1.1 cgd * of retransmit time.
566 1.1 cgd */
567 1.1 cgd if (tp->t_timer[TCPT_REXMT] == 0 &&
568 1.1 cgd tp->snd_nxt != tp->snd_una) {
569 1.1 cgd tp->t_timer[TCPT_REXMT] = tp->t_rxtcur;
570 1.1 cgd if (tp->t_timer[TCPT_PERSIST]) {
571 1.1 cgd tp->t_timer[TCPT_PERSIST] = 0;
572 1.1 cgd tp->t_rxtshift = 0;
573 1.1 cgd }
574 1.1 cgd }
575 1.1 cgd } else
576 1.1 cgd if (SEQ_GT(tp->snd_nxt + len, tp->snd_max))
577 1.1 cgd tp->snd_max = tp->snd_nxt + len;
578 1.1 cgd
579 1.1 cgd /*
580 1.1 cgd * Trace.
581 1.1 cgd */
582 1.1 cgd if (so->so_options & SO_DEBUG)
583 1.1 cgd tcp_trace(TA_OUTPUT, tp->t_state, tp, ti, 0);
584 1.1 cgd
585 1.1 cgd /*
586 1.1 cgd * Fill in IP length and desired time to live and
587 1.1 cgd * send to IP level. There should be a better way
588 1.1 cgd * to handle ttl and tos; we could keep them in
589 1.1 cgd * the template, but need a way to checksum without them.
590 1.1 cgd */
591 1.1 cgd m->m_pkthdr.len = hdrlen + len;
592 1.9 mycroft #ifdef TUBA
593 1.9 mycroft if (tp->t_tuba_pcb)
594 1.9 mycroft error = tuba_output(m, tp);
595 1.9 mycroft else
596 1.9 mycroft #endif
597 1.9 mycroft {
598 1.19 kml struct rtentry *rt;
599 1.19 kml
600 1.1 cgd ((struct ip *)ti)->ip_len = m->m_pkthdr.len;
601 1.1 cgd ((struct ip *)ti)->ip_ttl = tp->t_inpcb->inp_ip.ip_ttl; /* XXX */
602 1.1 cgd ((struct ip *)ti)->ip_tos = tp->t_inpcb->inp_ip.ip_tos; /* XXX */
603 1.19 kml
604 1.20 kml if (ip_mtudisc && (rt = in_pcbrtentry(tp->t_inpcb)) != 0 &&
605 1.19 kml (rt->rt_rmx.rmx_locks & RTV_MTU) == 0)
606 1.19 kml ((struct ip *)ti)->ip_off |= IP_DF;
607 1.19 kml
608 1.1 cgd #if BSD >= 43
609 1.1 cgd error = ip_output(m, tp->t_inpcb->inp_options, &tp->t_inpcb->inp_route,
610 1.9 mycroft so->so_options & SO_DONTROUTE, 0);
611 1.1 cgd #else
612 1.9 mycroft error = ip_output(m, (struct mbuf *)0, &tp->t_inpcb->inp_route,
613 1.1 cgd so->so_options & SO_DONTROUTE);
614 1.1 cgd #endif
615 1.9 mycroft }
616 1.1 cgd if (error) {
617 1.1 cgd out:
618 1.1 cgd if (error == ENOBUFS) {
619 1.6 mycroft tcp_quench(tp->t_inpcb, 0);
620 1.1 cgd return (0);
621 1.1 cgd }
622 1.1 cgd if ((error == EHOSTUNREACH || error == ENETDOWN)
623 1.1 cgd && TCPS_HAVERCVDSYN(tp->t_state)) {
624 1.1 cgd tp->t_softerror = error;
625 1.1 cgd return (0);
626 1.1 cgd }
627 1.1 cgd return (error);
628 1.1 cgd }
629 1.1 cgd tcpstat.tcps_sndtotal++;
630 1.20.2.3 mellon if (tp->t_flags & TF_DELACK)
631 1.20.2.3 mellon tcpstat.tcps_delack++;
632 1.1 cgd
633 1.1 cgd /*
634 1.1 cgd * Data sent (as far as we can tell).
635 1.1 cgd * If this advertises a larger window than any other segment,
636 1.1 cgd * then remember the size of the advertised window.
637 1.1 cgd * Any pending ACK has now been sent.
638 1.1 cgd */
639 1.1 cgd if (win > 0 && SEQ_GT(tp->rcv_nxt+win, tp->rcv_adv))
640 1.1 cgd tp->rcv_adv = tp->rcv_nxt + win;
641 1.9 mycroft tp->last_ack_sent = tp->rcv_nxt;
642 1.20.2.3 mellon tp->t_flags &= ~TF_ACKNOW;
643 1.20.2.3 mellon TCP_CLEAR_DELACK(tp);
644 1.1 cgd if (sendalot)
645 1.1 cgd goto again;
646 1.1 cgd return (0);
647 1.1 cgd }
648 1.1 cgd
649 1.6 mycroft void
650 1.1 cgd tcp_setpersist(tp)
651 1.1 cgd register struct tcpcb *tp;
652 1.1 cgd {
653 1.20.2.2 thorpej register int t = ((tp->t_srtt >> 2) + tp->t_rttvar) >> (1 + 2);
654 1.1 cgd
655 1.1 cgd if (tp->t_timer[TCPT_REXMT])
656 1.1 cgd panic("tcp_output REXMT");
657 1.1 cgd /*
658 1.1 cgd * Start/restart persistance timer.
659 1.1 cgd */
660 1.20.2.4 mycroft if (t < tp->t_rttmin)
661 1.20.2.4 mycroft t = tp->t_rttmin;
662 1.1 cgd TCPT_RANGESET(tp->t_timer[TCPT_PERSIST],
663 1.1 cgd t * tcp_backoff[tp->t_rxtshift],
664 1.1 cgd TCPTV_PERSMIN, TCPTV_PERSMAX);
665 1.1 cgd if (tp->t_rxtshift < TCP_MAXRXTSHIFT)
666 1.1 cgd tp->t_rxtshift++;
667 1.1 cgd }
668