bug#3794: Error in json from gdb-ui

[Herbert Euler <herberteuler@hotmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 1754 bytes --]


Package: emacs
Version: 23.1.50.11

(This is the CVS HEAD version of emacs.)

I tried M-x gdb to run emacs under gdb.  The command line was

  gdb -i=mi ~/src/emacs/src/emacs

and I got the error '(json-object-format ":" 44).  Here is the backtrace:

Debugger entered--Lisp error: (json-object-format ":" 44)
  signal(json-object-format (":" 44))
  json-read-object()
  apply(json-read-object nil)
  json-read()
  json-read-object()
  apply(json-read-object nil)
  json-read()
  json-read-array()
  apply(json-read-array nil)
  json-read()
  json-read-object()
  apply(json-read-object nil)
  json-read()
  json-read-object()
  apply(json-read-object nil)
  json-read()
  json-partial-output("bkpt")
  gdb-breakpoints-list-handler-custom()
  gdb-breakpoints-list-handler()
  gdb-done-or-error("BreakpointTable={nr_rows=\"2\",nr_cols=\"6\",hdr=[{width=\"7\",alignment=\...
  gud-gdbmi-marker-filter("colhdr=\"Address\"},{width=\"40\",alignment=\"2\",col_name=\"what\",...
  apply(gud-gdbmi-marker-filter "colhdr=\"Address\"},{width=\"40\",alignment=\"2\",col_name=\"w...
  gud-marker-filter("colhdr=\"Address\"},{width=\"40\",alignment=\"2\",col_name=\"what\",colhdr...
  gud-filter(#<process gud-emacs> "colhdr=\"Address\"},{width=\"40\",alignment=\"2\",col_name=\...

The content of buffer *partial-output-emacs* is attached, evaluating

  (let ((json-array-type 'list)) (json-read))

reproduces the error.  The above expression is the last one of `json-partial-output'
in gdb-mi.el

Regards,
Guanpeng Xu

_________________________________________________________________
Drag n’ drop—Get easy photo sharing with Windows Live™ Photos.

http://www.microsoft.com/windows/windowslive/products/photos.aspx

[-- Attachment #1.2: Type: text/html, Size: 2137 bytes --]

[-- Attachment #2: json-data --]
[-- Type: application/octet-stream, Size: 1131 bytes --]

{"BreakpointTable":{"nr_rows":"2","nr_cols":"6","hdr":[{"width":"7","alignment":"-1","col_name":"number","colhdr":"Num"},{"width":"14","alignment":"-1","col_name":"type","colhdr":"Type"},{"width":"4","alignment":"-1","col_name":"disp","colhdr":"Disp"},{"width":"3","alignment":"-1","col_name":"enabled","colhdr":"Enb"},{"width":"18","alignment":"-1","col_name":"addr","colhdr":"Address"},{"width":"40","alignment":"2","col_name":"what","colhdr":"What"}],"body":[{"number":"1","type":"breakpoint","disp":"keep","enabled":"y","addr":"0x00000000004a56bd","func":"abort","file":"emacs.c","fullname":"/home/xgp/src/emacs/src/emacs.c","line":"433","times":"0"},{"number":"2","type":"breakpoint","disp":"del","enabled":"y","addr":"0x00000000004c7cab","func":"init_sys_modes","file":"sysdep.c","fullname":"/home/xgp/src/emacs/src/sysdep.c","line":"1132","times":"0","script":{"silent","xgetptr Vinitial_window_system","set $tem = (struct Lisp_Symbol *) $ptr","xgetptr $tem->xname","set $tem = (struct Lisp_String *) $ptr","set $tem = (char *) $tem->data","if $tem[0] == 'x' && $tem[1] == '\0'","break x_error_quitter","end","continue"}}]}}