- passing objects with "var" in param - "cyclic reference error"
@@ -0,0 +1,10 @@
+Rem
+ This test checks:
+ - if there is a cyclic reference error
+End Rem
+SuperStrict
+Framework BRL.StandardIO
+
+Type TMyClass
+ Global instance:TMyClass
+End Type
@@ -0,0 +1,24 @@
+'code checks if objects are passed by reference
+Framework Brl.Standardio
+Type TMyObject
+ field prop:int = 10
+local obj:TMyObject = new TMyObject
+Function Modify:int(obj:TMyObject)
+ obj.prop = 20
+End Function
+Function ModifyVar:int(obj:TMyObject var)
+ obj.prop = 30
+print obj.prop
+Modify(obj)
+ModifyVar(obj)
@@ -0,0 +1,3 @@
+10
+20
+30