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

* string -> shortstring

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

8
rtl/haiku/system.pp
View File

@ -115,7 +115,7 @@ var
cookie: longint;
image : image_info;
index : byte;
s : string;
s : shortstring;
begin
cookie:=0;
fillchar(image, sizeof(image_info), 0);
@ -135,10 +135,10 @@ begin
end;
end;
function paramstr(l: longint) : string;
function paramstr(l: longint) : shortstring;
var
s: string;
s1: string;
s: shortstring;
s1: shortstring;
begin
{ stricly conforming POSIX applications }
{ have the executing filename as argv[0] }