forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

updated range comp proc

This commit is contained in:
Basile Burg 2015-06-02 22:47:30 +02:00
parent 5dd4001470
commit fc8eed3c5a
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ce_d2syn.pas
View File

@ -227,6 +227,8 @@ end;
function TSynD2SynRange.Compare(Range: TSynCustomHighlighterRange): integer; function TSynD2SynRange.Compare(Range: TSynCustomHighlighterRange): integer;
var var
src_t: TSynD2SynRange; src_t: TSynD2SynRange;
const
cmpRes: array[boolean] of integer = (-1, 1);
begin begin
result := inherited Compare(Range); result := inherited Compare(Range);
if result <> 0 then exit; if result <> 0 then exit;
@ -234,12 +236,13 @@ begin
if Range is TSynD2SynRange then if Range is TSynD2SynRange then
begin begin
src_t := TSynD2SynRange(Range); src_t := TSynD2SynRange(Range);
if src_t.rangeKinds <> rangeKinds then exit(1); if (src_t.rString and rString) then exit(0);
if src_t.nestedCommentsCount <> nestedCommentsCount then exit(1); if src_t.nestedCommentsCount <> nestedCommentsCount then
if src_t.tokenStringBracketsCount <> tokenStringBracketsCount then exit(1); exit(cmpRes[src_t.nestedCommentsCount > nestedCommentsCount]);
if src_t.rString <> rString then exit(1); if src_t.tokenStringBracketsCount <> tokenStringBracketsCount then
if src_t.namedRegionCount <> namedRegionCount then exit(1); exit(cmpRes[src_t.tokenStringBracketsCount > tokenStringBracketsCount]);
exit(0); if src_t.namedRegionCount <> namedRegionCount then
exit(cmpRes[src_t.namedRegionCount > namedRegionCount]);
end; end;
end; end;