Page MenuHomeFreeBSD
Files F167015716

D44041.id134886.diff
No OneTemporary
Actions

D44041.id134886.diff
View Options

diff --git a/tools/lldb/netinet.lua b/tools/lldb/netinet.lua
new file mode 100644
--- /dev/null
+++ b/tools/lldb/netinet.lua
@@ -0,0 +1,134 @@
+--
+-- SPDX-License-Identifier: BSD-2-Clause
+--
+-- Copyright (c) 2024 Tom Jones <thj@freebsd.org>
+-- All rights reserved.
+--
+-- Redistribution and use in source and binary forms, with or without
+-- modification, are permitted provided that the following conditions
+-- are met:
+-- 1. Redistributions of source code must retain the above copyright
+-- notice, this list of conditions and the following disclaimer.
+-- 2. Redistributions in binary form must reproduce the above copyright
+-- notice, this list of conditions and the following disclaimer in the
+-- documentation and/or other materials provided with the distribution.
+--
+-- THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+-- ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+-- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+-- ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+-- FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+-- DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+-- OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+-- HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+-- LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+-- OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+-- SUCH DAMAGE.
+--
+
+local netinet = {}
+
+-- Module exports
+-- Commonly appearing constants
+--
+
+--
+-- Accessing vnet members takes the form:
+-- (struct inpcbinfo*)((((struct vnet *) vnet0 )->vnet_data_base) +
+-- (uintptr_t )&vnet_entry_tcbinfo)
+-- While we could feed this directly to EvaluateExpression (as we do with gdb),
+-- but lldb offers us a better form for constructing the final value.
+--
+-- We are expecting the full vnet member name, i.e. vnet_entry_tcbinfo
+-- and an output type, i.e. struct pcbinfo *
+--
+function netinet.vnet_get_member(self, vnet, value)
+ db = vnet:GetChildMemberWithName("vnet_data_base")
+ v = lldb.target:FindFirstGlobalVariable(value)
+ :AddressOf()
+ return db:GetValueAsUnsigned() + v:GetValueAsUnsigned()
+end
+
+function netinet.vnet_get_member_and_cast(self, vnet, value, outtype)
+ db = vnet:GetChildMemberWithName("vnet_data_base")
+ mb = lldb.target:FindFirstGlobalVariable(value)
+ :AddressOf()
+ addr = db:GetValueAsUnsigned() + mb:GetValueAsUnsigned()
+
+ return lldb.frame:EvaluateExpression("(" .. outtype .. ") " .. addr)
+end
+
+--
+-- Take a V_xxx member and look it up in curvnet, i.e. go from V_tcpinfo to
+-- vnet_entry_tcbinfo then get it from the current vnet.
+function netinet.vnet_get_V_value(self, value, vnet)
+ -- if value starts with V_ it is virtualised
+ if value:sub(1, 2, "V_") == "V_"
+ then
+ value = value:sub(3, -1, "V_")
+ else
+ print("vnet_get_V_value: Requires a value name starting with V_, given: " .. value)
+ return nil
+ end
+
+ vimage = lldb.target:
+ FindFirstGlobalVariable("sysctl___kern_features_vimage") ~= nil
+
+ if not vimage
+ then
+ return lldb.target:FindFirstGlobalVariable(value)
+ end
+
+ if vnet == nil
+ then
+ print("vnet_get_V_value: vnet is nil and this is a vimage kernel")
+ return nil
+ end
+
+ value = "vnet_entry_" .. value
+ return netinet:vnet_get_member(vnet, value)
+end
+
+function netinet.vnet_iter(self)
+ local vnet = nil
+ return function ()
+ if vnet == nil
+ then
+ vnet = lldb.target:FindFirstGlobalVariable("vnet0")
+ return vnet
+ else
+ vnet = vnet:GetChildMemberWithName("vnet_le")
+ :GetChildMemberWithName("le_next")
+
+ if vnet:GetValueAsUnsigned() == 0x0
+ then
+ return nil
+ else
+ return vnet
+ end
+ end
+ end
+end
+
+function netinet.inpcb_iter(self, inpcbinfo)
+ local inp = nil
+ return function ()
+ if inp == nil
+ then
+ inp = inpcbinfo:GetChildMemberWithName("ipi_listhead")
+ :GetChildMemberWithName("clh_first")
+ return inp
+ else
+ inp = inp :GetChildMemberWithName("inp_list")
+ :GetChildMemberWithName("cle_next")
+ if inp:GetValueAsUnsigned() == 0x0
+ then
+ return nil
+ else
+ return inp
+ end
+ end
+ end
+end
+
+return netinet

File Metadata

Mime Type
text/plain
Expires
Wed, Aug 19, 2:43 PM (19 h, 42 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
36939725
Default Alt Text
D44041.id134886.diff (4 KB)

Event Timeline