Project JEDI - Issue Tracker
Mantis Bugtracker

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0006142 [JEDI VCL] 00 JVCL Components feature always 2013-05-23 10:43 2015-09-14 13:20
Reporter whf View Status public  
Assigned To AHUser
Priority normal Resolution fixed  
Status resolved   Product Version Daily / GIT
Summary 0006142: TJvInterpreterIdentifierList.Sort not work in delphi x64
Description TJvInterpreterIdentifierList.Sort work well in delphi x32 but
not work in delphi x64, this is my modify(in x32, x64 all work well):


  function _SortIdentifier(Item1, Item2: Pointer): Integer;
  begin
    { function AnsiStrIComp about 30% faster than AnsiCompareText }
// Result := AnsiCompareText(TJvInterpreterIdentifier(Item1).Identifier,
// TJvInterpreterIdentifier(Item2).Identifier);

    Result := AnsiStrIComp(PChar(TJvInterpreterIdentifier(Item1).Identifier),
      PChar(TJvInterpreterIdentifier(Item2).Identifier));
  end;

procedure TJvInterpreterIdentifierList.Sort(Compare: TListSortCompare = nil);
begin
  if Assigned(Compare) then
    inherited Sort(Compare)
  else
    inherited Sort(TListSortCompare(@_SortIdentifier));
end;
Additional Information
Tags No tags attached.
Attached Files

- Relationships

-  Notes
(0020493)
AHUser (developer)
2013-05-23 18:58

This is fixed in svn revision 13515.

- Issue History
Date Modified Username Field Change
2013-05-23 10:43 whf New Issue
2013-05-23 18:58 AHUser Note Added: 0020493
2013-05-23 18:58 AHUser Status new => resolved
2013-05-23 18:58 AHUser Fixed in Version => Daily / SVN
2013-05-23 18:58 AHUser Resolution open => fixed
2013-05-23 18:58 AHUser Assigned To => AHUser
2015-09-14 13:20 obones Fixed in Version Daily / GIT => 3.48


Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker