From a597c1fed23347cb582cfcd4a7b04e0e2a4019fe Mon Sep 17 00:00:00 2001
From: Joe Orton <jorton@apache.org>
Date: Fri, 13 Apr 2018 09:36:01 +0000
Subject: Dump server_rec ->addrs list in dump_server_rec.

git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@1829048 13f79535-47bb-0310-9956-ffa450edef68
---
 .gdbinit | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

(limited to '.gdbinit')

diff --git a/.gdbinit b/.gdbinit
index 7b3b9a7967..15f6c426a8 100644
--- a/.gdbinit
+++ b/.gdbinit
@@ -330,10 +330,26 @@ document dump_process_rec
     Print process_rec info
 end
 
+define dump_server_addr_recs
+    set $sa_ = $arg0
+    set $san_ = 0
+    while $sa_
+      ### need to call apr_sockaddr_info_getbuf to print ->host_addr properly
+      ### which is a PITA since we need a buffer :(
+      printf " addr#%d: vhost=%s -> :%d\n", $san_++, $sa_->virthost, $sa_->host_port
+      set $sa_ = $sa_->next
+    end
+end
+document dump_server_addr_recs
+    Print server_addr_rec info
+end
+
+
 define dump_server_rec
     set $s = $arg0
-    printf "name=%s:%d\n", \
-            $s->server_hostname, $s->port
+    printf "name=%s:%d (0x%lx)\n", \
+            $s->server_hostname, $s->port, $s
+    dump_server_addr_recs $s->addrs
     dump_process_rec($s->process)
 end
 document dump_server_rec
-- 
cgit v1.2.1