/[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.6.2 by handa, Fri Apr 16 12:50:43 2004 UTC revision 1.54.6.3 by miles, Mon Jun 28 07:29:04 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 186  Print $ as a buffer-local-value pointer, Line 186  Print $ as a buffer-local-value pointer,
186  end  end
187    
188  define xsymbol  define xsymbol
189    xgetptr $    set $sym = $
190      xgetptr $sym
191    print (struct Lisp_Symbol *) $ptr    print (struct Lisp_Symbol *) $ptr
192    xprintsym $    xprintsym $sym
193    echo \n    echo \n
194  end  end
195  document xsymbol  document xsymbol
# Line 199  end Line 200  end
200  define xstring  define xstring
201    xgetptr $    xgetptr $
202    print (struct Lisp_String *) $ptr    print (struct Lisp_String *) $ptr
203    output ($->size > 1000) ? 0 : ($->data[0])@($->size_byte < 0 ? $->size : $->size_byte)    xprintstr $
204    echo \n    echo \n
205  end  end
206  document xstring  document xstring
# Line 210  end Line 211  end
211  define xvector  define xvector
212    xgetptr $    xgetptr $
213    print (struct Lisp_Vector *) $ptr    print (struct Lisp_Vector *) $ptr
214    output ($->size > 50) ? 0 : ($->contents[0])@($->size)    output ($->size > 50) ? 0 : ($->contents[0])@($->size & ~gdb_array_mark_flag)
215  echo \n  echo \n
216  end  end
217  document xvector  document xvector
# Line 289  end Line 290  end
290  define xboolvector  define xboolvector
291    xgetptr $    xgetptr $
292    print (struct Lisp_Bool_Vector *) $ptr    print (struct Lisp_Bool_Vector *) $ptr
293    output ($->size > 256) ? 0 : ($->data[0])@(($->size + 7)/ 8)    output ($->size > 256) ? 0 : ($->data[0])@((($->size & ~gdb_array_mark_flag) + 7)/ 8)
294    echo \n    echo \n
295  end  end
296  document xboolvector  document xboolvector
# Line 372  document xscrollbar Line 373  document xscrollbar
373  Print $ as a scrollbar pointer.  Print $ as a scrollbar pointer.
374  end  end
375    
376    define xprintstr
377      set $data = $arg0->data
378      output ($arg0->size > 1000) ? 0 : ($data[0])@($arg0->size_byte < 0 ? $arg0->size & ~gdb_array_mark_flag : $arg0->size_byte)
379    end
380    
381  define xprintsym  define xprintsym
382    xgetptr $arg0    xgetptr $arg0
383    set $sym = (struct Lisp_Symbol *) $ptr    set $sym = (struct Lisp_Symbol *) $ptr
384    xgetptr $sym->xname    xgetptr $sym->xname
385    set $sym_name = (struct Lisp_String *) $ptr    set $sym_name = (struct Lisp_String *) $ptr
386    output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size : $sym_name->size_byte)    xprintstr $sym_name
387  end  end
388  document xprintsym  document xprintsym
389    Print argument as a symbol.    Print argument as a symbol.
# Line 418  define xbacktrace Line 424  define xbacktrace
424        if $type == Lisp_Vectorlike        if $type == Lisp_Vectorlike
425          xgetptr (*$bt->function)          xgetptr (*$bt->function)
426          set $size = ((struct Lisp_Vector *) $ptr)->size          set $size = ((struct Lisp_Vector *) $ptr)->size
427          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
428        else        else
429          printf "Lisp type %d", $type          printf "Lisp type %d", $type
430        end        end

Legend:
Removed from v.1.54.6.2  
changed lines
  Added in v.1.54.6.3

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