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

Diff of /emacs/src/.gdbinit

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

revision 1.51.4.3 by miles, Sat Apr 10 06:14:55 2004 UTC revision 1.51.4.4 by miles, Tue Jul 6 09:14:32 2004 UTC
# Line 81  end Line 81  end
81  define xvectype  define xvectype
82    xgetptr $    xgetptr $
83    set $size = ((struct Lisp_Vector *) $ptr)->size    set $size = ((struct Lisp_Vector *) $ptr)->size
84    output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size    output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag
85    echo \n    echo \n
86  end  end
87  document xvectype  document xvectype
# Line 199  end Line 199  end
199  define xstring  define xstring
200    xgetptr $    xgetptr $
201    print (struct Lisp_String *) $ptr    print (struct Lisp_String *) $ptr
202    output ($->size > 1000) ? 0 : ($->data[0])@($->size_byte < 0 ? $->size : $->size_byte)    output ($->size > 1000) ? 0 : ($->data[0])@($->size_byte < 0 ? $->size & ~gdb_array_mark_flag : $->size_byte)
203    echo \n    echo \n
204  end  end
205  document xstring  document xstring
# Line 210  end Line 210  end
210  define xvector  define xvector
211    xgetptr $    xgetptr $
212    print (struct Lisp_Vector *) $ptr    print (struct Lisp_Vector *) $ptr
213    output ($->size > 50) ? 0 : ($->contents[0])@($->size)    output ($->size > 50) ? 0 : ($->contents[0])@($->size & ~gdb_array_mark_flag)
214  echo \n  echo \n
215  end  end
216  document xvector  document xvector
# Line 289  end Line 289  end
289  define xboolvector  define xboolvector
290    xgetptr $    xgetptr $
291    print (struct Lisp_Bool_Vector *) $ptr    print (struct Lisp_Bool_Vector *) $ptr
292    output ($->size > 256) ? 0 : ($->data[0])@(($->size + 7)/ 8)    output ($->size > 256) ? 0 : ($->data[0])@((($->size & ~gdb_array_mark_flag) + 7)/ 8)
293    echo \n    echo \n
294  end  end
295  document xboolvector  document xboolvector
# Line 377  define xprintsym Line 377  define xprintsym
377    set $sym = (struct Lisp_Symbol *) $ptr    set $sym = (struct Lisp_Symbol *) $ptr
378    xgetptr $sym->xname    xgetptr $sym->xname
379    set $sym_name = (struct Lisp_String *) $ptr    set $sym_name = (struct Lisp_String *) $ptr
380    output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size : $sym_name->size_byte)    output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size & ~gdb_array_mark_flag : $sym_name->size_byte)
381  end  end
382  document xprintsym  document xprintsym
383    Print argument as a symbol.    Print argument as a symbol.
# Line 395  define xbacktrace Line 395  define xbacktrace
395        if $type == Lisp_Vectorlike        if $type == Lisp_Vectorlike
396          xgetptr (*$bt->function)          xgetptr (*$bt->function)
397          set $size = ((struct Lisp_Vector *) $ptr)->size          set $size = ((struct Lisp_Vector *) $ptr)->size
398          output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size          output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag
399        else        else
400          printf "Lisp type %d", $type          printf "Lisp type %d", $type
401        end        end

Legend:
Removed from v.1.51.4.3  
changed lines
  Added in v.1.51.4.4

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