From 2b3381a31612aac1f088535346ee207aa2d7f9e7 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 23 Jun 2020 13:55:18 +0200
Subject: do not inline anything - "internal error 200510032"

---
 fhunit.pas    |  40 ++++++++---------
 pegelunit.pas |   4 +-
 wetter.lps    | 140 +++++++++++++++++++++++++++-------------------------------
 3 files changed, 86 insertions(+), 98 deletions(-)

diff --git a/fhunit.pas b/fhunit.pas
index 10c8ca7..04dd1bf 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -23,41 +23,41 @@ type
     _mZeit: tZeit;
     _uZeit: extended;
     _mW:    tMessWerte;
-    procedure setzeUZeit; inline;
-    procedure setzeZeit; inline;
-    function rMW(mG: tMessGroesze): extended; inline;
+    procedure setzeUZeit;
+    procedure setzeZeit;
+    function rMW(mG: tMessGroesze): extended;
   public
     constructor create;
     destructor destroy; override;
-    function lade(s: string): boolean; inline;
-    function schreibe: string; inline;
+    function lade(s: string): boolean;
+    function schreibe: string;
     property zeit: extended
       read _uZeit;
     property mW[mG: tMessGroesze]: extended
       read rMW;
-    procedure dump(p: pExtended); inline;
-    procedure pmud(p: pExtended); inline;
-    function size: longint; inline;
+    procedure dump(p: pExtended);
+    procedure pmud(p: pExtended);
+    function size: longint;
   end;
 
   tMessPunkteListe = class
   private
     inhalt: tFPList;
-    function rItem(i: longint): tMessPunkt; inline;
-    function bisekt(zeit: extended): longint; inline;
+    function rItem(i: longint): tMessPunkt;
+    function bisekt(zeit: extended): longint;
   public
     constructor create;
     destructor destroy; override;
-    function add(s: string): boolean; inline;
-    function append(s: string): boolean; inline;
+    function add(s: string): boolean;
+    function append(s: string): boolean;
     function last: tMessPunkt;
     function count: longint;
     property items[i: longint]: tMessPunkt
       read rItem; default;
     function minMaxY(startZeit,stopZeit: extended): tMessWerteExtPoints;
-    procedure dump(p: pointer); inline;
-    procedure pmud(p: pointer; version,len: longint); inline;
-    function size: longint; inline;
+    procedure dump(p: pointer);
+    procedure pmud(p: pointer; version,len: longint);
+    function size: longint;
   end;
 
   tMessPunkteUpdateThread = class(tThread)
@@ -70,7 +70,7 @@ type
     nZeit:        extended;
     _tNum,_tAnz:  longint;
     procedure uebernehmen;
-    procedure nZeitNullen; inline;
+    procedure nZeitNullen;
   public
     beenden: boolean;
     constructor create(besitzer: tMessPunkte; tNum,tAnz: longint);
@@ -99,8 +99,8 @@ type
     function mehrInfos(was: tMessGroeszenSet): string;
   end;
 
-procedure uZeit2mZeit(uZ: extended; out mZ: tZeit); inline;
-procedure mZeit2uZeit(mZ: tZeit; out uZ: extended); inline;
+procedure uZeit2mZeit(uZ: extended; out mZ: tZeit);
+procedure mZeit2uZeit(mZ: tZeit; out uZ: extended);
 function strZuMZeit(s: string; out mZ: tZeit): boolean;
 
 const
@@ -735,7 +735,7 @@ end;
 
 // allgemeine Funktionen *******************************************************
 
-procedure uZeit2mZeit(uZ: extended; out mZ: tZeit); inline;
+procedure uZeit2mZeit(uZ: extended; out mZ: tZeit);
 var
   mi,se,hu: word;
 begin
@@ -744,7 +744,7 @@ begin
   mZ[zgMin10]:=round(mi/10);
 end;
 
-procedure mZeit2uZeit(mZ: tZeit; out uZ: extended); inline;
+procedure mZeit2uZeit(mZ: tZeit; out uZ: extended);
 begin
   uZ:=
     encodeDate(mZ[zgJahr],mZ[zgMonat],mZ[zgTag])+
diff --git a/pegelunit.pas b/pegelunit.pas
index d047236..9accaa8 100644
--- a/pegelunit.pas
+++ b/pegelunit.pas
@@ -22,8 +22,8 @@ type
     _zeit:  tPegelZeit;
     _uZeit: extended;
     _hoehe: longint;
-    procedure setzeUZeit; inline;
-    procedure setzeZeit; inline;
+    procedure setzeUZeit;
+    procedure setzeZeit;
   public
     constructor create;
     destructor destroy; override;
diff --git a/wetter.lps b/wetter.lps
index 46ff0a9..b462580 100644
--- a/wetter.lps
+++ b/wetter.lps
@@ -7,9 +7,10 @@
       <Unit0>
         <Filename Value="wetter.lpr"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="-1"/>
-        <CursorPos X="12" Y="6"/>
+        <EditorIndex Value="1"/>
+        <CursorPos Y="17"/>
         <UsageCount Value="60"/>
+        <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="unit1.pas"/>
@@ -18,9 +19,8 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <IsVisibleTab Value="True"/>
         <TopLine Value="160"/>
-        <CursorPos Y="193"/>
+        <CursorPos X="25" Y="177"/>
         <UsageCount Value="60"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -34,18 +34,19 @@
       <Unit3>
         <Filename Value="fhunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="3"/>
-        <TopLine Value="504"/>
-        <CursorPos X="30" Y="540"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="2"/>
+        <TopLine Value="721"/>
+        <CursorPos X="53" Y="749"/>
         <UsageCount Value="60"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
         <Filename Value="../units/fileunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="4"/>
