FIX: Double Value Returned from DLL Gets Decimal Portion of 0 (191327)

MORE INFORMATION

Steps to Reproduce Behavior

1. In Microsoft Visual C++, create test2.cpp which will contain the following code:

         //test2.cpp
         #include <windows.h>
   
         BOOL APIENTRY DllMain(HANDLE hInst, DWORD ul_reason_to_call, LPVOID
      lpReserved)
         {
             return TRUE;
                 UNREFERENCED_PARAMETER(hInst);
                 UNREFERENCED_PARAMETER(ul_reason_to_call);
                 UNREFERENCED_PARAMETER(lpReserved);
         };
   
         double APIENTRY test(double p1, double p2)
         {
          return p1 * p2;
         };
   						

2. Create a file called Test2.DEF with the following contents:

         ; test2.def : Declares the module parameters for the DLL.
   
         LIBRARY      "Test2"
         DESCRIPTION  'Test2 Dynamic Link Library'
   
         EXPORTS
            test @4

3. Build Test2.dll as a Multithreaded .dll file.
4. In Visual FoxPro, set the directory containing the .dll built in Step 4 as the default directory.
5. Run the following from the Command window:

         DECLARE DOUBLE test IN test2.dll DOUBLE, DOUBLE
         ? test(1.5, 1.5)
         ? test(2.5, 2.5)
   						

   You will get return values of:

   2.00
   6.00