paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 15:09:19 +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 Var
fd: Longint; fd: Longint;
S : String; S : AnsiString;
begin begin
fd:=FileOpen(KernelUUID,fmOpenRead or fmShareDenyNone); fd:=FileOpen(KernelUUID,fmOpenRead or fmShareDenyNone);

2
rtl/linux/system.pp
View File

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