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