paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 05:27:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added

Browse Source
This commit is contained in:
Jonas Maebe 2002-06-12 18:01:06 +00:00
parent f33ee551d7
commit 462ab6c72e
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
tests/webtbf/tw1995.pp Normal file
View File

@ -0,0 +1,44 @@
{ %FAIL }
unit tw1995;
interface
type
TMemoryManager = record
FreememSize : Function(p:pointer;Size:Longint):Longint;
end;
TMemoryManager2 = record
FreememSize : Function(var p:pointer;Size:Longint):Longint;
end;
Function CFreeMemSize(var p:pointer;Size:Longint):Longint;
Function CFreeMemSize2(p:pointer;Size:Longint):Longint;
Const
CMemoryManager : TMemoryManager =
(
FreememSize : {$ifdef fpc}@{$endif}CFreememSize;
);
CMemoryManager2 : TMemoryManager2 =
(
FreememSize : {$ifdef fpc}@{$endif}CFreememSize2;
);
implementation
Function CFreeMemSize(var p:pointer;Size:Longint):Longint;
begin
CFreeMemSize:=0;
end;
Function CFreeMemSize2(p:pointer;Size:Longint):Longint;
begin
CFreeMemSize2:=0;
end;
end.