Prechádzať zdrojové kódy

* Inline some functions, bug ID #30905

git-svn-id: trunk@34868 -
michael 8 rokov pred
rodič
commit
9b21d9a87e
1 zmenil súbory, kde vykonal 5 pridanie a 5 odobranie
  1. 5 5
      rtl/objpas/sysutils/sysstrh.inc

+ 5 - 5
rtl/objpas/sysutils/sysstrh.inc

@@ -112,16 +112,16 @@ function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string;
 function AdjustLineBreaks(const S: string): string;
 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle): string;
 function IsValidIdent(const Ident: string; AllowDots: Boolean = False; StrictDots: Boolean = False): Boolean;
-function IntToStr(Value: Longint): string;
-function IntToStr(Value: Int64): string;
-function IntToStr(Value: QWord): string;
+function IntToStr(Value: Longint): string; {$ifdef SYSUTILSINLINE}inline;{$ENDIF}
+function IntToStr(Value: Int64): string; {$ifdef SYSUTILSINLINE}inline;{$ENDIF}
+function IntToStr(Value: QWord): string; {$ifdef SYSUTILSINLINE}inline;{$ENDIF}
 function IntToHex(Value: Longint; Digits: integer): string;
 function IntToHex(Value: Int64; Digits: integer): string;
-function IntToHex(Value: QWord; Digits: integer): string;
+function IntToHex(Value: QWord; Digits: integer): string; {$ifdef SYSUTILSINLINE}inline;{$ENDIF}
 function StrToInt(const s: string): Longint;
 function StrToDWord(const s: string): DWord;
 function StrToInt64(const s: string): int64;
-function StrToQWord(const s: string): QWord;
+function StrToQWord(const s: string): QWord; 
 function StrToUInt64(const s: string): UInt64; inline;
 function TryStrToInt(const s: string; Out i : Longint) : boolean;
 function TryStrToDWord(const s: string; Out D : DWord) : boolean;