From 7d8796f1132191de7b051a443b983ed791d9770e Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Thu, 13 Oct 2011 06:22:44 +0000
Subject: [PATCH] Adds a further performance optimization to lowercase by
 moving the new_c1 to only where needed

git-svn-id: trunk@32865 -
---
 components/lazutils/lazutf8.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/lazutils/lazutf8.pas b/components/lazutils/lazutf8.pas
index 29da3f4a07..5c926ea73c 100644
--- a/components/lazutils/lazutf8.pas
+++ b/components/lazutils/lazutf8.pas
@@ -1609,7 +1609,6 @@ begin
   while InStr < InStrEnd do
   begin
     c1 := InStr^;
-    new_c1 := c1;
     case c1 of
       'A'..'Z':
       begin
@@ -1635,9 +1634,11 @@ begin
       end;
 
       // Chars with 2-bytes which might be modified
-      #$C3, #$C4, #$C5..#$C8, #$CE, #$D0..#$D2:
+      //#$C3..#$C8, #$CE, #$D0..#$D2:
+      #$C3..#$D2:
       begin
         c2 := InStr[1];
+        new_c1 := c1;
         new_c2 := c2;
         case c1 of
         // Latin Characters 0000–0FFF http://en.wikibooks.org/wiki/Unicode/Character_reference/0000-0FFF
@@ -1796,6 +1797,7 @@ begin
       // E1 83 80 - E1 83 85 => E2 B4 A0 - E2 B4 A5
       #$E1:
       begin
+        new_c1 := c1;
         c2 := InStr[1];
         c3 := InStr[2];
         if (c2 = #$82) and (c3 in [#$A0..#$BF]) then