83a736a34a* first implementation of the =trace and =dispose hooks for the cycle collector * a cycle collector for ARC: progress * manual: the .acyclic pragma is a thing once again * gcbench: adaptations for --gc:arc * enable valgrind tests for the strutils tests * testament: better valgrind support * ARC refactoring: growable jumpstacks * ARC cycle detector: non-recursive algorithm * moved and renamed core/ files back to system/ * refactoring: --gc:arc vs --gc:orc since 'orc' is even more experimental and we want to ship --gc:arc soonish
136 lines
2 KiB
Nim
136 lines
2 KiB
Nim
discard """
|
|
cmd: '''nim cpp --newruntime --threads:on $file'''
|
|
output: '''(field: "value")
|
|
Indeed
|
|
axc
|
|
(v: 10)
|
|
0 new: 0
|
|
...
|
|
destroying GenericObj[T] GenericObj[system.int]
|
|
test
|
|
'''
|
|
"""
|
|
|
|
import system / allocators
|
|
import system / ansi_c
|
|
|
|
import tables
|
|
|
|
type
|
|
Node = ref object
|
|
field: string
|
|
|
|
# bug #11807
|
|
import os
|
|
putEnv("HEAPTRASHING", "Indeed")
|
|
|
|
proc main =
|
|
var w = newTable[string, owned Node]()
|
|
w["key"] = Node(field: "value")
|
|
echo w["key"][]
|
|
echo getEnv("HEAPTRASHING")
|
|
|
|
# bug #11891
|
|
var x = "abc"
|
|
x[1] = 'x'
|
|
echo x
|
|
|
|
main()
|
|
|
|
# bug #11745
|
|
|
|
type
|
|
Foo = object
|
|
bar: seq[int]
|
|
|
|
var x = [Foo()]
|
|
|
|
# bug #11563
|
|
type
|
|
MyTypeType = enum
|
|
Zero, One
|
|
MyType = object
|
|
case kind: MyTypeType
|
|
of Zero:
|
|
s*: seq[MyType]
|
|
of One:
|
|
x*: int
|
|
var t: MyType
|
|
|
|
# bug #11254
|
|
proc test(p: owned proc()) =
|
|
let x = (proc())p
|
|
|
|
test(proc() = discard)
|
|
|
|
# bug #10689
|
|
|
|
type
|
|
O = object
|
|
v: int
|
|
|
|
proc `=sink`(d: var O, s: O) =
|
|
d.v = s.v
|
|
|
|
proc selfAssign =
|
|
var o = O(v: 10)
|
|
o = o
|
|
echo o
|
|
|
|
selfAssign()
|
|
|
|
# bug #11833
|
|
type FooAt = object
|
|
|
|
proc testWrongAt() =
|
|
var x = @[@[FooAt()]]
|
|
|
|
testWrongAt()
|
|
|
|
let (a, d) = allocCounters()
|
|
discard cprintf("%ld new: %ld\n", a - unpairedEnvAllocs() - d, allocs)
|
|
|
|
#-------------------------------------------------
|
|
type
|
|
Table[A, B] = object
|
|
x: seq[(A, B)]
|
|
|
|
|
|
proc toTable[A,B](p: sink openArray[(A, B)]): Table[A, B] =
|
|
for zz in mitems(p):
|
|
result.x.add move(zz)
|
|
|
|
|
|
let table = {"a": new(int)}.toTable()
|
|
|
|
# bug # #12051
|
|
|
|
type
|
|
GenericObj[T] = object
|
|
val: T
|
|
Generic[T] = owned ref GenericObj[T]
|
|
|
|
proc `=destroy`[T](x: var GenericObj[T]) =
|
|
echo "destroying GenericObj[T] ", x.typeof # to know when its being destroyed
|
|
|
|
proc main12() =
|
|
let gnrc = Generic[int](val: 42)
|
|
echo "..."
|
|
|
|
main12()
|
|
|
|
#####################################################################
|
|
## bug #12827
|
|
type
|
|
MyObject = object
|
|
x: string
|
|
y: seq[string]
|
|
needs_ref: ref int
|
|
|
|
proc xx(xml: string): MyObject =
|
|
let stream = xml
|
|
result.x = xml
|
|
defer: echo stream
|
|
|
|
|
|
discard xx("test")
|