mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
43 lines
770 B
ObjectPascal
43 lines
770 B
ObjectPascal
{ %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.
|