bug#12266: 24.1; c-looking-at-inexpr-block: wrong type argument

["Kristoffer Grönlund" <krig@koru.se>]

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

This just happened to me in a nightly build:

GNU Emacs 24.3.50.1 (x86_64-apple-darwin, NS apple-appkit-1038.36)
 of 2013-03-20 on bob.porkrind.org

I get this error once in a while when editing C or C++ code. This time it
happened while  reading SICP chapter 5 and scribbling, source attached.
Unsure how to debug it.

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

[-- Attachment #2: backtrace.txt --]
[-- Type: text/plain, Size: 5407 bytes --]

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p (2193 . 2446))
  c-looking-at-inexpr-block((2193 . 2446) (2193 . 2446))
  c-inside-bracelist-p(2466 ((2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446) 2466 (1759 . 1803) (2193 . 2446)))
  c-guess-basic-syntax()
  #[(&optional syntax quiet ignore-point-pos) "\212\306\x7f\210`Sf)\307=\b\306\211\x19\x1a\x18^[\f\204C\0\212\310 \210\311\v\203\"\0\312\202#\0\313!)\203C\0`\314\225X\203C\0
\204<\0\212\315\225b\210iS\x12)`\315\225|\210\316\x10\x0e\x1f\203\273\0\306\x0e \206V\0\317\320!\205V\0\x0e\x10\x1e\x10\x1e!\321 \x1e\"\316\211\x1e#\x1e$\316\x1e%\306\211\x1e&\x1e'\306\211\x1e(\x1e)\306\211\x1e*\x1e+\322\216\x0e\x10\204\204\0\323 \x16\x10\324\x0e\x10!\x16+\325\x0e,!\204\236\0\x0e-\203\236\0\326\327\x0e\x10\x0e+#\210\x0e+\330 Z\x11.\v\331	!\210\332\333!\210\x0e!*\206\266\0\x0e!\x16!\202\334\0\315\x1e+\212\334y\315U\203\320\0\311\335!\204\277\0\330 \x16+)\x0e+\330 Z\x11\331	!\210)\b\203\376\0\v\203\376\0\n\203\363\0\212\nj\210\307c\210)\202\376\0
\203\376\0\336``\306\316$\210	,\207" [c-fix-backslashes shift-amt bs-col line-cont-backslash ignore-point-pos c-auto-align-backslashes nil 92 beginning-of-line looking-at "\\([ 	]*\\)\\\\$" "\\([ 	]*\\)$" 1 0 t boundp c-syntactic-context buffer-modified-p ((byte-code "\b\204
\0\301 \203
\0\302\303!\210\303\207" [modified buffer-modified-p set-buffer-modified-p nil] 2)) c-guess-basic-syntax c-get-syntactic-indentation c-echo-parsing-error message "syntax: %s, indent: %d" current-indentation c-shift-line-indentation run-hooks c-special-indent-hook -1 "\\s *\\\\?$" c-backslash-region c-syntactic-indentation syntax c-parsing-error modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks before-change-functions after-change-functions deactivate-mark buffer-file-name buffer-file-truename indent quiet c-echo-syntactic-information-p] 6 ("/Applications/Emacs.app/Contents/Resources/lisp/progmodes/cc-cmds.elc" . 683)](nil nil nil)
  ad-Advice-c-indent-line(#[(&optional syntax quiet ignore-point-pos) "\212\306\x7f\210`Sf)\307=\b\306\211\x19\x1a\x18^[\f\204C\0\212\310 \210\311\v\203\"\0\312\202#\0\313!)\203C\0`\314\225X\203C\0
\204<\0\212\315\225b\210iS\x12)`\315\225|\210\316\x10\x0e\x1f\203\273\0\306\x0e \206V\0\317\320!\205V\0\x0e\x10\x1e\x10\x1e!\321 \x1e\"\316\211\x1e#\x1e$\316\x1e%\306\211\x1e&\x1e'\306\211\x1e(\x1e)\306\211\x1e*\x1e+\322\216\x0e\x10\204\204\0\323 \x16\x10\324\x0e\x10!\x16+\325\x0e,!\204\236\0\x0e-\203\236\0\326\327\x0e\x10\x0e+#\210\x0e+\330 Z\x11.\v\331	!\210\332\333!\210\x0e!*\206\266\0\x0e!\x16!\202\334\0\315\x1e+\212\334y\315U\203\320\0\311\335!\204\277\0\330 \x16+)\x0e+\330 Z\x11\331	!\210)\b\203\376\0\v\203\376\0\n\203\363\0\212\nj\210\307c\210)\202\376\0
\203\376\0\336``\306\316$\210	,\207" [c-fix-backslashes shift-amt bs-col line-cont-backslash ignore-point-pos c-auto-align-backslashes nil 92 beginning-of-line looking-at "\\([ 	]*\\)\\\\$" "\\([ 	]*\\)$" 1 0 t boundp c-syntactic-context buffer-modified-p ((byte-code "\b\204
\0\301 \203
\0\302\303!\210\303\207" [modified buffer-modified-p set-buffer-modified-p nil] 2)) c-guess-basic-syntax c-get-syntactic-indentation c-echo-parsing-error message "syntax: %s, indent: %d" current-indentation c-shift-line-indentation run-hooks c-special-indent-hook -1 "\\s *\\\\?$" c-backslash-region c-syntactic-indentation syntax c-parsing-error modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks before-change-functions after-change-functions deactivate-mark buffer-file-name buffer-file-truename indent quiet c-echo-syntactic-information-p] 6 ("/Applications/Emacs.app/Contents/Resources/lisp/progmodes/cc-cmds.elc" . 683)])
  apply(ad-Advice-c-indent-line #[(&optional syntax quiet ignore-point-pos) "\212\306\x7f\210`Sf)\307=\b\306\211\x19\x1a\x18^[\f\204C\0\212\310 \210\311\v\203\"\0\312\202#\0\313!)\203C\0`\314\225X\203C\0
\204<\0\212\315\225b\210iS\x12)`\315\225|\210\316\x10\x0e\x1f\203\273\0\306\x0e \206V\0\317\320!\205V\0\x0e\x10\x1e\x10\x1e!\321 \x1e\"\316\211\x1e#\x1e$\316\x1e%\306\211\x1e&\x1e'\306\211\x1e(\x1e)\306\211\x1e*\x1e+\322\216\x0e\x10\204\204\0\323 \x16\x10\324\x0e\x10!\x16+\325\x0e,!\204\236\0\x0e-\203\236\0\326\327\x0e\x10\x0e+#\210\x0e+\330 Z\x11.\v\331	!\210\332\333!\210\x0e!*\206\266\0\x0e!\x16!\202\334\0\315\x1e+\212\334y\315U\203\320\0\311\335!\204\277\0\330 \x16+)\x0e+\330 Z\x11\331	!\210)\b\203\376\0\v\203\376\0\n\203\363\0\212\nj\210\307c\210)\202\376\0
\203\376\0\336``\306\316$\210	,\207" [c-fix-backslashes shift-amt bs-col line-cont-backslash ignore-point-pos c-auto-align-backslashes nil 92 beginning-of-line looking-at "\\([ 	]*\\)\\\\$" "\\([ 	]*\\)$" 1 0 t boundp c-syntactic-context buffer-modified-p ((byte-code "\b\204
\0\301 \203
\0\302\303!\210\303\207" [modified buffer-modified-p set-buffer-modified-p nil] 2)) c-guess-basic-syntax c-get-syntactic-indentation c-echo-parsing-error message "syntax: %s, indent: %d" current-indentation c-shift-line-indentation run-hooks c-special-indent-hook -1 "\\s *\\\\?$" c-backslash-region c-syntactic-indentation syntax c-parsing-error modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks before-change-functions after-change-functions deactivate-mark buffer-file-name buffer-file-truename indent quiet c-echo-syntactic-information-p] 6 ("/Applications/Emacs.app/Contents/Resources/lisp/progmodes/cc-cmds.elc" . 683)] nil)
  c-indent-line()
  indent-according-to-mode()
  newline-and-indent()
  call-interactively(newline-and-indent nil nil)
  command-execute(newline-and-indent)

[-- Attachment #3: blah.c --]
[-- Type: text/x-csrc, Size: 2078 bytes --]

#define TAG_MASK 0x3
#define PAIR_TAG 0
#define FIXNUM_TAG 1
#define OBJECT_TAG 2

struct pair_t;
struct object_t;
struct vtable_t;

typedef union cell_t {
	struct pair_t* p;
	ptrdiff_t n;
	struct object_t* o;
} cell;

struct pair_t {
	cell car;
	cell cdr;
};

struct object_t {
	struct vtable_t* meta;
};

#define OBJECT_META struct vtable_t* meta

struct gc_stackroot {
	void** root;
	struct gc_stackroot* next;
};

extern struct gc_stackroot* gc_stack_roots;

#define GC_PUSH_PAIR(v) struct gc_stackroot _gcsr_##v;  _gcsr_##v.root = (void**)&v;  _gcsr_##v.next = gc_stack_roots;
#define GC_PUSH_OBJ(v) struct gc_stackroot _gcsr_##v;  _gcsr_##v.root = (void**)((unsigned char*)&v + OBJECT_TAG); _gcsr_##v.next = gc_stack_roots;
#define GC_POP(v)  gc_stack_roots = _gcsr_##v.next;

void* gc_alloc(size_t size);

void error(const char* msg);

struct vtable_t {
	OBJECT_META;
};

struct method_t {
	OBJECT_META;
	struct object_t* name;
};

enum registers {
};

struct machine_t {
	cell reg[NUM_REGISTERS];
};

void error(const char* msg) {
	fprintf(stderr, "%s\n", msg);
	exit(1);
}



/* GC implementation */

#define GC_HEAPSIZE 1024*1024
#define GC_TOO_BIG  (GC_HEAPSIZE/8)

void gc_collect();

struct gc_stackroot* gc_stack_roots = 0;

void* gc_broken_heart = 0; /* if first word in x points to gc_broken_heart, second word points to the actual object */

unsigned char* gc_heap = 0;
unsigned char* gc_new  = 0;
unsigned char* gc_top = 0;

void* gc_alloc(size_t size) {
	void* ret;
	if (size < sizeof(struct pair_t))
		error("allocation too small");
	else if (size > GC_TOO_BIG)
		error("allocation too big");
	else if (gc_top + size > gc_heap + GC_HEAPSIZE)
		gc_collect();
	ret = gc_top;
	gc_top += size;
	return ret;
}

void gc_collect() {
	unsigned char* scan;
	unsigned char* free;
	unsigned char* old;
	struct gc_stackroot* root;
	scan = gc_new;
	free = gc_new;

	/* step 1: relocate all roots */
	for (root = gc_stack_roots; root; root = root->next) {
		if (IS_PAIR(root->root)) {
		}
		else {
		}
	}

	/* step 2: scan new */
	{
	}

	/* step 3: flip */

	gc_heap = 
}