blob: 312f7baf5f018c3dca855ffec705b3c475511267 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
{ %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.
|