From 6dad5b98a2bf5c32876b783c966599a724127430 Mon Sep 17 00:00:00 2001
From: Artem3213212 <cx-1212@yandex.ru>
Date: Fri, 1 Jun 2018 20:52:37 +0300
Subject: [PATCH] const str optimization

---
 FPCTest/fpcunitproject1.lps | 129 ++++++++++++++++++------------------
 FPCTest/testcase1.pas       |   1 -
 2 files changed, 64 insertions(+), 66 deletions(-)

diff --git a/FPCTest/fpcunitproject1.lps b/FPCTest/fpcunitproject1.lps
index b5d7f64..819c516 100644
--- a/FPCTest/fpcunitproject1.lps
+++ b/FPCTest/fpcunitproject1.lps
@@ -16,8 +16,7 @@
         <Filename Value="testcase1.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="TestCase1"/>
-        <TopLine Value="15"/>
-        <CursorPos X="50" Y="28"/>
+        <CursorPos X="116" Y="32"/>
         <UsageCount Value="194"/>
         <Loaded Value="True"/>
       </Unit1>
@@ -26,8 +25,8 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="7"/>
-        <CursorPos X="35" Y="19"/>
+        <TopLine Value="362"/>
+        <CursorPos X="34" Y="376"/>
         <UsageCount Value="194"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -42,123 +41,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="35" Column="11" TopLine="21"/>
+        <Caret Line="34" Column="38" TopLine="10"/>
       </Position1>
       <Position2>
-        <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="214" Column="38" TopLine="200"/>
+        <Filename Value="testcase1.pas"/>
+        <Caret Line="29" TopLine="4"/>
       </Position2>
       <Position3>
-        <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="21" Column="7" TopLine="7"/>
+        <Filename Value="testcase1.pas"/>
+        <Caret Line="41" Column="51" TopLine="28"/>
       </Position3>
       <Position4>
-        <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="182" Column="40" TopLine="178"/>
+        <Filename Value="testcase1.pas"/>
+        <Caret Line="48" Column="53" TopLine="9"/>
       </Position4>
       <Position5>
-        <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="53" Column="35" TopLine="40"/>
+        <Filename Value="testcase1.pas"/>
+        <Caret Line="19" Column="11" TopLine="5"/>
       </Position5>
       <Position6>
-        <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="214" Column="38" TopLine="191"/>
+        <Filename Value="testcase1.pas"/>
+        <Caret Line="48" Column="58" TopLine="34"/>
       </Position6>
       <Position7>
-        <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="13" Column="15"/>
+        <Filename Value="testcase1.pas"/>
+        <Caret Line="17" Column="26" TopLine="5"/>
       </Position7>
       <Position8>
         <Filename Value="testcase1.pas"/>
-        <Caret Line="8" Column="31"/>
+        <Caret Line="50" Column="58" TopLine="35"/>
       </Position8>
       <Position9>
-        <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="19" Column="38"/>
+        <Filename Value="testcase1.pas"/>
+        <Caret Line="48" Column="63" TopLine="24"/>
       </Position9>
       <Position10>
-        <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="319" Column="28" TopLine="298"/>
-      </Position10>
-      <Position11>
-        <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="13" Column="49"/>
-      </Position11>
-      <Position12>
-        <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="34" Column="38" TopLine="10"/>
-      </Position12>
-      <Position13>
-        <Filename Value="testcase1.pas"/>
-        <Caret Line="29" TopLine="4"/>
-      </Position13>
-      <Position14>
-        <Filename Value="testcase1.pas"/>
-        <Caret Line="41" Column="51" TopLine="28"/>
-      </Position14>
-      <Position15>
-        <Filename Value="testcase1.pas"/>
-        <Caret Line="48" Column="53" TopLine="9"/>
-      </Position15>
-      <Position16>
         <Filename Value="testcase1.pas"/>
         <Caret Line="19" Column="11" TopLine="5"/>
