* Inline some functions, bugreport ID 30906

git-svn-id: trunk@34869 -

packages/fcl-json/src/jsonparser.pp

@@ -29,7 +29,7 @@ Type
   Private
     FScanner : TJSONScanner;
     function GetO(AIndex: TJSONOption): Boolean;
-    function GetOptions: TJSONOptions;
+    function GetOptions: TJSONOptions; inline;
     function ParseNumber: TJSONNumber;
     procedure SetO(AIndex: TJSONOption; AValue: Boolean);
     procedure SetOptions(AValue: TJSONOptions);
@@ -38,7 +38,7 @@ Type
     function DoParse(AtCurrent,AllowEOF: Boolean): TJSONData;
     function GetNextToken: TJSONToken;
     function CurrentTokenString: String;
-    function CurrentToken: TJSONToken;
+    function CurrentToken: TJSONToken; inline;
     function ParseArray: TJSONArray;
     function ParseObject: TJSONObject;
     Property Scanner : TJSONScanner read FScanner;

packages/fcl-json/src/jsonscanner.pp

@@ -69,13 +69,13 @@ Type
     FCurLine: string;
     TokenStr: PChar;
     FOptions : TJSONOptions;
-    function GetCurColumn: Integer;
+    function GetCurColumn: Integer; inline;
     function GetO(AIndex: TJSONOption): Boolean;
     procedure SetO(AIndex: TJSONOption; AValue: Boolean);
   protected
     procedure Error(const Msg: string);overload;
     procedure Error(const Msg: string; Const Args: array of Const);overload;
-    function DoFetchToken: TJSONToken;
+    function DoFetchToken: TJSONToken; inline;
   public
     constructor Create(Source : TStream; AUseUTF8 : Boolean = True); overload; deprecated 'use options form instead';
     constructor Create(const Source : String; AUseUTF8 : Boolean = True); overload; deprecated  'use options form instead';