do not inline anything - "internal error 200510032"

1 files changed, 20 insertions, 20 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])+