-        <TopLine Value="108"/>
-        <CursorPos X="62" Y="128"/>
+        <EditorIndex Value="5"/>
+        <TopLine Value="5"/>
+        <CursorPos X="77" Y="30"/>
         <UsageCount Value="29"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -58,9 +59,8 @@
       </Unit5>
       <Unit6>
         <Filename Value="pegelunit.pas"/>
-        <EditorIndex Value="5"/>
-        <TopLine Value="415"/>
-        <CursorPos X="64" Y="636"/>
+        <EditorIndex Value="6"/>
+        <CursorPos X="26" Y="26"/>
         <UsageCount Value="29"/>
         <Loaded Value="True"/>
       </Unit6>
@@ -73,7 +73,7 @@
       </Unit7>
       <Unit8>
         <Filename Value="wetter.konf"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="4"/>
         <CursorPos X="35" Y="3"/>
         <UsageCount Value="29"/>
         <Loaded Value="True"/>
@@ -132,128 +132,116 @@
       </Unit15>
       <Unit16>
         <Filename Value="../units/gitupdateunit.pas"/>
-        <EditorIndex Value="1"/>
-        <TopLine Value="44"/>
+        <EditorIndex Value="3"/>
+        <TopLine Value="43"/>
         <CursorPos X="17" Y="43"/>
         <UsageCount Value="11"/>
         <Loaded Value="True"/>
       </Unit16>
     </Units>
-    <JumpHistory Count="29" HistoryIndex="28">
+    <JumpHistory Count="26" HistoryIndex="25">
       <Position1>
-        <Filename Value="fhunit.pas"/>
-        <Caret Line="89" Column="22" TopLine="67"/>
+        <Filename Value="pegelunit.pas"/>
+        <Caret Line="633" Column="58" TopLine="597"/>
       </Position1>
       <Position2>
-        <Filename Value="fhunit.pas"/>
-        <Caret Line="387" Column="33" TopLine="351"/>
+        <Filename Value="pegelunit.pas"/>
+        <Caret Line="635" Column="54" TopLine="599"/>
       </Position2>
       <Position3>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="479" Column="50" TopLine="460"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="177" Column="25" TopLine="160"/>
       </Position3>
       <Position4>
         <Filename Value="pegelunit.pas"/>
+        <Caret Line="622" Column="5" TopLine="606"/>
       </Position4>
       <Position5>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="81" Column="23" TopLine="45"/>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="30" Column="77" TopLine="5"/>
       </Position5>
       <Position6>
         <Filename Value="pegelunit.pas"/>
-        <Caret Line="359" Column="21" TopLine="323"/>
+        <Caret Line="622" Column="5" TopLine="606"/>
       </Position6>
       <Position7>
-        <Filename Value="unit1.pas"/>
+        <Filename Value="pegelunit.pas"/>
       </Position7>
       <Position8>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="19" Column="42"/>
+        <Filename Value="pegelunit.pas"/>
+        <Caret Line="25" Column="27"/>
       </Position8>
       <Position9>
         <Filename Value="unit1.pas"/>
-        <Caret Line="33" Column="10"/>
+        <Caret Line="177" Column="25" TopLine="160"/>
       </Position9>
       <Position10>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="96" Column="8" TopLine="82"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="58" Column="33" TopLine="41"/>
       </Position10>
       <Position11>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="119" Column="18" TopLine="102"/>
+        <Filename Value="fhunit.pas"/>
       </Position11>
       <Position12>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="136" TopLine="111"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="26" Column="27"/>
       </Position12>
       <Position13>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="82" Column="20" TopLine="61"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="27" Column="26"/>
       </Position13>
       <Position14>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="583" Column="68" TopLine="544"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="32" Column="40" TopLine="4"/>
       </Position14>
       <Position15>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="54" Column="15" TopLine="32"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="38" Column="35" TopLine="10"/>
       </Position15>
       <Position16>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="35" Column="19" TopLine="26"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="39" Column="35" TopLine="11"/>
       </Position16>
       <Position17>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="54" Column="19" TopLine="25"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="40" Column="29" TopLine="12"/>
       </Position17>
       <Position18>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="136" TopLine="111"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="46" Column="45" TopLine="18"/>
       </Position18>
       <Position19>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="82" Column="20" TopLine="61"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="47" Column="47" TopLine="19"/>
       </Position19>
       <Position20>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="570" Column="46" TopLine="513"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="51" Column="39" TopLine="23"/>
       </Position20>
       <Position21>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="136" TopLine="111"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="52" Column="42" TopLine="24"/>
       </Position21>
       <Position22>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="82" Column="15" TopLine="61"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="59" Column="55" TopLine="31"/>
       </Position22>
       <Position23>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="36" Column="38" TopLine="13"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="73" Column="28" TopLine="45"/>
       </Position23>
       <Position24>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="82" Column="20" TopLine="46"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="102" Column="53" TopLine="74"/>
       </Position24>
       <Position25>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="113" Column="68" TopLine="107"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="103" Column="53" TopLine="75"/>
       </Position25>
       <Position26>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="110" Column="15" TopLine="102"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="740" Column="53" TopLine="712"/>
       </Position26>
-      <Position27>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="632" Column="20" TopLine="597"/>
-      </Position27>
-      <Position28>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="633" Column="58" TopLine="597"/>
-      </Position28>
-      <Position29>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="635" Column="54" TopLine="599"/>
-      </Position29>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>
-- 
cgit v1.2.3-54-g00ecf