2020-11-07 21:52:28 |
Michał "phoe" Herda |
description |
SBCL 2.0.10 on Linux amd64.
* (labels ((ancestor (thing) (first (third (first thing))))
(root (thing) (search-roots (make-weak-pointer thing) :print nil))
(frob (thing) (ancestor (root thing))))
(sb-ext:gc :full t)
(dotimes (i 10) (make-instance 'standard-class))
(let ((thing (root (slot-value (make-instance 'standard-class)
'sb-pcl::wrapper))))
(sb-ext:gc :full t)
(root thing)))
CORRUPTION WARNING in SBCL pid 606045 tid 606045:
Memory fault at 0xf8 (pc=0x525279bc [code 0x52527760+0x25C ID 0x7767], fp=0x7ff8995ff8a8, sp=0x7ff8995ff830) tid 606045
The integrity of this image is possibly compromised.
Continuing with fingers crossed.
debugger invoked on a SB-SYS:MEMORY-FAULT-ERROR in thread
#<THREAD "main thread" RUNNING {1001570103}>:
Unhandled memory fault at #xF8.
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [ABORT] Exit debugger, returning to top level.
(SB-IMPL::PREPROCESS-TRACEROOT-RESULTS NIL #(((1 0 . #.(SB-SYS:INT-SAP #X00000000)))))
0] backtrace
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001570103}>
0: (SB-IMPL::PREPROCESS-TRACEROOT-RESULTS NIL #(((1 0 . #.(SB-SYS:INT-SAP #X00000000)))))
1: (SEARCH-ROOTS #<weak pointer: ((#<SB-KERNEL:LAYOUT for #<SB-KERNEL:STANDARD-CLASSOID anonymous {1001ADB513}> {503D2283}> :STATIC (#<HASH-TABLE :TEST EQ :HASH-FUNCTION #<FUNCTION SB-KERNEL:TYPE-HASH-VALUE> :COUNT 165 {10002506C3}> . 5) (#(165 0 #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:FUNCALLABLE-STANDARD-OBJECT> #<SB-KERNEL:LAYOUT for SB-MOP:FUNCALLABLE-STANDARD-OBJECT {50217003}> #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:EQL-SPECIALIZER> #<SB-KERNEL:LAYOUT for SB-MOP:EQL-SPECIALIZER {50216003}> #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:STANDARD-ACCESSOR-METHOD> #<SB-KERNEL:LAYOUT for SB-MOP:STANDARD-ACCESSOR-METHOD {50216D03}> #<SB-KERNEL:STANDARD-CLASSOID STANDARD-METHOD> #<SB-KERNEL:LAYOUT for STANDARD-METHOD {50216E03}> #<SB-KERNEL:STANDARD-CLASSOID CLASS> #<SB-KERNEL:LAYOUT for CLASS {50215F83}> ...) . 333)))> :CRITERION :OLDEST :GC NIL :IGNORE NIL :PRINT NIL)
2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))) #<NULL-LEXENV>)
3: (EVAL (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))))
4: (INTERACTIVE-EVAL (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))) :EVAL NIL)
5: (SB-IMPL::REPL-FUN NIL)
6: ((LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL))
7: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL) {1002E84FAB}>)
8: (SB-IMPL::TOPLEVEL-REPL NIL)
9: (SB-IMPL::TOPLEVEL-INIT)
10: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
11: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
12: (SB-IMPL::START-LISP) |
SBCL 2.0.10 on Linux amd64.
* (flet ((root (thing) (search-roots (make-weak-pointer thing) :print nil)))
(sb-ext:gc :full t)
(dotimes (i 10) (make-instance 'standard-class))
(let ((thing (root (slot-value (make-instance 'standard-class)
'sb-pcl::wrapper))))
(sb-ext:gc :full t)
(root thing)))CL pid 606045 tid 606045:
Memory fault at 0xf8 (pc=0x525279bc [code 0x52527760+0x25C ID 0x7767], fp=0x7ff8995ff8a8, sp=0x7ff8995ff830) tid 606045
The integrity of this image is possibly compromised.
Continuing with fingers crossed.
debugger invoked on a SB-SYS:MEMORY-FAULT-ERROR in thread
#<THREAD "main thread" RUNNING {1001570103}>:
Unhandled memory fault at #xF8.
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [ABORT] Exit debugger, returning to top level.
(SB-IMPL::PREPROCESS-TRACEROOT-RESULTS NIL #(((1 0 . #.(SB-SYS:INT-SAP #X00000000)))))
0] backtrace
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001570103}>
0: (SB-IMPL::PREPROCESS-TRACEROOT-RESULTS NIL #(((1 0 . #.(SB-SYS:INT-SAP #X00000000)))))
1: (SEARCH-ROOTS #<weak pointer: ((#<SB-KERNEL:LAYOUT for #<SB-KERNEL:STANDARD-CLASSOID anonymous {1001ADB513}> {503D2283}> :STATIC (#<HASH-TABLE :TEST EQ :HASH-FUNCTION #<FUNCTION SB-KERNEL:TYPE-HASH-VALUE> :COUNT 165 {10002506C3}> . 5) (#(165 0 #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:FUNCALLABLE-STANDARD-OBJECT> #<SB-KERNEL:LAYOUT for SB-MOP:FUNCALLABLE-STANDARD-OBJECT {50217003}> #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:EQL-SPECIALIZER> #<SB-KERNEL:LAYOUT for SB-MOP:EQL-SPECIALIZER {50216003}> #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:STANDARD-ACCESSOR-METHOD> #<SB-KERNEL:LAYOUT for SB-MOP:STANDARD-ACCESSOR-METHOD {50216D03}> #<SB-KERNEL:STANDARD-CLASSOID STANDARD-METHOD> #<SB-KERNEL:LAYOUT for STANDARD-METHOD {50216E03}> #<SB-KERNEL:STANDARD-CLASSOID CLASS> #<SB-KERNEL:LAYOUT for CLASS {50215F83}> ...) . 333)))> :CRITERION :OLDEST :GC NIL :IGNORE NIL :PRINT NIL)
2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))) #<NULL-LEXENV>)
3: (EVAL (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))))
4: (INTERACTIVE-EVAL (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))) :EVAL NIL)
5: (SB-IMPL::REPL-FUN NIL)
6: ((LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL))
7: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL) {1002E84FAB}>)
8: (SB-IMPL::TOPLEVEL-REPL NIL)
9: (SB-IMPL::TOPLEVEL-INIT)
10: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
11: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
12: (SB-IMPL::START-LISP) |
|
2020-11-07 21:53:22 |
Michał "phoe" Herda |
description |
SBCL 2.0.10 on Linux amd64.
* (flet ((root (thing) (search-roots (make-weak-pointer thing) :print nil)))
(sb-ext:gc :full t)
(dotimes (i 10) (make-instance 'standard-class))
(let ((thing (root (slot-value (make-instance 'standard-class)
'sb-pcl::wrapper))))
(sb-ext:gc :full t)
(root thing)))CL pid 606045 tid 606045:
Memory fault at 0xf8 (pc=0x525279bc [code 0x52527760+0x25C ID 0x7767], fp=0x7ff8995ff8a8, sp=0x7ff8995ff830) tid 606045
The integrity of this image is possibly compromised.
Continuing with fingers crossed.
debugger invoked on a SB-SYS:MEMORY-FAULT-ERROR in thread
#<THREAD "main thread" RUNNING {1001570103}>:
Unhandled memory fault at #xF8.
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [ABORT] Exit debugger, returning to top level.
(SB-IMPL::PREPROCESS-TRACEROOT-RESULTS NIL #(((1 0 . #.(SB-SYS:INT-SAP #X00000000)))))
0] backtrace
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001570103}>
0: (SB-IMPL::PREPROCESS-TRACEROOT-RESULTS NIL #(((1 0 . #.(SB-SYS:INT-SAP #X00000000)))))
1: (SEARCH-ROOTS #<weak pointer: ((#<SB-KERNEL:LAYOUT for #<SB-KERNEL:STANDARD-CLASSOID anonymous {1001ADB513}> {503D2283}> :STATIC (#<HASH-TABLE :TEST EQ :HASH-FUNCTION #<FUNCTION SB-KERNEL:TYPE-HASH-VALUE> :COUNT 165 {10002506C3}> . 5) (#(165 0 #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:FUNCALLABLE-STANDARD-OBJECT> #<SB-KERNEL:LAYOUT for SB-MOP:FUNCALLABLE-STANDARD-OBJECT {50217003}> #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:EQL-SPECIALIZER> #<SB-KERNEL:LAYOUT for SB-MOP:EQL-SPECIALIZER {50216003}> #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:STANDARD-ACCESSOR-METHOD> #<SB-KERNEL:LAYOUT for SB-MOP:STANDARD-ACCESSOR-METHOD {50216D03}> #<SB-KERNEL:STANDARD-CLASSOID STANDARD-METHOD> #<SB-KERNEL:LAYOUT for STANDARD-METHOD {50216E03}> #<SB-KERNEL:STANDARD-CLASSOID CLASS> #<SB-KERNEL:LAYOUT for CLASS {50215F83}> ...) . 333)))> :CRITERION :OLDEST :GC NIL :IGNORE NIL :PRINT NIL)
2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))) #<NULL-LEXENV>)
3: (EVAL (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))))
4: (INTERACTIVE-EVAL (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))) :EVAL NIL)
5: (SB-IMPL::REPL-FUN NIL)
6: ((LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL))
7: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL) {1002E84FAB}>)
8: (SB-IMPL::TOPLEVEL-REPL NIL)
9: (SB-IMPL::TOPLEVEL-INIT)
10: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
11: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
12: (SB-IMPL::START-LISP) |
SBCL 2.0.10 on Linux amd64.
* (flet ((root (thing) (search-roots (make-weak-pointer thing) :print nil)))
(sb-ext:gc :full t)
(dotimes (i 10) (make-instance 'standard-class))
(let ((thing (root (slot-value (make-instance 'standard-class)
'sb-pcl::wrapper))))
(sb-ext:gc :full t)
(root thing)))
CORRUPTION WARNING in SBCL pid 606045 tid 606045:
Memory fault at 0xf8 (pc=0x525279bc [code 0x52527760+0x25C ID 0x7767], fp=0x7ff8995ff8a8, sp=0x7ff8995ff830) tid 606045
The integrity of this image is possibly compromised.
Continuing with fingers crossed.
debugger invoked on a SB-SYS:MEMORY-FAULT-ERROR in thread
#<THREAD "main thread" RUNNING {1001570103}>:
Unhandled memory fault at #xF8.
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [ABORT] Exit debugger, returning to top level.
(SB-IMPL::PREPROCESS-TRACEROOT-RESULTS NIL #(((1 0 . #.(SB-SYS:INT-SAP #X00000000)))))
0] backtrace
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001570103}>
0: (SB-IMPL::PREPROCESS-TRACEROOT-RESULTS NIL #(((1 0 . #.(SB-SYS:INT-SAP #X00000000)))))
1: (SEARCH-ROOTS #<weak pointer: ((#<SB-KERNEL:LAYOUT for #<SB-KERNEL:STANDARD-CLASSOID anonymous {1001ADB513}> {503D2283}> :STATIC (#<HASH-TABLE :TEST EQ :HASH-FUNCTION #<FUNCTION SB-KERNEL:TYPE-HASH-VALUE> :COUNT 165 {10002506C3}> . 5) (#(165 0 #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:FUNCALLABLE-STANDARD-OBJECT> #<SB-KERNEL:LAYOUT for SB-MOP:FUNCALLABLE-STANDARD-OBJECT {50217003}> #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:EQL-SPECIALIZER> #<SB-KERNEL:LAYOUT for SB-MOP:EQL-SPECIALIZER {50216003}> #<SB-KERNEL:STANDARD-CLASSOID SB-MOP:STANDARD-ACCESSOR-METHOD> #<SB-KERNEL:LAYOUT for SB-MOP:STANDARD-ACCESSOR-METHOD {50216D03}> #<SB-KERNEL:STANDARD-CLASSOID STANDARD-METHOD> #<SB-KERNEL:LAYOUT for STANDARD-METHOD {50216E03}> #<SB-KERNEL:STANDARD-CLASSOID CLASS> #<SB-KERNEL:LAYOUT for CLASS {50215F83}> ...) . 333)))> :CRITERION :OLDEST :GC NIL :IGNORE NIL :PRINT NIL)
2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))) #<NULL-LEXENV>)
3: (EVAL (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))))
4: (INTERACTIVE-EVAL (LABELS ((ANCESTOR (THING) (FIRST (THIRD #))) (ROOT (THING) (SEARCH-ROOTS (MAKE-WEAK-POINTER THING) :PRINT NIL)) (FROB (THING) (ANCESTOR (ROOT THING)))) (GC :FULL T) (DOTIMES (I 10) (MAKE-INSTANCE (QUOTE STANDARD-CLASS))) (LET ((THING (ROOT #))) (GC :FULL T) (ROOT THING))) :EVAL NIL)
5: (SB-IMPL::REPL-FUN NIL)
6: ((LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL))
7: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-IMPL::TOPLEVEL-REPL) {1002E84FAB}>)
8: (SB-IMPL::TOPLEVEL-REPL NIL)
9: (SB-IMPL::TOPLEVEL-INIT)
10: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
11: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
12: (SB-IMPL::START-LISP) |
|