Object with data member that contains Self

'The test type
Type TA
	'Data member
	Field child:TB
	Global counter:Int
	
	Method New()
		TA.counter:+1
	End Method
	Method Delete()
		TA.counter:-1
	End Method
End Type

'Type that contains a reference to it's parent
Type TB
	Field m_main:TA
	Method SetMain(main:TA)
		Self.m_main = main
	End Method
End Type

'Test function
Function Test(set_main:Int = False)
	Local obj:TA = New TA
	obj.child = New TB
	'Make a reference is set_main = True
	If set_main = True
		obj.child.SetMain(obj)
	End If
	'Enable this line to fix the problem
	'But shouldn't deleting the parent object
	'already have to do this?
	'obj.child = Null
	'Destroy object
	obj = Null
	'Force garbage collection for instantly deleting objects
	GCCollect()
End Function

'----------------------------
Test()
'Should print 1
Print TA.counter

'----------------------------
Test(True)
'Should print 1 because the data member did not contain a reference
Print TA.counter

'----------------------------
'I expect it to print 1, but it does print 2
'The data member contains a reference to the parent
'But since the parent has been nullified I expect
'it to get cleared as well
Test(True)
Print TA.counter

'----------------------------
'Prints 3. But if the last result would've printed 1
'then this would also result in 1
Test()
Print TA.counter