paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 18:08:08 +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;
function GetWBArg(Idx: Integer): string;
function GetWBArg(Idx: Integer): shortstring;
var
startup: PWBStartup;
wbarg: PWBArgList;
Path: array[0..254] of AnsiChar;
strPath: string;
strPath: shortstring;
Len: Integer;
begin
GetWBArg := '';
@ -159,9 +159,9 @@ begin
argc:=localindex;
end;
function GetProgDir: string;
function GetProgDir: shortstring;
var
s1: string;
s1: shortstring;
alock: BPTR;
counter: Byte;
begin
@ -183,10 +183,10 @@ begin
end;
end;
function GetProgramName: string;
function GetProgramName: shortstring;
{ Returns ONLY the program name }
var
s1: string;
s1: shortstring;
Counter: Byte;
begin
GetProgramName := '';
@ -226,9 +226,9 @@ begin
end;
{ argument number l }
function ParamStr(l: LongInt): string;
function ParamStr(l: LongInt): shortstring;
var
s1: string;
s1: shortstring;
begin
ParamStr := '';
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 }
function PathConv(path: string): string; alias: 'PATHCONV'; [public];
function PathConv(path: shortstring): shortstring; alias: 'PATHCONV'; [public];
var tmppos: longint;
begin
{ check for short paths }