paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 18:30:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* String -> ShortString

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 12:03:04 +01:00 committed by Michaël Van Canneyt
parent 31ef662201
commit bcaf82f5e7
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/systemh.inc
View File

@ -545,7 +545,7 @@ Type
{ Zero - terminated strings } { Zero - terminated strings }
{$IFDEF FPC_HAS_ANSICHAR_CHAR} {$IF DECLARED(AnsiChar)}
// Compiler defines AnsiChar and WideChar, not AnsiChar // Compiler defines AnsiChar and WideChar, not AnsiChar
{$IFDEF UNICODERTL} {$IFDEF UNICODERTL}
Char = WideChar; Char = WideChar;
@ -915,6 +915,7 @@ Procedure FillWord(var x;count:SizeInt;Value:Word);
procedure FillDWord(var x;count:SizeInt;value:DWord); procedure FillDWord(var x;count:SizeInt;value:DWord);
procedure FillQWord(var x;count:SizeInt;value:QWord); procedure FillQWord(var x;count:SizeInt;value:QWord);
function IndexChar(const buf;len:SizeInt;b:ansichar):SizeInt; function IndexChar(const buf;len:SizeInt;b:ansichar):SizeInt;
function IndexChar(const buf;len:SizeInt;b:widechar):SizeInt;
function IndexByte(const buf;len:SizeInt;b:byte):SizeInt; {$if defined(cpui386)} inline; {$endif} function IndexByte(const buf;len:SizeInt;b:byte):SizeInt; {$if defined(cpui386)} inline; {$endif}
function Indexword(const buf;len:SizeInt;b:word):SizeInt; {$if defined(cpui386)} inline; {$endif} function Indexword(const buf;len:SizeInt;b:word):SizeInt; {$if defined(cpui386)} inline; {$endif}
function IndexDWord(const buf;len:SizeInt;b:DWord):SizeInt; {$if defined(cpui386)} inline; {$endif} function IndexDWord(const buf;len:SizeInt;b:DWord):SizeInt; {$if defined(cpui386)} inline; {$endif}
@ -1273,7 +1274,7 @@ Function DSeg:Word;{$ifdef SYSTEMINLINE}inline;{$endif}
Function SSeg:Word;{$ifdef SYSTEMINLINE}inline;{$endif} Function SSeg:Word;{$ifdef SYSTEMINLINE}inline;{$endif}
{**************************************************************************** {****************************************************************************
PAnsiChar and String Handling Characters and String Handling
****************************************************************************} ****************************************************************************}
function StrPas(p:PAnsiChar):shortstring;{$ifdef SYSTEMINLINE}inline;{$endif} function StrPas(p:PAnsiChar):shortstring;{$ifdef SYSTEMINLINE}inline;{$endif}
@ -1482,7 +1483,7 @@ Function SeekEOLn:Boolean;
Function SeekEOF:Boolean; Function SeekEOF:Boolean;
Procedure SetTextBuf(var f:Text; var Buf);[INTERNPROC:fpc_in_settextbuf_file_x]; Procedure SetTextBuf(var f:Text; var Buf);[INTERNPROC:fpc_in_settextbuf_file_x];
Procedure SetTextBuf(var f:Text; var Buf; Size:SizeInt); Procedure SetTextBuf(var f:Text; var Buf; Size:SizeInt);
Procedure SetTextLineEnding(var f:Text; Ending:string); Procedure SetTextLineEnding(var f:Text; Ending:shortstring);
function GetTextCodePage(var T: Text): TSystemCodePage; function GetTextCodePage(var T: Text): TSystemCodePage;
procedure SetTextCodePage(var T: Text; CodePage: TSystemCodePage); procedure SetTextCodePage(var T: Text; CodePage: TSystemCodePage);
{$ifdef FPC_HAS_FEATURE_UNICODESTRINGS} {$ifdef FPC_HAS_FEATURE_UNICODESTRINGS}
@ -1715,7 +1716,7 @@ Const
Procedure Error(RunTimeError : TRunTimeError); Procedure Error(RunTimeError : TRunTimeError);
{$ifdef FPC_HAS_FEATURE_COMMANDARGS} {$ifdef FPC_HAS_FEATURE_COMMANDARGS}
Function ParamCount:Longint; Function ParamCount:Longint;
Function ParamStr(l:Longint):string; Function ParamStr(l:Longint):shortstring;
{$endif FPC_HAS_FEATURE_COMMANDARGS} {$endif FPC_HAS_FEATURE_COMMANDARGS}
Procedure Dump_Stack(var f : text;fp:pointer;addr : codepointer = nil); Procedure Dump_Stack(var f : text;fp:pointer;addr : codepointer = nil);