FIX: GETPEM() Function Does Not Return the Correct ParentClass

MORE INFORMATION

You use the GETPEM() function to return values of properties, or code from events/methods of any classes or objects in memory. The GETPEM() function requires two parameters. First, you pass it an object reference or the name of a class. Second, you pass it a property, event, or method name.

Steps to Reproduce Behavior

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

         CLEAR
         CLEAR ALL
         oMe = CREATEOBJECT( "Son" )
         cClass = oMe.CLASS
   
         DO WHILE NOT(EMPTY(cClass))
            ?cClass + ' was begotten by ' + GETPEM(cClass, "ParentClass")
            cClass = GETPEM(cClass, "ParentClass")
         ENDDO
   
         DEFINE CLASS granddad AS CUSTOM
         ENDDEFINE
   
         DEFINE CLASS Dad AS granddad
         ENDDEFINE
   
         DEFINE CLASS Son AS Dad
         ENDDEFINE

RESULT: If you run the code under Visual FoxPro 5.0x, the program returns the following to the desktop: This is incorrect. The correct return values are: