comparison src/.gdbinit @ 83123:ad01ab3c6f4d

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-299 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-300 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-301 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-302 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-303 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-304 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-305 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-306 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-307 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-308 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-309 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-310 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-311 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-312 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-313 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-314 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-315 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-316 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-317 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-318 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-319 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-320 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-321 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-322 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-323 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-324 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-163

83122:d895a49cccb9

end

define xvectype
  xgetptr $
  set $size = ((struct Lisp_Vector *) $ptr)->size
  output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size
  echo \n
end
document xvectype
Print the size or vector subtype of $, assuming it is a vector or pseudovector.
end

end

define xstring
  xgetptr $
  print (struct Lisp_String *) $ptr
  output ($->size > 1000) ? 0 : ($->data[0])@($->size_byte < 0 ? $->size : $->size_byte)
  echo \n
end
document xstring
Print the contents and address of the string $.
This command assumes that $ is an Emacs Lisp string value.
end

define xvector
  xgetptr $
  print (struct Lisp_Vector *) $ptr
  output ($->size > 50) ? 0 : ($->contents[0])@($->size)
echo \n
end
document xvector
Print the contents and address of the vector $.
This command assumes that $ is an Emacs Lisp vector value.

end

define xboolvector
  xgetptr $
  print (struct Lisp_Bool_Vector *) $ptr
  output ($->size > 256) ? 0 : ($->data[0])@(($->size + 7)/ 8)
  echo \n
end
document xboolvector
Print the contents and address of the bool-vector $.
This command assumes that $ is an Emacs Lisp bool-vector value.

define xprintsym
  xgetptr $arg0
  set $sym = (struct Lisp_Symbol *) $ptr
  xgetptr $sym->xname
  set $sym_name = (struct Lisp_String *) $ptr
  output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size : $sym_name->size_byte)
end
document xprintsym
  Print argument as a symbol.
end

    else
      printf "0x%x ", *$bt->function
      if $type == Lisp_Vectorlike
	xgetptr (*$bt->function)
        set $size = ((struct Lisp_Vector *) $ptr)->size
        output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size
      else
        printf "Lisp type %d", $type
      end
      echo \n
    end

83123:ad01ab3c6f4d

end

define xvectype
  xgetptr $
  set $size = ((struct Lisp_Vector *) $ptr)->size
  output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag
  echo \n
end
document xvectype
Print the size or vector subtype of $, assuming it is a vector or pseudovector.
end

end

define xstring
  xgetptr $
  print (struct Lisp_String *) $ptr
  output ($->size > 1000) ? 0 : ($->data[0])@($->size_byte < 0 ? $->size & ~gdb_array_mark_flag : $->size_byte)
  echo \n
end
document xstring
Print the contents and address of the string $.
This command assumes that $ is an Emacs Lisp string value.
end

define xvector
  xgetptr $
  print (struct Lisp_Vector *) $ptr
  output ($->size > 50) ? 0 : ($->contents[0])@($->size & ~gdb_array_mark_flag)
echo \n
end
document xvector
Print the contents and address of the vector $.
This command assumes that $ is an Emacs Lisp vector value.

end

define xboolvector
  xgetptr $
  print (struct Lisp_Bool_Vector *) $ptr
  output ($->size > 256) ? 0 : ($->data[0])@((($->size & ~gdb_array_mark_flag) + 7)/ 8)
  echo \n
end
document xboolvector
Print the contents and address of the bool-vector $.
This command assumes that $ is an Emacs Lisp bool-vector value.

define xprintsym
  xgetptr $arg0
  set $sym = (struct Lisp_Symbol *) $ptr
  xgetptr $sym->xname
  set $sym_name = (struct Lisp_String *) $ptr
  output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size & ~gdb_array_mark_flag : $sym_name->size_byte)
end
document xprintsym
  Print argument as a symbol.
end

    else
      printf "0x%x ", *$bt->function
      if $type == Lisp_Vectorlike
	xgetptr (*$bt->function)
        set $size = ((struct Lisp_Vector *) $ptr)->size
        output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag
      else
        printf "Lisp type %d", $type
      end
      echo \n
    end