Code: Select all
Structure Foo
A.l
B.f
C.s
EndStructure
Structure Bar
F.Foo
EndStructure
NewList Bars.Bar()
Procedure SetC(*F.Foo,S.s)
*F\C = S
EndProcedure
*Q.Bar = AddElement(Bars())
SetC(*Q\F,"DING") ;; << correct
Debug *Q\F\C
SetC(@*Q\F,"DONG") ;; << also correct
Debug *Q\F\C
In the former case it seems that i'm passing Foo by value and the latter by "reference" (pointer actually).
btw. I'm using the latest 4.10 Beta 2 for Win.