xref: /freebsd/sys/netinet/tcp_stacks/rack_bbr_common.c (revision 7fdf597e96a02165cfe22ff357b857d5fa15ed8a)
1 /*-
2  * Copyright (c) 2016-2020 Netflix, Inc.
3  *
4  * Redistribution and use in source and binary forms, with or without
5  * modification, are permitted provided that the following conditions
6  * are met:
7  * 1. Redistributions of source code must retain the above copyright
8  *    notice, this list of conditions and the following disclaimer.
9  * 2. Redistributions in binary form must reproduce the above copyright
10  *    notice, this list of conditions and the following disclaimer in the
11  *    documentation and/or other materials provided with the distribution.
12  *
13  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
14  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
15  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
16  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
17  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23  * SUCH DAMAGE.
24  *
25  */
26 /*
27  * Author: Randall Stewart <rrs@netflix.com>
28  * This work is based on the ACM Queue paper
29  * BBR - Congestion Based Congestion Control
30  * and also numerous discussions with Neal, Yuchung and Van.
31  */
32 
33 #include <sys/cdefs.h>
34 #include "opt_inet.h"
35 #include "opt_inet6.h"
36 #include "opt_ipsec.h"
37 #include "opt_ratelimit.h"
38 #include <sys/param.h>
39 #include <sys/arb.h>
40 #include <sys/module.h>
41 #include <sys/kernel.h>
42 #ifdef TCP_HHOOK
43 #include <sys/hhook.h>
44 #endif
45 #include <sys/malloc.h>
46 #include <sys/mbuf.h>
47 #include <sys/proc.h>
48 #include <sys/qmath.h>
49 #include <sys/socket.h>
50 #include <sys/socketvar.h>
51 #include <sys/sysctl.h>
52 #include <sys/systm.h>
53 #include <sys/tree.h>
54 #ifdef NETFLIX_STATS
55 #include <sys/stats.h> /* Must come after qmath.h and tree.h */
56 #endif
57 #include <sys/refcount.h>
58 #include <sys/queue.h>
59 #include <sys/smp.h>
60 #include <sys/kthread.h>
61 #include <sys/lock.h>
62 #include <sys/mutex.h>
63 #include <sys/tim_filter.h>
64 #include <sys/time.h>
65 #include <vm/uma.h>
66 #include <sys/kern_prefetch.h>
67 
68 #include <net/route.h>
69 #include <net/vnet.h>
70 #include <net/ethernet.h>
71 #include <net/bpf.h>
72 
73 #define TCPSTATES		/* for logging */
74 
75 #include <netinet/in.h>
76 #include <netinet/in_kdtrace.h>
77 #include <netinet/in_pcb.h>
78 #include <netinet/ip.h>
79 #include <netinet/ip_icmp.h>	/* required for icmp_var.h */
80 #include <netinet/icmp_var.h>	/* for ICMP_BANDLIM */
81 #include <netinet/ip_var.h>
82 #include <netinet/ip6.h>
83 #include <netinet6/in6_pcb.h>
84 #include <netinet6/ip6_var.h>
85 #include <netinet/tcp.h>
86 #include <netinet/tcp_fsm.h>
87 #include <netinet/tcp_seq.h>
88 #include <netinet/tcp_timer.h>
89 #include <netinet/tcp_var.h>
90 #include <netinet/tcpip.h>
91 #include <netinet/tcp_ecn.h>
92 #include <netinet/tcp_hpts.h>
93 #include <netinet/tcp_lro.h>
94 #include <netinet/cc/cc.h>
95 #include <netinet/tcp_log_buf.h>
96 #ifdef TCP_OFFLOAD
97 #include <netinet/tcp_offload.h>
98 #endif
99 #ifdef INET6
100 #include <netinet6/tcp6_var.h>
101 #endif
102 #include <netinet/tcp_fastopen.h>
103 
104 #include <netipsec/ipsec_support.h>
105 #include <net/if.h>
106 #include <net/if_var.h>
107 #include <net/if_private.h>
108 
109 #if defined(IPSEC) || defined(IPSEC_SUPPORT)
110 #include <netipsec/ipsec.h>
111 #include <netipsec/ipsec6.h>
112 #endif				/* IPSEC */
113 
114 #include <netinet/udp.h>
115 #include <netinet/udp_var.h>
116 #include <machine/in_cksum.h>
117 
118 #ifdef MAC
119 #include <security/mac/mac_framework.h>
120 #endif
121 #include "rack_bbr_common.h"
122 
123 /*
124  * Common TCP Functions - These are shared by borth
125  * rack and BBR.
126  */
127 static int
128 ctf_get_enet_type(struct ifnet *ifp, struct mbuf *m)
129 {
130 	struct ether_header *eh;
131 #ifdef INET6
132 	struct ip6_hdr *ip6 = NULL;	/* Keep compiler happy. */
133 #endif
134 #ifdef INET
135 	struct ip *ip = NULL;		/* Keep compiler happy. */
136 #endif
137 #if defined(INET) || defined(INET6)
138 	struct tcphdr *th;
139 	int32_t tlen;
140 	uint16_t drop_hdrlen;
141 #endif
142 	uint16_t etype;
143 #ifdef INET
144 	uint8_t iptos;
145 #endif
146 
147 	/* Is it the easy way? */
148 	if (m->m_flags & M_LRO_EHDRSTRP)
149 		return (m->m_pkthdr.lro_etype);
150 	/*
151 	 * Ok this is the old style call, the ethernet header is here.
152 	 * This also means no checksum or BPF were done. This
153 	 * can happen if the race to setup the inp fails and
154 	 * LRO sees no INP at packet input, but by the time
155 	 * we queue the packets an INP gets there. Its rare
156 	 * but it can occur so we will handle it. Note that
157 	 * this means duplicated work but with the rarity of it
158 	 * its not worth worrying about.
159 	 */
160 	/* Let the BPF see the packet */
161 	if (bpf_peers_present(ifp->if_bpf))
162 		ETHER_BPF_MTAP(ifp, m);
163 	/* Now the csum */
164 	eh = mtod(m, struct ether_header *);
165 	etype = ntohs(eh->ether_type);
166 	m_adj(m,  sizeof(*eh));
167 	switch (etype) {
168 #ifdef INET6
169 		case ETHERTYPE_IPV6:
170 		{
171 			if (m->m_len < (sizeof(*ip6) + sizeof(*th))) {
172 				m = m_pullup(m, sizeof(*ip6) + sizeof(*th));
173 				if (m == NULL) {
174 					KMOD_TCPSTAT_INC(tcps_rcvshort);
175 					return (-1);
176 				}
177 			}
178 			ip6 = (struct ip6_hdr *)(eh + 1);
179 			th = (struct tcphdr *)(ip6 + 1);
180 			drop_hdrlen = sizeof(*ip6);
181 			tlen = ntohs(ip6->ip6_plen);
182 			if (m->m_pkthdr.csum_flags & CSUM_DATA_VALID_IPV6) {
183 				if (m->m_pkthdr.csum_flags & CSUM_PSEUDO_HDR)
184 					th->th_sum = m->m_pkthdr.csum_data;
185 				else
186 					th->th_sum = in6_cksum_pseudo(ip6, tlen,
187 								      IPPROTO_TCP,
188 								      m->m_pkthdr.csum_data);
189 				th->th_sum ^= 0xffff;
190 			} else
191 				th->th_sum = in6_cksum(m, IPPROTO_TCP, drop_hdrlen, tlen);
192 			if (th->th_sum) {
193 				KMOD_TCPSTAT_INC(tcps_rcvbadsum);
194 				m_freem(m);
195 				return (-1);
196 			}
197 			return (etype);
198 		}
199 #endif
200 #ifdef INET
201 		case ETHERTYPE_IP:
202 		{
203 			if (m->m_len < sizeof (struct tcpiphdr)) {
204 				m = m_pullup(m, sizeof (struct tcpiphdr));
205 				if (m == NULL) {
206 					KMOD_TCPSTAT_INC(tcps_rcvshort);
207 					return (-1);
208 				}
209 			}
210 			ip = (struct ip *)(eh + 1);
211 			th = (struct tcphdr *)(ip + 1);
212 			drop_hdrlen = sizeof(*ip);
213 			iptos = ip->ip_tos;
214 			tlen = ntohs(ip->ip_len) - sizeof(struct ip);
215 			if (m->m_pkthdr.csum_flags & CSUM_DATA_VALID) {
216 				if (m->m_pkthdr.csum_flags & CSUM_PSEUDO_HDR)
217 					th->th_sum = m->m_pkthdr.csum_data;
218 				else
219 					th->th_sum = in_pseudo(ip->ip_src.s_addr,
220 							       ip->ip_dst.s_addr,
221 							       htonl(m->m_pkthdr.csum_data + tlen + IPPROTO_TCP));
222 				th->th_sum ^= 0xffff;
223 			} else {
224 				int len;
225 				struct ipovly *ipov = (struct ipovly *)ip;
226 				/*
227 				 * Checksum extended TCP header and data.
228 				 */
229 				len = drop_hdrlen + tlen;
230 				bzero(ipov->ih_x1, sizeof(ipov->ih_x1));
231 				ipov->ih_len = htons(tlen);
232 				th->th_sum = in_cksum(m, len);
233 				/* Reset length for SDT probes. */
234 				ip->ip_len = htons(len);
235 				/* Reset TOS bits */
236 				ip->ip_tos = iptos;
237 				/* Re-initialization for later version check */
238 				ip->ip_v = IPVERSION;
239 				ip->ip_hl = sizeof(*ip) >> 2;
240 			}
241 			if (th->th_sum) {
242 				KMOD_TCPSTAT_INC(tcps_rcvbadsum);
243 				m_freem(m);
244 				return (-1);
245 			}
246 			break;
247 		}
248 #endif
249 	};
250 	return (etype);
251 }
252 
253 /*
254  * The function ctf_process_inbound_raw() is used by
255  * transport developers to do the steps needed to
256  * support MBUF Queuing i.e. the flags in
257  * inp->inp_flags2:
258  *
259  * - INP_SUPPORTS_MBUFQ
260  * - INP_MBUF_QUEUE_READY
261  * - INP_DONT_SACK_QUEUE
262  * - INP_MBUF_ACKCMP
263  *
264  * These flags help control how LRO will deliver
265  * packets to the transport. You first set in inp_flags2
266  * the INP_SUPPORTS_MBUFQ to tell the LRO code that you
267  * will gladly take a queue of packets instead of a compressed
268  * single packet. You also set in your t_fb pointer the
269  * tfb_do_queued_segments to point to ctf_process_inbound_raw.
270  *
271  * This then gets you lists of inbound ACK's/Data instead
272  * of a condensed compressed ACK/DATA packet. Why would you
273  * want that? This will get you access to all the arrival
274  * times of at least LRO and possibly at the Hardware (if
275  * the interface card supports that) of the actual ACK/DATA.
276  * In some transport designs this is important since knowing
277  * the actual time we got the packet is useful information.
278  *
279  * A new special type of mbuf may also be supported by the transport
280  * if it has set the INP_MBUF_ACKCMP flag. If its set, LRO will
281  * possibly create a M_ACKCMP type mbuf. This is a mbuf with
282  * an array of "acks". One thing also to note is that when this
283  * occurs a subsequent LRO may find at the back of the untouched
284  * mbuf queue chain a M_ACKCMP and append on to it. This means
285  * that until the transport pulls in the mbuf chain queued
286  * for it more ack's may get on the mbufs that were already
287  * delivered. There currently is a limit of 6 acks condensed
288  * into 1 mbuf which means often when this is occuring, we
289  * don't get that effect but it does happen.
290  *
291  * Now there are some interesting Caveats that the transport
292  * designer needs to take into account when using this feature.
293  *
294  * 1) It is used with HPTS and pacing, when the pacing timer
295  *    for output calls it will first call the input.
296  * 2) When you set INP_MBUF_QUEUE_READY this tells LRO
297  *    queue normal packets, I am busy pacing out data and
298  *    will process the queued packets before my tfb_tcp_output
299  *    call from pacing. If a non-normal packet arrives, (e.g. sack)
300  *    you will be awoken immediately.
301  * 3) Finally you can add the INP_DONT_SACK_QUEUE to not even
302  *    be awoken if a SACK has arrived. You would do this when
303  *    you were not only running a pacing for output timer
304  *    but a Rack timer as well i.e. you know you are in recovery
305  *    and are in the process (via the timers) of dealing with
306  *    the loss.
307  *
308  * Now a critical thing you must be aware of here is that the
309  * use of the flags has a far greater scope then just your
310  * typical LRO. Why? Well thats because in the normal compressed
311  * LRO case at the end of a driver interupt all packets are going
312  * to get presented to the transport no matter if there is one
313  * or 100. With the MBUF_QUEUE model, this is not true. You will
314  * only be awoken to process the queue of packets when:
315  *     a) The flags discussed above allow it.
316  *          <or>
317  *     b) You exceed a ack or data limit (by default the
318  *        ack limit is infinity (64k acks) and the data
319  *        limit is 64k of new TCP data)
320  *         <or>
321  *     c) The push bit has been set by the peer
322  */
323 
324 static int
325 ctf_process_inbound_raw(struct tcpcb *tp, struct mbuf *m, int has_pkt)
326 {
327 	/*
328 	 * We are passed a raw change of mbuf packets
329 	 * that arrived in LRO. They are linked via
330 	 * the m_nextpkt link in the pkt-headers.
331 	 *
332 	 * We process each one by:
333 	 * a) saving off the next
334 	 * b) stripping off the ether-header
335 	 * c) formulating the arguments for tfb_do_segment_nounlock()
336 	 * d) calling each mbuf to tfb_do_segment_nounlock()
337 	 *    after adjusting the time to match the arrival time.
338 	 * Note that the LRO code assures no IP options are present.
339 	 *
340 	 * The symantics for calling tfb_do_segment_nounlock() are the
341 	 * following:
342 	 * 1) It returns 0 if all went well and you (the caller) need
343 	 *    to release the lock.
344 	 * 2) If nxt_pkt is set, then the function will surpress calls
345 	 *    to tcp_output() since you are promising to call again
346 	 *    with another packet.
347 	 * 3) If it returns 1, then you must free all the packets being
348 	 *    shipped in, the tcb has been destroyed (or about to be destroyed).
349 	 */
350 	struct mbuf *m_save;
351 	struct tcphdr *th;
352 #ifdef INET6
353 	struct ip6_hdr *ip6 = NULL;	/* Keep compiler happy. */
354 #endif
355 #ifdef INET
356 	struct ip *ip = NULL;		/* Keep compiler happy. */
357 #endif
358 	struct ifnet *ifp;
359 	struct timeval tv;
360 	struct inpcb *inp __diagused;
361 	int32_t retval, nxt_pkt, tlen, off;
362 	int etype = 0;
363 	uint16_t drop_hdrlen;
364 	uint8_t iptos, no_vn=0;
365 
366 	inp = tptoinpcb(tp);
367 	INP_WLOCK_ASSERT(inp);
368 	NET_EPOCH_ASSERT();
369 
370 	if (m)
371 		ifp = m_rcvif(m);
372 	else
373 		ifp = NULL;
374 	if (ifp == NULL) {
375 		/*
376 		 * We probably should not work around
377 		 * but kassert, since lro alwasy sets rcvif.
378 		 */
379 		no_vn = 1;
380 		goto skip_vnet;
381 	}
382 	CURVNET_SET(ifp->if_vnet);
383 skip_vnet:
384 	tcp_get_usecs(&tv);
385 	while (m) {
386 		m_save = m->m_nextpkt;
387 		m->m_nextpkt = NULL;
388 		if ((m->m_flags & M_ACKCMP) == 0) {
389 			/* Now lets get the ether header */
390 			etype = ctf_get_enet_type(ifp, m);
391 			if (etype == -1) {
392 				/* Skip this packet it was freed by checksum */
393 				goto skipped_pkt;
394 			}
395 			KASSERT(((etype == ETHERTYPE_IPV6) || (etype == ETHERTYPE_IP)),
396 				("tp:%p m:%p etype:0x%x -- not IP or IPv6", tp, m, etype));
397 			/* Trim off the ethernet header */
398 			switch (etype) {
399 #ifdef INET6
400 			case ETHERTYPE_IPV6:
401 				ip6 = mtod(m, struct ip6_hdr *);
402 				th = (struct tcphdr *)(ip6 + 1);
403 				tlen = ntohs(ip6->ip6_plen);
404 				drop_hdrlen = sizeof(*ip6);
405 				iptos = (ntohl(ip6->ip6_flow) >> 20) & 0xff;
406 				break;
407 #endif
408 #ifdef INET
409 			case ETHERTYPE_IP:
410 				ip = mtod(m, struct ip *);
411 				th = (struct tcphdr *)(ip + 1);
412 				drop_hdrlen = sizeof(*ip);
413 				iptos = ip->ip_tos;
414 				tlen = ntohs(ip->ip_len) - sizeof(struct ip);
415 				break;
416 #endif
417 			} /* end switch */
418 			off = th->th_off << 2;
419 			if (off < sizeof (struct tcphdr) || off > tlen) {
420 				printf("off:%d < hdrlen:%zu || > tlen:%u -- dump\n",
421 				       off,
422 				       sizeof(struct tcphdr),
423 				       tlen);
424 				KMOD_TCPSTAT_INC(tcps_rcvbadoff);
425 				m_freem(m);
426 				goto skipped_pkt;
427 			}
428 			tlen -= off;
429 			drop_hdrlen += off;
430 			/*
431 			 * Now lets setup the timeval to be when we should
432 			 * have been called (if we can).
433 			 */
434 			m->m_pkthdr.lro_nsegs = 1;
435 			/* Now what about next packet? */
436 		} else {
437 			/*
438 			 * This mbuf is an array of acks that have
439 			 * been compressed. We assert the inp has
440 			 * the flag set to enable this!
441 			 */
442 			KASSERT((tp->t_flags2 & TF2_MBUF_ACKCMP),
443 			    ("tp:%p no TF2_MBUF_ACKCMP flags?", tp));
444 			tlen = 0;
445 			drop_hdrlen = 0;
446 			th = NULL;
447 			iptos = 0;
448 		}
449 		tcp_get_usecs(&tv);
450 		if (m_save || has_pkt)
451 			nxt_pkt = 1;
452 		else
453 			nxt_pkt = 0;
454 		if ((m->m_flags & M_ACKCMP) == 0)
455 			KMOD_TCPSTAT_INC(tcps_rcvtotal);
456 		else
457 			KMOD_TCPSTAT_ADD(tcps_rcvtotal, (m->m_len / sizeof(struct tcp_ackent)));
458 		retval = (*tp->t_fb->tfb_do_segment_nounlock)(tp, m, th,
459 		    drop_hdrlen, tlen, iptos, nxt_pkt, &tv);
460 		if (retval) {
461 			/* We lost the lock and tcb probably */
462 			m = m_save;
463 			while(m) {
464 				m_save = m->m_nextpkt;
465 				m->m_nextpkt = NULL;
466 				m_freem(m);
467 				m = m_save;
468 			}
469 			if (no_vn == 0) {
470 				CURVNET_RESTORE();
471 			}
472 			INP_UNLOCK_ASSERT(inp);
473 			return(retval);
474 		}
475 skipped_pkt:
476 		m = m_save;
477 	}
478 	if (no_vn == 0) {
479 		CURVNET_RESTORE();
480 	}
481 	return(retval);
482 }
483 
484 int
485 ctf_do_queued_segments(struct tcpcb *tp, int have_pkt)
486 {
487 	struct mbuf *m;
488 
489 	/* First lets see if we have old packets */
490 	if ((m = STAILQ_FIRST(&tp->t_inqueue)) != NULL) {
491 		STAILQ_INIT(&tp->t_inqueue);
492 		if (ctf_process_inbound_raw(tp, m, have_pkt)) {
493 			/* We lost the tcpcb (maybe a RST came in)? */
494 			return(1);
495 		}
496 	}
497 	return (0);
498 }
499 
500 uint32_t
501 ctf_outstanding(struct tcpcb *tp)
502 {
503 	uint32_t bytes_out;
504 
505 	bytes_out = tp->snd_max - tp->snd_una;
506 	if (tp->t_state < TCPS_ESTABLISHED)
507 		bytes_out++;
508 	if (tp->t_flags & TF_SENTFIN)
509 		bytes_out++;
510 	return (bytes_out);
511 }
512 
513 uint32_t
514 ctf_flight_size(struct tcpcb *tp, uint32_t rc_sacked)
515 {
516 	if (rc_sacked <= ctf_outstanding(tp))
517 		return(ctf_outstanding(tp) - rc_sacked);
518 	else {
519 		return (0);
520 	}
521 }
522 
523 void
524 ctf_do_dropwithreset(struct mbuf *m, struct tcpcb *tp, struct tcphdr *th,
525     int32_t rstreason, int32_t tlen)
526 {
527 	if (tp != NULL) {
528 		tcp_dropwithreset(m, th, tp, tlen, rstreason);
529 		INP_WUNLOCK(tptoinpcb(tp));
530 	} else
531 		tcp_dropwithreset(m, th, NULL, tlen, rstreason);
532 }
533 
534 void
535 ctf_ack_war_checks(struct tcpcb *tp)
536 {
537 	sbintime_t now;
538 
539 	if ((V_tcp_ack_war_time_window > 0) && (V_tcp_ack_war_cnt > 0)) {
540 		now = getsbinuptime();
541 		if (tp->t_challenge_ack_end < now) {
542 			tp->t_challenge_ack_cnt = 0;
543 			tp->t_challenge_ack_end = now +
544 			    V_tcp_ack_war_time_window * SBT_1MS;
545 		}
546 		if (tp->t_challenge_ack_cnt < V_tcp_ack_war_cnt) {
547 			tp->t_challenge_ack_cnt++;
548 			tp->t_flags |= TF_ACKNOW;
549 		} else
550 			tp->t_flags &= ~TF_ACKNOW;
551 	} else
552 		tp->t_flags |= TF_ACKNOW;
553 }
554 
555 /*
556  * ctf_drop_checks returns 1 for you should not proceed. It places
557  * in ret_val what should be returned 1/0 by the caller. The 1 indicates
558  * that the TCB is unlocked and probably dropped. The 0 indicates the
559  * TCB is still valid and locked.
560  */
561 int
562 ctf_drop_checks(struct tcpopt *to, struct mbuf *m, struct tcphdr *th,
563 		struct tcpcb *tp, int32_t *tlenp,
564 		int32_t *thf, int32_t *drop_hdrlen, int32_t *ret_val)
565 {
566 	int32_t todrop;
567 	int32_t thflags;
568 	int32_t tlen;
569 
570 	thflags = *thf;
571 	tlen = *tlenp;
572 	todrop = tp->rcv_nxt - th->th_seq;
573 	if (todrop > 0) {
574 		if (thflags & TH_SYN) {
575 			thflags &= ~TH_SYN;
576 			th->th_seq++;
577 			if (th->th_urp > 1)
578 				th->th_urp--;
579 			else
580 				thflags &= ~TH_URG;
581 			todrop--;
582 		}
583 		/*
584 		 * Following if statement from Stevens, vol. 2, p. 960.
585 		 */
586 		if (todrop > tlen
587 		    || (todrop == tlen && (thflags & TH_FIN) == 0)) {
588 			/*
589 			 * Any valid FIN must be to the left of the window.
590 			 * At this point the FIN must be a duplicate or out
591 			 * of sequence; drop it.
592 			 */
593 			thflags &= ~TH_FIN;
594 			/*
595 			 * Send an ACK to resynchronize and drop any data.
596 			 * But keep on processing for RST or ACK.
597 			 */
598 			ctf_ack_war_checks(tp);
599 			todrop = tlen;
600 			KMOD_TCPSTAT_INC(tcps_rcvduppack);
601 			KMOD_TCPSTAT_ADD(tcps_rcvdupbyte, todrop);
602 		} else {
603 			KMOD_TCPSTAT_INC(tcps_rcvpartduppack);
604 			KMOD_TCPSTAT_ADD(tcps_rcvpartdupbyte, todrop);
605 		}
606 		/*
607 		 * DSACK - add SACK block for dropped range
608 		 */
609 		if ((todrop > 0) && (tp->t_flags & TF_SACK_PERMIT)) {
610 			/*
611 			 * ACK now, as the next in-sequence segment
612 			 * will clear the DSACK block again
613 			 */
614 			ctf_ack_war_checks(tp);
615 			if (tp->t_flags & TF_ACKNOW)
616 				tcp_update_sack_list(tp, th->th_seq,
617 						     th->th_seq + todrop);
618 		}
619 		*drop_hdrlen += todrop;	/* drop from the top afterwards */
620 		th->th_seq += todrop;
621 		tlen -= todrop;
622 		if (th->th_urp > todrop)
623 			th->th_urp -= todrop;
624 		else {
625 			thflags &= ~TH_URG;
626 			th->th_urp = 0;
627 		}
628 	}
629 	/*
630 	 * If segment ends after window, drop trailing data (and PUSH and
631 	 * FIN); if nothing left, just ACK.
632 	 */
633 	todrop = (th->th_seq + tlen) - (tp->rcv_nxt + tp->rcv_wnd);
634 	if (todrop > 0) {
635 		KMOD_TCPSTAT_INC(tcps_rcvpackafterwin);
636 		if (todrop >= tlen) {
637 			KMOD_TCPSTAT_ADD(tcps_rcvbyteafterwin, tlen);
638 			/*
639 			 * If window is closed can only take segments at
640 			 * window edge, and have to drop data and PUSH from
641 			 * incoming segments.  Continue processing, but
642 			 * remember to ack.  Otherwise, drop segment and
643 			 * ack.
644 			 */
645 			if (tp->rcv_wnd == 0 && th->th_seq == tp->rcv_nxt) {
646 				ctf_ack_war_checks(tp);
647 				KMOD_TCPSTAT_INC(tcps_rcvwinprobe);
648 			} else {
649 				ctf_do_dropafterack(m, tp, th, thflags, tlen, ret_val);
650 				return (1);
651 			}
652 		} else
653 			KMOD_TCPSTAT_ADD(tcps_rcvbyteafterwin, todrop);
654 		m_adj(m, -todrop);
655 		tlen -= todrop;
656 		thflags &= ~(TH_PUSH | TH_FIN);
657 	}
658 	*thf = thflags;
659 	*tlenp = tlen;
660 	return (0);
661 }
662 
663 /*
664  * The value in ret_val informs the caller
665  * if we dropped the tcb (and lock) or not.
666  * 1 = we dropped it, 0 = the TCB is still locked
667  * and valid.
668  */
669 void
670 ctf_do_dropafterack(struct mbuf *m, struct tcpcb *tp, struct tcphdr *th, int32_t thflags, int32_t tlen, int32_t *ret_val)
671 {
672 	/*
673 	 * Generate an ACK dropping incoming segment if it occupies sequence
674 	 * space, where the ACK reflects our state.
675 	 *
676 	 * We can now skip the test for the RST flag since all paths to this
677 	 * code happen after packets containing RST have been dropped.
678 	 *
679 	 * In the SYN-RECEIVED state, don't send an ACK unless the segment
680 	 * we received passes the SYN-RECEIVED ACK test. If it fails send a
681 	 * RST.  This breaks the loop in the "LAND" DoS attack, and also
682 	 * prevents an ACK storm between two listening ports that have been
683 	 * sent forged SYN segments, each with the source address of the
684 	 * other.
685 	 */
686 	if (tp->t_state == TCPS_SYN_RECEIVED && (thflags & TH_ACK) &&
687 	    (SEQ_GT(tp->snd_una, th->th_ack) ||
688 	    SEQ_GT(th->th_ack, tp->snd_max))) {
689 		*ret_val = 1;
690 		ctf_do_dropwithreset(m, tp, th, BANDLIM_RST_OPENPORT, tlen);
691 		return;
692 	} else
693 		*ret_val = 0;
694 	ctf_ack_war_checks(tp);
695 	if (m)
696 		m_freem(m);
697 }
698 
699 void
700 ctf_do_drop(struct mbuf *m, struct tcpcb *tp)
701 {
702 
703 	/*
704 	 * Drop space held by incoming segment and return.
705 	 */
706 	if (tp != NULL)
707 		INP_WUNLOCK(tptoinpcb(tp));
708 	if (m)
709 		m_freem(m);
710 }
711 
712 int
713 ctf_process_rst(struct mbuf *m, struct tcphdr *th, struct socket *so,
714 		struct tcpcb *tp)
715 {
716 	/*
717 	 * RFC5961 Section 3.2
718 	 *
719 	 * - RST drops connection only if SEG.SEQ == RCV.NXT. - If RST is in
720 	 * window, we send challenge ACK.
721 	 *
722 	 * Note: to take into account delayed ACKs, we should test against
723 	 * last_ack_sent instead of rcv_nxt. Note 2: we handle special case
724 	 * of closed window, not covered by the RFC.
725 	 */
726 	int dropped = 0;
727 
728 	if ((SEQ_GEQ(th->th_seq, tp->last_ack_sent) &&
729 	    SEQ_LT(th->th_seq, tp->last_ack_sent + tp->rcv_wnd)) ||
730 	    (tp->rcv_wnd == 0 && tp->last_ack_sent == th->th_seq)) {
731 		KASSERT(tp->t_state != TCPS_SYN_SENT,
732 		    ("%s: TH_RST for TCPS_SYN_SENT th %p tp %p",
733 		    __func__, th, tp));
734 
735 		if (V_tcp_insecure_rst ||
736 		    (tp->last_ack_sent == th->th_seq) ||
737 		    (tp->rcv_nxt == th->th_seq)) {
738 			KMOD_TCPSTAT_INC(tcps_drops);
739 			/* Drop the connection. */
740 			switch (tp->t_state) {
741 			case TCPS_SYN_RECEIVED:
742 				so->so_error = ECONNREFUSED;
743 				goto close;
744 			case TCPS_ESTABLISHED:
745 			case TCPS_FIN_WAIT_1:
746 			case TCPS_FIN_WAIT_2:
747 			case TCPS_CLOSE_WAIT:
748 			case TCPS_CLOSING:
749 			case TCPS_LAST_ACK:
750 				so->so_error = ECONNRESET;
751 		close:
752 				tcp_state_change(tp, TCPS_CLOSED);
753 				/* FALLTHROUGH */
754 			default:
755 				tcp_log_end_status(tp, TCP_EI_STATUS_CLIENT_RST);
756 				tp = tcp_close(tp);
757 			}
758 			dropped = 1;
759 			ctf_do_drop(m, tp);
760 		} else {
761 			KMOD_TCPSTAT_INC(tcps_badrst);
762 			tcp_send_challenge_ack(tp, th, m);
763 		}
764 	} else {
765 		m_freem(m);
766 	}
767 	return (dropped);
768 }
769 
770 /*
771  * The value in ret_val informs the caller
772  * if we dropped the tcb (and lock) or not.
773  * 1 = we dropped it, 0 = the TCB is still locked
774  * and valid.
775  */
776 void
777 ctf_challenge_ack(struct mbuf *m, struct tcphdr *th, struct tcpcb *tp, uint8_t iptos, int32_t * ret_val)
778 {
779 
780 	NET_EPOCH_ASSERT();
781 
782 	KMOD_TCPSTAT_INC(tcps_badsyn);
783 	if (V_tcp_insecure_syn &&
784 	    SEQ_GEQ(th->th_seq, tp->last_ack_sent) &&
785 	    SEQ_LT(th->th_seq, tp->last_ack_sent + tp->rcv_wnd)) {
786 		tp = tcp_drop(tp, ECONNRESET);
787 		*ret_val = 1;
788 		ctf_do_drop(m, tp);
789 	} else {
790 		tcp_ecn_input_syn_sent(tp, tcp_get_flags(th), iptos);
791 		/* Send challenge ACK. */
792 		tcp_respond(tp, mtod(m, void *), th, m, tp->rcv_nxt,
793 		    tp->snd_nxt, TH_ACK);
794 		tp->last_ack_sent = tp->rcv_nxt;
795 		m = NULL;
796 		*ret_val = 0;
797 		ctf_do_drop(m, NULL);
798 	}
799 }
800 
801 /*
802  * ctf_ts_check returns 1 for you should not proceed, the state
803  * machine should return. It places in ret_val what should
804  * be returned 1/0 by the caller (hpts_do_segment). The 1 indicates
805  * that the TCB is unlocked and probably dropped. The 0 indicates the
806  * TCB is still valid and locked.
807  */
808 int
809 ctf_ts_check(struct mbuf *m, struct tcphdr *th, struct tcpcb *tp,
810     int32_t tlen, int32_t thflags, int32_t * ret_val)
811 {
812 
813 	if (tcp_ts_getticks() - tp->ts_recent_age > TCP_PAWS_IDLE) {
814 		/*
815 		 * Invalidate ts_recent.  If this segment updates ts_recent,
816 		 * the age will be reset later and ts_recent will get a
817 		 * valid value.  If it does not, setting ts_recent to zero
818 		 * will at least satisfy the requirement that zero be placed
819 		 * in the timestamp echo reply when ts_recent isn't valid.
820 		 * The age isn't reset until we get a valid ts_recent
821 		 * because we don't want out-of-order segments to be dropped
822 		 * when ts_recent is old.
823 		 */
824 		tp->ts_recent = 0;
825 	} else {
826 		KMOD_TCPSTAT_INC(tcps_rcvduppack);
827 		KMOD_TCPSTAT_ADD(tcps_rcvdupbyte, tlen);
828 		KMOD_TCPSTAT_INC(tcps_pawsdrop);
829 		*ret_val = 0;
830 		if (tlen) {
831 			ctf_do_dropafterack(m, tp, th, thflags, tlen, ret_val);
832 		} else {
833 			ctf_do_drop(m, NULL);
834 		}
835 		return (1);
836 	}
837 	return (0);
838 }
839 
840 int
841 ctf_ts_check_ac(struct tcpcb *tp, int32_t thflags)
842 {
843 
844 	if (tcp_ts_getticks() - tp->ts_recent_age > TCP_PAWS_IDLE) {
845 		/*
846 		 * Invalidate ts_recent.  If this segment updates ts_recent,
847 		 * the age will be reset later and ts_recent will get a
848 		 * valid value.  If it does not, setting ts_recent to zero
849 		 * will at least satisfy the requirement that zero be placed
850 		 * in the timestamp echo reply when ts_recent isn't valid.
851 		 * The age isn't reset until we get a valid ts_recent
852 		 * because we don't want out-of-order segments to be dropped
853 		 * when ts_recent is old.
854 		 */
855 		tp->ts_recent = 0;
856 	} else {
857 		KMOD_TCPSTAT_INC(tcps_rcvduppack);
858 		KMOD_TCPSTAT_INC(tcps_pawsdrop);
859 		return (1);
860 	}
861 	return (0);
862 }
863 
864 
865 
866 void
867 ctf_calc_rwin(struct socket *so, struct tcpcb *tp)
868 {
869 	int32_t win;
870 
871 	/*
872 	 * Calculate amount of space in receive window, and then do TCP
873 	 * input processing. Receive window is amount of space in rcv queue,
874 	 * but not less than advertised window.
875 	 */
876 	win = sbspace(&so->so_rcv);
877 	if (win < 0)
878 		win = 0;
879 	tp->rcv_wnd = imax(win, (int)(tp->rcv_adv - tp->rcv_nxt));
880 }
881 
882 void
883 ctf_do_dropwithreset_conn(struct mbuf *m, struct tcpcb *tp, struct tcphdr *th,
884     int32_t rstreason, int32_t tlen)
885 {
886 
887 	tcp_dropwithreset(m, th, tp, tlen, rstreason);
888 	tp = tcp_drop(tp, ETIMEDOUT);
889 	if (tp)
890 		INP_WUNLOCK(tptoinpcb(tp));
891 }
892 
893 uint32_t
894 ctf_fixed_maxseg(struct tcpcb *tp)
895 {
896 	return (tcp_fixed_maxseg(tp));
897 }
898 
899 void
900 ctf_log_sack_filter(struct tcpcb *tp, int num_sack_blks, struct sackblk *sack_blocks)
901 {
902 	if (tcp_bblogging_on(tp)) {
903 		union tcp_log_stackspecific log;
904 		struct timeval tv;
905 
906 		memset(&log, 0, sizeof(log));
907 		log.u_bbr.timeStamp = tcp_get_usecs(&tv);
908 		log.u_bbr.flex8 = num_sack_blks;
909 		if (num_sack_blks > 0) {
910 			log.u_bbr.flex1 = sack_blocks[0].start;
911 			log.u_bbr.flex2 = sack_blocks[0].end;
912 		}
913 		if (num_sack_blks > 1) {
914 			log.u_bbr.flex3 = sack_blocks[1].start;
915 			log.u_bbr.flex4 = sack_blocks[1].end;
916 		}
917 		if (num_sack_blks > 2) {
918 			log.u_bbr.flex5 = sack_blocks[2].start;
919 			log.u_bbr.flex6 = sack_blocks[2].end;
920 		}
921 		if (num_sack_blks > 3) {
922 			log.u_bbr.applimited = sack_blocks[3].start;
923 			log.u_bbr.pkts_out = sack_blocks[3].end;
924 		}
925 		TCP_LOG_EVENTP(tp, NULL,
926 		    &tptosocket(tp)->so_rcv,
927 		    &tptosocket(tp)->so_snd,
928 		    TCP_SACK_FILTER_RES, 0,
929 		    0, &log, false, &tv);
930 	}
931 }
932 
933 uint32_t
934 ctf_decay_count(uint32_t count, uint32_t decay)
935 {
936 	/*
937 	 * Given a count, decay it by a set percentage. The
938 	 * percentage is in thousands i.e. 100% = 1000,
939 	 * 19.3% = 193.
940 	 */
941 	uint64_t perc_count, decay_per;
942 	uint32_t decayed_count;
943 	if (decay > 1000) {
944 		/* We don't raise it */
945 		return (count);
946 	}
947 	perc_count = count;
948 	decay_per = decay;
949 	perc_count *= decay_per;
950 	perc_count /= 1000;
951 	/*
952 	 * So now perc_count holds the
953 	 * count decay value.
954 	 */
955 	decayed_count = count - (uint32_t)perc_count;
956 	return(decayed_count);
957 }
958 
959 int32_t
960 ctf_progress_timeout_check(struct tcpcb *tp, bool log)
961 {
962 	if (tp->t_maxunacktime && tp->t_acktime && TSTMP_GT(ticks, tp->t_acktime)) {
963 		if ((ticks - tp->t_acktime) >= tp->t_maxunacktime) {
964 			/*
965 			 * There is an assumption that the caller
966 			 * will drop the connection so we will
967 			 * increment the counters here.
968 			 */
969 			if (log)
970 				tcp_log_end_status(tp, TCP_EI_STATUS_PROGRESS);
971 #ifdef NETFLIX_STATS
972 			KMOD_TCPSTAT_INC(tcps_progdrops);
973 #endif
974 			return (1);
975 		}
976 	}
977 	return (0);
978 }
979