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

* string -> shortstring

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

16
rtl/amicommon/paramhandling.inc
View File

@ -27,12 +27,12 @@ begin
end; end;
end; end;
function GetWBArg(Idx: Integer): string; function GetWBArg(Idx: Integer): shortstring;
var var
startup: PWBStartup; startup: PWBStartup;
wbarg: PWBArgList; wbarg: PWBArgList;
Path: array[0..254] of AnsiChar; Path: array[0..254] of AnsiChar;
strPath: string; strPath: shortstring;
Len: Integer; Len: Integer;
begin begin
GetWBArg := ''; GetWBArg := '';
@ -159,9 +159,9 @@ begin
argc:=localindex; argc:=localindex;
end; end;
function GetProgDir: string; function GetProgDir: shortstring;
var var
s1: string; s1: shortstring;
alock: BPTR; alock: BPTR;
counter: Byte; counter: Byte;
begin begin
@ -183,10 +183,10 @@ begin
end; end;
end; end;
function GetProgramName: string; function GetProgramName: shortstring;
{ Returns ONLY the program name } { Returns ONLY the program name }
var var
s1: string; s1: shortstring;
Counter: Byte; Counter: Byte;
begin begin
GetProgramName := ''; GetProgramName := '';
@ -226,9 +226,9 @@ begin
end; end;
{ argument number l } { argument number l }
function ParamStr(l: LongInt): string; function ParamStr(l: LongInt): shortstring;
var var
s1: string; s1: shortstring;
begin begin
ParamStr := ''; ParamStr := '';
if AOS_wbMsg <> nil then if AOS_wbMsg <> nil then

2
rtl/amicommon/sysos.inc
View File

@ -127,7 +127,7 @@ end;
{ Converts an Unix-like path to Amiga-like path } { Converts an Unix-like path to Amiga-like path }
function PathConv(path: string): string; alias: 'PATHCONV'; [public]; function PathConv(path: shortstring): shortstring; alias: 'PATHCONV'; [public];
var tmppos: longint; var tmppos: longint;
begin begin
{ check for short paths } { check for short paths }