View Issue Details

IDProjectCategoryView StatusLast Update
0006142JEDI VCL00 JVCL Componentspublic2015-09-14 13:20
ReporterwhfAssigned ToAHUser 
PrioritynormalSeverityfeatureReproducibilityalways
Status resolvedResolutionfixed 
Product VersionDaily / GIT 
Target VersionFixed in Version3.48 
Summary0006142: TJvInterpreterIdentifierList.Sort not work in delphi x64
DescriptionTJvInterpreterIdentifierList.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;
TagsNo tags attached.

Activities

AHUser

2013-05-23 18:58

developer   ~0020493

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