unofficial mirror of bug-guix@gnu.org 
 help / color / mirror / code / Atom feed
* bug#25442: Emacs compilation buffer segfault
@ 2017-01-13 21:21 Jan Nieuwenhuizen
  2017-01-14 16:06 ` bug#25442: stacktrace Jan Nieuwenhuizen
  0 siblings, 1 reply; 7+ messages in thread
From: Jan Nieuwenhuizen @ 2017-01-13 21:21 UTC (permalink / raw)
  To: 25442

[-- Attachment #1: Type: text/plain, Size: 117 bytes --]

Hi!

Running

    bash crash.nw
   
in an xterm makes Emacs segfault about 4 out of 5 times for me.

Greetings,
Jan


[-- Attachment #2: crash.nw --]
[-- Type: application/octet-stream, Size: 191 bytes --]

env -i TERM=xterm HOME=/tmp PATH=/run/current-system/profile/bin /gnu/store/5diw4kjwi6q75gk8yyx95l6f839gr5nj-emacs-25.1/bin/emacs -q --eval '(progn (compile "cat mes.crash")(delete-window))'

[-- Attachment #3: mes.crash --]
[-- Type: application/octet-stream, Size: 4390 bytes --]

boo: 2.0.13
compiling strlen
compiling getchar
compiling putchar
compiling eputs
compiling fputs
compiling puts
compiling strcmp
compiling assert_fail
SKIP statement=(expr-stmt (assn-expr (de-ref (cast (type-name (decl-spec-list (type-spec (fixed-type "int"))) (abs-declr (pointer))) (p-expr (fixed "0")))) (op "=") (p-expr (fixed "0"))))
SKIP statement=(decl (decl-spec-list (stor-spec (typedef)) (type-spec (fixed-type "int"))) (init-declr-list (init-declr (ident "SCM"))))
SKIP statement=(decl (decl-spec-list (stor-spec (typedef)) (type-spec (fixed-type "int")) (type-spec (typename "SCM"))))
SKIP statement=(decl (decl-spec-list (stor-spec (typedef)) (type-spec (typename "SCM"))) (init-declr-list (init-declr (ftn-declr (scope (ptr-declr (pointer) (ident "function0_t"))) (param-list (param-decl (decl-spec-list (type-spec (void)))))))))
SKIP statement=(decl (decl-spec-list (stor-spec (typedef)) (type-spec (typename "SCM"))) (init-declr-list (init-declr (ftn-declr (scope (ptr-declr (pointer) (ident "function1_t"))) (param-list (param-decl (decl-spec-list (type-spec (typename "SCM")))))))))
SKIP statement=(decl (decl-spec-list (stor-spec (typedef)) (type-spec (typename "SCM"))) (init-declr-list (init-declr (ftn-declr (scope (ptr-declr (pointer) (ident "function2_t"))) (param-list (param-decl (decl-spec-list (type-spec (typename "SCM")))) (param-decl (decl-spec-list (type-spec (typename "SCM")))))))))
SKIP statement=(decl (decl-spec-list (stor-spec (typedef)) (type-spec (typename "SCM"))) (init-declr-list (init-declr (ftn-declr (scope (ptr-declr (pointer) (ident "function3_t"))) (param-list (param-decl (decl-spec-list (type-spec (typename "SCM")))) (param-decl (decl-spec-list (type-spec (typename "SCM")))) (param-decl (decl-spec-list (type-spec (typename "SCM")))))))))
SKIP statement=(decl (decl-spec-list (stor-spec (typedef)) (type-spec (typename "SCM"))) (init-declr-list (init-declr (ftn-declr (scope (ptr-declr (pointer) (ident "functionn_t"))) (param-list (param-decl (decl-spec-list (type-spec (typename "SCM")))))))))
SKIP statement=(decl (decl-spec-list (stor-spec (typedef)) (type-spec (struct-def (ident "function_struct") (field-list (comp-decl (decl-spec-list (type-spec (union-def (field-list (comp-decl (decl-spec-list (type-spec (typename "function0_t"))) (comp-declr-list (comp-declr (ident "function0")))) (comp-decl (decl-spec-list (type-spec (typename "function1_t"))) (comp-declr-list (comp-declr (ident "function1")))) (comp-decl (decl-spec-list (type-spec (typename "function2_t"))) (comp-declr-list (comp-declr (ident "function2")))) (comp-decl (decl-spec-list (type-spec (typename "function3_t"))) (comp-declr-list (comp-declr (ident "function3")))) (comp-decl (decl-spec-list (type-spec (typename "functionn_t"))) (comp-declr-list (comp-declr (ident "functionn")))))))) (comp-declr-list (comp-declr (ident "data")))) (comp-decl (decl-spec-list (type-spec (fixed-type "int"))) (comp-declr-list (comp-declr (ident "arity")))))))) (init-declr-list (init-declr (ident "function_t"))))
SKIP statement=(decl (decl-spec-list (type-spec (struct-ref (ident "scm")))))
SKIP statement=(decl (decl-spec-list (type-spec (fixed-type "char"))) (init-declr-list (init-declr (array-of (ident "arena") (p-expr (fixed "200000"))))))
SKIP statement=(decl (decl-spec-list (type-spec (struct-ref (ident "scm")))) (init-declr-list (init-declr (ptr-declr (pointer) (ident "g_cells")) (initzer (cast (type-name (decl-spec-list (type-spec (struct-ref (ident "scm")))) (abs-declr (pointer))) (p-expr (ident "arena")))))))
compiling car
types: (("type_t" . "enum") ("scm" ("type_t" . "type") ("SCM" . "car") ("SCM" . "cdr")))
field: "car"
struct: (("type_t" . "type") ("SCM" . "car") ("SCM" . "cdr"))
struct-scm size: 3
struct-scm offset[car]: 8
compiling cdr
types: (("type_t" . "enum") ("scm" ("type_t" . "type") ("SCM" . "car") ("SCM" . "cdr")))
field: "cdr"
struct: (("type_t" . "type") ("SCM" . "car") ("SCM" . "cdr"))
struct-scm size: 3
struct-scm offset[cdr]: 8
compiling caar
SKIP expr->arg=(fctn-call (p-expr (ident car)) (expr-list (p-expr (ident x))))
compiling cadr
SKIP expr->arg=(fctn-call (p-expr (ident cdr)) (expr-list (p-expr (ident x))))
compiling cdar
SKIP expr->arg=(fctn-call (p-expr (ident car)) (expr-list (p-expr (ident x))))
compiling cddr
SKIP expr->arg=(fctn-call (p-expr (ident cdr)) (expr-list (p-expr (ident x))))
compiling gc_peek_frame

[-- Attachment #4: Type: text/plain, Size: 154 bytes --]


-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl  

^ permalink raw reply	[flat|nested] 7+ messages in thread

end of thread, other threads:[~2017-09-30  7:37 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2017-01-13 21:21 bug#25442: Emacs compilation buffer segfault Jan Nieuwenhuizen
2017-01-14 16:06 ` bug#25442: stacktrace Jan Nieuwenhuizen
2017-01-14 17:24   ` Ludovic Courtès
2017-01-14 19:56     ` Jan Nieuwenhuizen
2017-01-15 20:30       ` Ludovic Courtès
2017-01-15 22:36         ` Jan Nieuwenhuizen
2017-09-30  7:36           ` Jan Nieuwenhuizen

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).