From 2ce2dccf21fb6cf09b590393cf57e2cedcbbf2d6 Mon Sep 17 00:00:00 2001
From: Anthony Minessale <anthm@freeswitch.org>
Date: Thu, 4 Dec 2014 13:31:19 -0500
Subject: [PATCH] update gdb scripts for new hash format

---
 support-d/.gdbinit | 51 ++++++++++++++++++++++++++++++----------------
 1 file changed, 33 insertions(+), 18 deletions(-)

diff --git a/support-d/.gdbinit b/support-d/.gdbinit
index e32687cfc4..329bc34777 100755
--- a/support-d/.gdbinit
+++ b/support-d/.gdbinit
@@ -6,11 +6,17 @@ define list_sessions
 	dont-repeat
 	printf "Listing sessions: \n"
 	set $i = 0
-	set $x=session_manager.session_table->table->first
-	while($x != 0x0)
-		printf "uuid %s is at %p\n", $x->pKey, $x->data
-		set $x = $x->next
-		set $i = $i + 1
+	set $idx = 0
+	set $len = session_manager.session_table->tablelength
+	while($idx < $len)
+	  set $x = session_manager.session_table->table[$idx]
+	  while($x != 0x0)
+	    printf "uuid %s is at %p\n", $x->k, $x->v
+	    set $i = $i + 1
+	    set $x = $x->next
+	  end
+	  set $idx = $idx + 1
+
 	end
 	printf "Found %d sessions.\n", $i
 end
@@ -21,11 +27,16 @@ end
 define hash_it_str
 	dont-repeat
 	set $i = 0
-	set $x=$arg0->table->first
-	while($x != 0x0)
-		printf "key: %s valueptr: %p\n", $x->pKey, $x->data
-		set $x = $x->next
-		set $i = $i + 1
+	set $idx = 0
+	set $len = $arg0->tablelength
+
+	while($idx < $len)
+	  set $x=$arg0->table->[$idx]
+	  while($x != 0x0)
+	    printf "key: %s valueptr: %p\n", $x->k, $x->v
+	    set $x = $x->next
+	    set $i = $i + 1
+	  end
 	end
 end
 document hash_it_str 
@@ -37,14 +48,18 @@ end
 define hash_it_str_x
 	dont-repeat
 	set $i = 0
-	set $x=$arg0->table->first
-	while($x != 0x0)
-		printf "key: %s\n", $x->pKey
-		print (($arg1*)$x->data)->$arg2
-		printf "\n\n"
-		set $x = $x->next
-		set $i = $i + 1
-		end
+	set $idx = 0
+	set $len = $arg0->tablelength
+	while($idx < $len)
+	  set $x=$arg0->table->[$idx]
+	  while($x != 0x0)
+	    printf "key: %s\n", $x->k
+	    print (($arg1*)$x->v)->$arg2
+	    printf "\n\n"
+	    set $x = $x->next
+	    set $i = $i + 1
+	  end
+	end
 end
 document hash_it_str_x
 Usage: hash_it_str_x [hashtable] [value_type] [member]