# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1137766718 0
# Node ID 9b3bace5934389bade745aaa9c5cd6b34717c6db
# Parent  325cc3e475190ce03dcd8a3d12f130d015a181ca
Don't dereference Vsystem_type's Lisp_Symbol pointer if it is NULL.

diff -r 325cc3e47519 -r 9b3bace59343 src/.gdbinit
--- a/src/.gdbinit	Fri Jan 20 13:55:02 2006 +0000
+++ b/src/.gdbinit	Fri Jan 20 14:18:38 2006 +0000
@@ -766,18 +766,21 @@
 
 # People get bothered when they see messages about non-existent functions...
 xgetptr Vsystem_type
-set $tem = (struct Lisp_Symbol *) $ptr
-xgetptr $tem->xname
-set $tem = (struct Lisp_String *) $ptr
-set $tem = (char *) $tem->data
+# $ptr is NULL in temacs
+if ($ptr != 0)
+  set $tem = (struct Lisp_Symbol *) $ptr
+  xgetptr $tem->xname
+  set $tem = (struct Lisp_String *) $ptr
+  set $tem = (char *) $tem->data
 
-# Don't let abort actually run, as it will make stdio stop working and
-# therefore the `pr' command above as well.
-if $tem[0] == 'w' && $tem[1] == 'i' && $tem[2] == 'n' && $tem[3] == 'd'
-  # The windows-nt build replaces abort with its own function.
-  break w32_abort
-else
-  break abort
+  # Don't let abort actually run, as it will make stdio stop working and
+  # therefore the `pr' command above as well.
+  if $tem[0] == 'w' && $tem[1] == 'i' && $tem[2] == 'n' && $tem[3] == 'd'
+    # The windows-nt build replaces abort with its own function.
+    break w32_abort
+  else
+    break abort
+  end
 end
 
 # x_error_quitter is defined only on X.  But window-system is set up