BUG: _DBReplace() in LCK Leaks Memory

ID: Q107405

The information in this article applies to:

• Microsoft FoxPro for Windows, versions 2.5x, 2.6x
• Microsoft FoxPro for MS-DOS, versions 2.6x

SYMPTOMS

In the FoxPro Library Construction Kit, if you use the _DBReplace() function to replace information into a character field in a database, memory will slowly be lost.

STATUS

Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article.

MORE INFORMATION

Steps to Reproduce Problem

The following code can be used to reproduce the problem. The SYS(1016) value will change approximately every 200-400 calls to the library. It will change by values around 2 kilobytes each time. There is currently no known workaround.

   * FoxPro Code
   CLOSE ALL
   CLEAR ALL
   x = "a"
   CREATE TABLE lcktest (tstfield c(25))
   APPEND BLANK
   SET LIBRARY TO test.dll
   FOR i=1 TO 10000
     ?SYS(1016),i
     =myplbfunc(REPLICATE( X ,10))
   ENDFOR

   // LCK 'C' Code test.c
   #include <pro_ext.h>
   void FAR Generic(ParamBlk FAR *parm)
   {
   Value myval;
   Locator DbfFldLoc;

   // Locate field named 'tstfield'

   if ((DbfFldLoc.l_NTI = _NameTableIndex("tstfield")) == -1)
      _UserError("Failed at _NameTableIndex call.");

   // Find the field in the database, and store location to Locator
   // structure

   if (_FindVar(DbfFldLoc.l_NTI, 1, &DbfFldLoc) == 0)
      _UserError("Failed at _FindVar call.");

   // Replace character field with information from passed in variable

   _DBReplace(&DbfFldLoc,&parm->p[0].val);

   }

   FoxInfo myFoxInfo[] = {
        {"MYPLBFUNC", (FPFI) Generic, 1, "C"},
   };

   FoxTable _FoxTable = {
        (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
   };