We help IT Professionals succeed at work.
Get Started

Getting error: "FastMM has detected a FreeMem call after FastMM was uninstalled"

shawn857
shawn857 asked
on
4,239 Views
Last Modified: 2014-12-06
Hi, I'm using FastMM4 in my project and during runtime, it throws off this error:

"FastMM has detected a FreeMem call after FastMM was uninstalled"

I don't use any "Freemem" calls in my code, but I do a "Dispose" in one of my functions which gets called repeatedly from within a loop:

function PhoneNumMask(const Str: string; const hmask: string): PChar;
var
  Pstr, Pmask, ResultStr: PChar;
begin
  Pstr := PChar(Str);
  Pmask := PChar(hmask);
  New(ResultStr);

  while Pmask^ <> #0 do
  begin
    if Pmask^ <> '#' then   // a literal character in the mask, output it directly
       StrCat(ResultStr,PChar(string(Pmask^)))
    else  // output a digit
    begin
      while (PStr^ <> #0) and not (PStr^ in ['0'..'9']) do
        Inc(PStr);
      if PStr^ = #0 then BREAK;  // Exit loop

      StrCat(ResultStr,PChar(string(PStr^)));   // Tack on a digit to the result string
      Inc(PStr);
    end;

    Inc(Pmask);
  end; // while Pmask^ <> #0 do

  Result:=ResultStr;
  Dispose(ResultStr);
end;  // PhoneNumMask

Open in new window


... I prepare a new PChar variable "ResultStr" with the NEW command, then do a DISPOSE of it at the end. I can't see the problem. My app processes text files on disk and I ran a test on a 20 meg file and it went about 5% though the data, and only then gave the error. So the error didn't happen immediately... it took a lot of iterations before it happened.
   Maybe I don't even *need* variable "ResultStr" and I can just assign my function's result to the default "Result"....

Thanks
    Shawn
Comment
Watch Question
Software architect
CERTIFIED EXPERT
Top Expert 2012
Commented:
This problem has been solved!
Unlock 1 Answer and 6 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE