paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed parameter type mismatch

Browse Source
This commit is contained in:
michael 2002-06-13 04:54:47 +00:00
parent 462ab6c72e
commit 38c6da0933
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/extra/cmem/cmem.pp
View File

@ -34,14 +34,14 @@ begin
result:=Malloc(Size); result:=Malloc(Size);
end; end;
Function CFreeMem (Var P : pointer) : Longint; Function CFreeMem (P : pointer) : Longint;
begin begin
Free(P); Free(P);
Result:=0; Result:=0;
end; end;
Function CFreeMemSize(var p:pointer;Size:Longint):Longint; Function CFreeMemSize(p:pointer;Size:Longint):Longint;
begin begin
Result:=CFreeMem(P); Result:=CFreeMem(P);
@ -112,7 +112,10 @@ end.
{ {
$Log$ $Log$
Revision 1.1 2002-01-29 17:54:59 peter Revision 1.2 2002-06-13 04:54:47 michael
+ Fixed parameter type mismatch
Revision 1.1 2002/01/29 17:54:59 peter
* splitted to base and extra * splitted to base and extra
Revision 1.5 2001/10/23 12:14:36 jonas Revision 1.5 2001/10/23 12:14:36 jonas