FIX: Passing Array to Init with Addobject Passes First Element

MORE INFORMATION

Steps to Reproduce Behavior

1. Run the following code from a program (.PRG) file:

         LOCAL loCustObj, laTest[3]
   
         Clear
   
         * Populate array.
         laTest[1] = 'One'
         laTest[2] = 'Two'
         laTest[3] = 'Three'
   
         * Pass array to cst1 Init by reference in CREATEOBJECT()
         loCustObj = CREATEOBJECT('cst1', @laTest)
   
         * Pass array to cst1 Init by reference in AddObject()
         loCustObj.AddObject('cst2','cst1', @laTest)
   
         ?loCustObj.aprop[2]
         ?loCustObj.cst2.aprop[2]
   
         DEFINE CLASS cst1 AS custom
   
            DIMENSION aprop[1]
   
         PROC Init
            LPARAMETER taArray
            * Error "'TAARRAY' is not an array." occurs here from AddObject
            =ACOPY(taArray, this.aprop)
         ENDPROC
   
         ENDDEFINE
   							

An error dialog displays with the following error: This occurs on the ACOPY() function, when the array is being passed from the AddObject() method. The array is passed correctly from the CREATEOBJECT() function. The array is passed correctly from the AddObject() method under Visual FoxPro 6.0.

If you wish to pass an entire array instead of a particular element to a method or function in Visual FoxPro, you must pass it by reference. This is accomplished by preceding the arrayname with an @ sign, or using the SET UDFPARM command.