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.          

[fliegermichl]

Also hier knallt es. Allerdings erst beim Programmende.

Code: Alles auswählen

program Project1;
var p : Pointer;
begin
 p := GetMem(1024);
 FreeMem(p, 1024);
 FreeMem(p, 1024);
 writeln('Enter');
 ReadLn;
end.

[theo]

@Mathias hast du "uses cmem" im lpr?

[Mathias]

@Mathias hast du "uses cmem" im lpr?

Nein, ich habe es extra nackt gelassen.
Stimmt das, das die unit cmem, GetMem und FreeMem auf die c Funktionen umbiegt ?

[theo]

@Mathias hast du "uses cmem" im lpr?

Nein, ich habe es extra nackt gelassen.
Stimmt das, das die unit cmem, GetMem und FreeMem auf die c Funktionen umbiegt ?

Ich denke ja. Schau doch nach in unit cmem.