A good laugh

gistfile1.txt

thread in single user   
   
   at <unknown>:1  (./CORE.setting.moarvm:dispatch:<!>)
 from SETTING::src/core/Promise.pm:50  (./CORE.setting.moarvm:keep)
 from SETTING::src/core/Promise.pm:216  (./CORE.setting.moarvm:)
 from SETTING::src/core/ThreadPoolScheduler.pm:284  (./CORE.setting.moarvm:)
 from SETTING::src/core/ThreadPoolScheduler.pm:173  (./CORE.setting.moarvm:)
 from SETTING::src/core/ThreadPoolScheduler.pm:166  (./CORE.setting.moarvm:)
 from SETTING::src/core/ThreadPoolScheduler.pm:163  (./CORE.setting.moarvm:)
 from SETTING::src/core/Thread.pm:30  (./CORE.setting.moarvm:THREAD-ENTRY)

thread won't get into single user

   at <unknown>:1  (./CORE.setting.moarvm:push)
 from SETTING::src/core/Iterator.pm:31  (./CORE.setting.moarvm:push-exactly)
 from SETTING::src/core/Iterable.pm:98  (./CORE.setting.moarvm:push-exactly)
 from SETTING::src/core/Iterator.pm:49  (./CORE.setting.moarvm:push-at-least)
 from SETTING::src/core/List.pm:41  (./CORE.setting.moarvm:reify-at-least)
 from SETTING::src/core/List.pm:477  (./CORE.setting.moarvm:AT-POS)
 from SETTING::src/core/Seq.pm:193  (./CORE.setting.moarvm:AT-POS)
 from /home/dogbert/test.pl6:1  (<ephemeral file>:)
 from SETTING::src/core/Promise.pm:216  (./CORE.setting.moarvm:)
 from SETTING::src/core/ThreadPoolScheduler.pm:284  (./CORE.setting.moarvm:)
 from SETTING::src/core/ThreadPoolScheduler.pm:173  (./CORE.setting.moarvm:)
 from SETTING::src/core/ThreadPoolScheduler.pm:166  (./CORE.setting.moarvm:)
 from SETTING::src/core/ThreadPoolScheduler.pm:163  (./CORE.setting.moarvm:)
 from SETTING::src/core/Thread.pm:30  (./CORE.setting.moarvm:THREAD-ENTRY)
MoarVM panic: Exiting



MVM_STATIC_INLINE void enter_single_user(MVMThreadContext *tc, MVMArrayBody *arr) {
#if MVM_ARRAY_CONC_DEBUG
    if (!MVM_trycas(&(arr->in_use), 0, 1)) {
	MVM_dump_backtrace(arr->tc);
	MVM_dump_backtrace(tc);
        MVM_panic("Exiting");
//        MVM_exception_throw_adhoc(tc, "Array may not be used concurrently");                                                                                                                            
    }
    arr->tc = *tc;
#endif
}
static void exit_single_user(MVMThreadContext *tc, MVMArrayBody *arr) {
#if MVM_ARRAY_CONC_DEBUG
    arr->in_use = 0;
#endif
}