GC with realtime support
This commit is contained in:
parent
8319e2411d
commit
4aba7421f5
15 changed files with 261 additions and 27 deletions
|
|
@ -161,5 +161,8 @@ proc main() =
|
|||
var elapsed = epochTime() - t
|
||||
PrintDiagnostics()
|
||||
echo("Completed in " & $elapsed & "ms. Success!")
|
||||
|
||||
when defined(GC_setMaxPause):
|
||||
GC_setMaxPause 2_000
|
||||
|
||||
main()
|
||||
|
|
|
|||
|
|
@ -2,6 +2,9 @@ discard """
|
|||
outputsub: "no leak: "
|
||||
"""
|
||||
|
||||
when defined(GC_setMaxPause):
|
||||
GC_setMaxPause 2_000
|
||||
|
||||
type
|
||||
TTestObj = object of TObject
|
||||
x: string
|
||||
|
|
|
|||
|
|
@ -2,6 +2,9 @@ discard """
|
|||
outputsub: "no leak: "
|
||||
"""
|
||||
|
||||
when defined(GC_setMaxPause):
|
||||
GC_setMaxPause 2_000
|
||||
|
||||
type
|
||||
TTestObj = object of TObject
|
||||
x: string
|
||||
|
|
|
|||
|
|
@ -2,6 +2,9 @@ discard """
|
|||
outputsub: "no leak: "
|
||||
"""
|
||||
|
||||
when defined(GC_setMaxPause):
|
||||
GC_setMaxPause 2_000
|
||||
|
||||
type
|
||||
TSomething = object
|
||||
s: string
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue