Wieso knallt dies nicht / C und FPC / malloc und free Gemisch

[Mathias]

Wieso knallt dies bei FreeMem nicht, es müsste eigentlich schon beim ersten FreeMem knallen, tut es aber nicht.
Wieso ist das so ?

Code: Alles auswählen

program project1;

const
  libc = 'c';

  procedure free(p: pointer); cdecl; external libc;
  function malloc(size: SizeUInt): pointer; cdecl; external libc;

var
  p: Pointer;

begin
  p := malloc(1024);

  Freemem(p);
  Freemem(p);
  Freemem(p);
end.