error during gc after kill indirect buffer

[SAITO Takuya]

This code produce "Marker does not point anywhere" error.

(progn
  (kill-buffer (make-indirect-buffer "*scratch*" "clone"))
  (garbage-collect))

> gdb emacs
(gdb) b error
Breakpoint 3 at 0x8133014: file eval.c, line 1787.
(gdb) run -Q

Breakpoint 3, error (m=0x81843e0 "Marker does not point anywhere",
    a1=0x84abb70 "\254^la", a2=0x84abb70 "\254^la", a3=0x84abb70 "\254^la")
    at eval.c:1787
1787      args[0] = a1;
(gdb) bt
#0  error (m=0x81843e0 "Marker does not point anywhere",
    a1=0x84abb70 "\254^la", a2=0x84abb70 "\254^la", a3=0x84abb70 "\254^la")
    at eval.c:1787
#1  0x080fa515 in marker_position () at marker.c:801
#2  0x080efdaf in set_buffer_internal_1 (b=0x8598240) at buffer.c:1803
#3  0x0811d30f in truncate_undo_list (b=0x8598240) at undo.c:325
#4  0x081206b2 in Fgarbage_collect () at alloc.c:4687
#5  0x08133872 in Feval (form=136974720) at eval.c:2127
#6  0x081313a3 in Fprogn (args=0) at eval.c:408
#7  0x081339bf in Feval (form=136979068) at eval.c:2077
#8  0x081341f3 in Ffuncall (nargs=2, args=0xbfffe9f4) at eval.c:2775
#9  0x08159c0f in Fbyte_code (bytestr=139481873, vector=1,
    maxdepth=-1073747472) at bytecode.c:686
#10 0x081344f2 in funcall_lambda (fun=136779124, nargs=1,
    arg_vector=0xbfffeb14) at eval.c:2962
#11 0x081340d3 in Ffuncall (nargs=2, args=0xbfffeb10) at eval.c:2832
#12 0x08159c0f in Fbyte_code (bytestr=139481849, vector=1,
    maxdepth=-1073747184) at bytecode.c:686
#13 0x081344f2 in funcall_lambda (fun=136779956, nargs=1,
    arg_vector=0xbfffec54) at eval.c:2962
#14 0x081340d3 in Ffuncall (nargs=2, args=0xbfffec50) at eval.c:2832
#15 0x08130035 in Fcall_interactively (function=137628465,
    record_flag=137264137, keys=137321020) at callint.c:877
#16 0x080e415b in Fcommand_execute (cmd=137628465, record_flag=137264137,
    keys=137264137, special=137264137) at keyboard.c:9712
#17 0x080d9c22 in command_loop_1 () at keyboard.c:1785
#18 0x081327be in internal_condition_case (bfun=0x80d98d4 <command_loop_1>,
    handlers=137325137, hfun=0x80d9458 <cmd_error>) at eval.c:1385
#19 0x080d9756 in command_loop_2 () at keyboard.c:1312
#20 0x08132351 in internal_catch (tag=139115376,
    func=0x80d9738 <command_loop_2>, arg=137264137) at eval.c:1144
#21 0x080d970d in command_loop () at keyboard.c:1291
#22 0x080d9210 in recursive_edit_1 () at keyboard.c:984
#23 0x080d9330 in Frecursive_edit () at keyboard.c:1045
#24 0x080d7b3d in main (argc=2, argv=0xbffff414) at emacs.c:1763
#25 0x402fac1f in __libc_start_main (main=0x80d7338 <main>, argc=2,
    ubp_av=0x2, init=0x8178adc <__libc_csu_init>,
    fini=0x8178b24 <__libc_csu_fini>, rtld_fini=0x400144a0 <_rtld_local>,
    stack_end=0x0) at ../sysdeps/generic/libc-start.c:225
(gdb) up 2
#2  0x080efdaf in set_buffer_internal_1 (b=0x8598240) at buffer.c:1803
1803          BUF_PT (b) = marker_position (b->pt_marker);
(gdb) p b->name
$1 = 137264137
(gdb) pr
nil
(gdb) p b->base_buffer->name
$2 = 137271579
(gdb) pr
"*scratch*"


In GNU Emacs 21.3.50.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2005-01-02 on reed
Distributor `The X.Org Foundation', version 11.0.60700000
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: ja_JP.eucJP
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: C
  value of $LANG: ja_JP.eucJP
  locale-coding-system: japanese-iso-8bit
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  mouse-wheel-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  line-number-mode: t