+      </Position10>
+      <Position11>
+        <Filename Value="testcase1.pas"/>
+        <Caret Line="48" Column="59" TopLine="33"/>
+      </Position11>
+      <Position12>
+        <Filename Value="testcase1.pas"/>
+        <Caret Line="21" TopLine="6"/>
+      </Position12>
+      <Position13>
+        <Filename Value="..\AG.Logs.pas"/>
+        <Caret Line="25" Column="27" TopLine="13"/>
+      </Position13>
+      <Position14>
+        <Filename Value="..\AG.Logs.pas"/>
+        <Caret Line="32" Column="57" TopLine="11"/>
+      </Position14>
+      <Position15>
+        <Filename Value="..\AG.Logs.pas"/>
+        <Caret Line="328" Column="7" TopLine="305"/>
+      </Position15>
+      <Position16>
+        <Filename Value="..\AG.Logs.pas"/>
+        <Caret Line="317" Column="25" TopLine="315"/>
       </Position16>
       <Position17>
         <Filename Value="testcase1.pas"/>
-        <Caret Line="48" Column="58" TopLine="34"/>
+        <Caret Line="28" Column="50" TopLine="15"/>
       </Position17>
       <Position18>
-        <Filename Value="testcase1.pas"/>
-        <Caret Line="17" Column="26" TopLine="5"/>
+        <Filename Value="..\AG.Logs.pas"/>
+        <Caret Line="21" Column="7" TopLine="7"/>
       </Position18>
       <Position19>
-        <Filename Value="testcase1.pas"/>
-        <Caret Line="50" Column="58" TopLine="35"/>
+        <Filename Value="..\AG.Logs.pas"/>
+        <Caret Line="64" Column="35" TopLine="50"/>
       </Position19>
       <Position20>
-        <Filename Value="testcase1.pas"/>
-        <Caret Line="48" Column="63" TopLine="24"/>
+        <Filename Value="..\AG.Logs.pas"/>
+        <Caret Line="28" Column="30" TopLine="10"/>
       </Position20>
       <Position21>
-        <Filename Value="testcase1.pas"/>
-        <Caret Line="19" Column="11" TopLine="5"/>
+        <Filename Value="..\AG.Logs.pas"/>
+        <Caret Line="134" Column="47" TopLine="134"/>
       </Position21>
       <Position22>
-        <Filename Value="testcase1.pas"/>
-        <Caret Line="48" Column="59" TopLine="33"/>
+        <Filename Value="..\AG.Logs.pas"/>
+        <Caret Line="179" Column="32" TopLine="165"/>
       </Position22>
       <Position23>
-        <Filename Value="testcase1.pas"/>
-        <Caret Line="21" TopLine="6"/>
+        <Filename Value="..\AG.Logs.pas"/>
+        <Caret Line="184" Column="37" TopLine="170"/>
       </Position23>
       <Position24>
         <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="25" Column="27" TopLine="13"/>
+        <Caret Line="257" Column="33" TopLine="243"/>
       </Position24>
       <Position25>
         <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="32" Column="57" TopLine="11"/>
+        <Caret Line="297" Column="33" TopLine="283"/>
       </Position25>
       <Position26>
         <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="328" Column="7" TopLine="305"/>
+        <Caret Line="310" Column="40" TopLine="296"/>
       </Position26>
       <Position27>
         <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="317" Column="25" TopLine="315"/>
+        <Caret Line="312" Column="6" TopLine="301"/>
       </Position27>
       <Position28>
-        <Filename Value="testcase1.pas"/>
-        <Caret Line="28" Column="50" TopLine="15"/>
+        <Filename Value="..\AG.Logs.pas"/>
+        <Caret Line="324" Column="21" TopLine="301"/>
       </Position28>
       <Position29>
         <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="21" Column="7" TopLine="7"/>
+        <Caret Line="344" Column="35" TopLine="330"/>
       </Position29>
       <Position30>
         <Filename Value="..\AG.Logs.pas"/>
-        <Caret Line="64" Column="35" TopLine="50"/>
+        <Caret Line="360" Column="37" TopLine="346"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/FPCTest/testcase1.pas b/FPCTest/testcase1.pas
index 2dacdae..14bb439 100644
--- a/FPCTest/testcase1.pas
+++ b/FPCTest/testcase1.pas
@@ -49,7 +49,6 @@ SetLength(s,0);
 MultiLog.Write('Str Test');
 MultiLog.Write('Str+Object Test',self);
 FreeAndNil(MultiLog);
-
 end;