From 5594fb1cc3880aa4108e36a5dbed4edafa2c0bbf Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 23 Dec 2019 13:45:48 +0000
Subject: [PATCH] * Merging revisions r43714 from trunk:    
 ------------------------------------------------------------------------    
 r43714 | michael | 2019-12-23 14:15:19 +0100 (Mon, 23 Dec 2019) | 1 line

    * Fix bug ID #34303, readability opimizations
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43753 -
---
 rtl/objpas/classes/stringl.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index 2fd3f09e2c..43987c5847 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -1811,7 +1811,7 @@ end;
 function TStringList.Add(const S: string): Integer;
 
 begin
-  If Not (SortStyle=sslAuto) then
+  If (SortStyle<>sslAuto) then
     Result:=FCount
   else
     If Find (S,Result) then
@@ -1969,7 +1969,7 @@ end;
 procedure TStringList.CustomSort(CompareFn: TStringListSortCompare);
 
 begin
-  If (FForceSort or (Not (FSortStyle=sslAuto))) and (FCount>1) then
+  If (FCount>1) and (FForceSort or (FSortStyle<>sslAuto))  then
     begin
     Changing;
     QuickSort(0,FCount-1, CompareFn);