destructors for case values

This commit is contained in:
Zahary Karadjov 2012-06-06 23:00:33 +03:00
commit 65970efd97
3 changed files with 65 additions and 17 deletions

View file

@ -885,6 +885,7 @@ proc assignType(dest, src: PType) =
dest.size = src.size
dest.align = src.align
dest.containerID = src.containerID
dest.destructor = src.destructor
# this fixes 'type TLock = TSysLock':
if src.sym != nil:
if dest.sym != nil: