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

* string -> shortstring

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:01:59 +01:00 committed by Michaël Van Canneyt
parent c19b1d2fd5
commit 9d6a495c02
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/linux/suuid.inc
View File

@ -55,7 +55,7 @@ Const
Var
fd: Longint;
S : String;
S : AnsiString;
begin
fd:=FileOpen(KernelUUID,fmOpenRead or fmShareDenyNone);

2
rtl/linux/system.pp
View File

@ -457,7 +457,7 @@ begin
execpathstr[0]:=AnsiChar(i);
end;
function paramstr(l: longint) : string;
function paramstr(l: longint) : shortstring;
begin
{ stricly conforming POSIX applications }
{ have the executing filename as argv[0] }