1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
discard """
cmd: "nim $target --threads:on -d:release -d:useRealtimeGC $options $file"
joinable:false
"""
#[
was: cmd: "nim $target --debuginfo $options $file"
these dont' seem needed --debuginfo
nor these from the previous main.nim.cfg: --app:console
]#
#[
Test the realtime GC without linking nimrtl.dll/so.
To build by hand and run the test for 35 minutes:
`nim r --threads:on -d:runtimeSecs:2100 tests/realtimeGC/tmain.nim`
]#
import times, os, strformat, strutils
from stdtest/specialpaths import buildDir
# import threadpool
const runtimeSecs {.intdefine.} = 5
const file = "shared.nim"
const dllname = buildDir / (DynlibFormat % "shared_D20210524T180506")
static:
# D20210524T180826:here we compile the dependency on the fly
let nim = getCurrentCompilerExe()
let (output, exitCode) = gorgeEx(fmt"{nim} c -o:{dllname} --debuginfo --app:lib --threads:on -d:release -d:useRealtimeGC {file}")
doAssert exitCode == 0, output
proc status() {.importc: "status", dynlib: dllname.}
proc count() {.importc: "count", dynlib: dllname.}
proc checkOccupiedMem() {.importc: "checkOccupiedMem", dynlib: dllname.}
proc process() =
let startTime = getTime()
let runTime = cast[Time](runtimeSecs)
var accumTime: Time
while accumTime < runTime:
for i in 0..10:
count()
# echo("1. sleeping... ")
sleep(500)
for i in 0..10:
status()
# echo("2. sleeping... ")
sleep(500)
checkOccupiedMem()
accumTime = cast[Time]((getTime() - startTime))
# echo("--- Minutes left to run: ", int(int(runTime-accumTime)/60))
proc main() =
process()
# parallel:
# for i in 0..0:
# spawn process()
# sync()
main()
|
