diff options
Diffstat (limited to 'include/delphi/m_core.inc')
| -rw-r--r-- | include/delphi/m_core.inc | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc index 5036322301..4a7b6480f0 100644 --- a/include/delphi/m_core.inc +++ b/include/delphi/m_core.inc @@ -287,15 +287,17 @@ const type
PSortedList = ^TSortedList;
TSortedList = record
- items : ^pointer;
+ items : array of pointer;
realCount: int;
limit : int;
increment: int;
sortFunc : TFSortFunc;
end;
+// BUGGED with limit <> 0. list pointer must befreed by mir_free
function List_Create(limit:int; increment:int):PSortedList;stdcall;
external CoreDLL name 'List_Create';
+
procedure List_Destroy(list:PSortedList);stdcall;
external CoreDLL name 'List_Destroy';
function List_Find(list:PSortedList; value:pointer):pointer;stdcall;
|