/[emacs]/emacs/src/.gdbinit
ViewVC logotype

Diff of /emacs/src/.gdbinit

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.54 by lektu, Tue Feb 4 14:03:11 2003 UTC revision 1.54.6.1 by handa, Mon Sep 8 12:48:09 2003 UTC
# Line 1  Line 1 
1  # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001  # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2003
2  #   Free Software Foundation, Inc.  #   Free Software Foundation, Inc.
3  #  #
4  # This file is part of GNU Emacs.  # This file is part of GNU Emacs.
# Line 237  end Line 237  end
237    
238  define xchartable  define xchartable
239  print (struct Lisp_Char_Table *) (($ & $valmask) | gdb_data_seg_bits)  print (struct Lisp_Char_Table *) (($ & $valmask) | gdb_data_seg_bits)
240  printf "Purpose: "  printf "  %d extra slots", ($->size & 0x1ff) - 68
 output (char*)&((struct Lisp_Symbol *) ((((int) $->purpose) & $valmask) | gdb_data_seg_bits))->name->data  
 printf "  %d extra slots", ($->size & 0x1ff) - 388  
241  echo \n  echo \n
242    printf "Purpose: "
243    xprintsym $->purpose
244  end  end
245  document xchartable  document xchartable
246  Print the address of the char-table $, and its purpose.  Print the address of the char-table $, and its purpose.
# Line 332  document xprintsym Line 332  document xprintsym
332    Print argument as a symbol.    Print argument as a symbol.
333  end  end
334    
335    define xcoding
336      set $tmp = (struct Lisp_Hash_Table *) ((Vcoding_system_hash_table & $valmask) | gdb_data_seg_bits)
337      set $tmp = (struct Lisp_Vector *) (($tmp->key_and_value & $valmask) | gdb_data_seg_bits)
338      set $name = $tmp->contents[$arg0 * 2]
339      print $name
340      pr
341      print $tmp->contents[$arg0 * 2 + 1]
342      pr
343    end
344    document xcoding
345      Print the name and attributes of coding system that has ID (argument).
346    end
347    
348    define xcharset
349      set $tmp = (struct Lisp_Hash_Table *) ((Vcharset_hash_table & $valmask) | gdb_data_seg_bits)
350      set $tmp = (struct Lisp_Vector *) (($tmp->key_and_value & $valmask) | gdb_data_seg_bits)
351      p $tmp->contents[$arg0->hash_index * 2]
352      pr
353    end
354    document xcharset
355      Print the name of charset that has ID (argument).
356    end
357    
358  define xbacktrace  define xbacktrace
359    set $bt = backtrace_list    set $bt = backtrace_list
360    while $bt    while $bt

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.54.6.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26