1 import core.thread, core.memory, core.atomic;
2
3 // test init
4 shared uint gctor, gdtor, tctor, tdtor;
this()5 shared static this() { if (atomicOp!"+="(gctor, 1) != 1) assert(0); }
~this()6 shared static ~this() { if (atomicOp!"+="(gdtor, 1) != 1) assert(0); }
this()7 static this() { atomicOp!"+="(tctor, 1); }
~this()8 static ~this() { atomicOp!"+="(tdtor, 1); }
9
10 // test GC
11 __gshared Object root;
alloc()12 void alloc() { root = new Object(); }
access()13 void access() { assert(root.toString() !is null); } // vtbl call will fail if finalized
free()14 void free() { root = null; }
15
16 Object tls_root;
tls_alloc()17 void tls_alloc() { tls_root = new Object(); }
tls_access()18 void tls_access() { assert(tls_root.toString() !is null); } // vtbl call will fail if finalized
tls_free()19 void tls_free() { tls_root = null; }
20
stack(alias func)21 void stack(alias func)()
22 {
23 // allocate some extra stack space to not keep references to GC memory on the scanned stack
24 ubyte[1024] buf = void;
25 func();
26 }
27
testGC()28 void testGC()
29 {
30 import core.memory;
31
32 stack!alloc();
33 stack!tls_alloc();
34 stack!access();
35 stack!tls_access();
36 GC.collect();
37 stack!tls_access();
38 stack!access();
39 stack!tls_free();
40 stack!free();
41 }
42
runTests()43 extern(C) int runTests()
44 {
45 try
46 {
47 assert(atomicLoad!(MemoryOrder.acq)(gctor) == 1);
48 assert(atomicLoad!(MemoryOrder.acq)(gdtor) == 0);
49 assert(atomicLoad!(MemoryOrder.acq)(tctor) >= 1);
50 assert(atomicLoad!(MemoryOrder.acq)(tdtor) >= 0);
51 // test some runtime functionality
52 testGC();
53 new Thread(&testGC).start.join;
54 }
55 catch (Throwable)
56 {
57 return false;
58 }
59 return true;
60 }
61
62 // Provide a way to initialize D from C programs that are D agnostic.
63 import core.runtime : rt_init, rt_term;
64
plugin_init()65 extern(C) int plugin_init()
66 {
67 return rt_init();
68 }
69
plugin_term()70 extern(C) int plugin_term()
71 {
72 return rt_term();
73 }
74