From 22d7bc04d7321c6f86789b0db4c4e69e6f0e2f59 Mon Sep 17 00:00:00 2001
From: Giuseppe Scrivano <gscrivano@gnu.org>
Date: Thu, 17 Sep 2009 11:49:56 +0200
Subject: [PATCH] Reflect last changes in the GDB script.

---
 src/.gdbinit | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/.gdbinit b/src/.gdbinit
index e8a64f5dfe4..2204fab7a5b 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -136,7 +136,7 @@ end
 
 # Print out current buffer point and boundaries
 define ppt
-  set $b = current_buffer
+  set $b = current_thread->m_current_buffer
   set $t = $b->text
   printf "BUF PT: %d", $b->pt
   if ($b->pt != $b->pt_byte)
@@ -1123,7 +1123,7 @@ Print $ assuming it is a list font (font-spec, font-entity, or font-object).
 end
 
 define xbacktrace
-  set $bt = backtrace_list
+  set $bt = current_thread->m_backtrace_list
   while $bt
     xgettype (*$bt->function)
     if $type == Lisp_Symbol
@@ -1144,7 +1144,7 @@ define xbacktrace
   end
 end
 document xbacktrace
-  Print a backtrace of Lisp function calls from backtrace_list.
+  Print a backtrace of Lisp function calls from current_thread->m_backtrace_list.
   Set a breakpoint at Fsignal and call this to see from where
   an error was signaled.
 end
@@ -1158,7 +1158,7 @@ document which
 end
 
 define xbytecode
-  set $bt = byte_stack_list
+  set $bt = current_thread->m_byte_stack_list
   while $bt
     xgettype ($bt->byte_string)
     printf "0x%x => ", $bt->byte_string
@@ -1172,7 +1172,7 @@ end
 
 # Show Lisp backtrace after normal backtrace.
 define hookpost-backtrace
-  set $bt = backtrace_list
+  set $bt = current_thread->m_backtrace_list
   if $bt
     echo \n
     echo Lisp Backtrace:\n
-- 
2.11.4.GIT