t_id
1111
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
440182670 | 934406 | True | False | Success, compilation failed |
Record count: 1
{ %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.