paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 01:00:00 +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:57:43 +01:00 committed by Michaël Van Canneyt
parent 33ec5643c6
commit 0f7f9a73a8
1 changed files with 3 additions and 3 deletions

6
rtl/atari/syspara.inc
View File

@ -182,7 +182,7 @@ Var
dta : TDTA;
i,j : longint;
p : PAnsiChar;
tmpPath: String;
tmpPath: RawByteString;
Begin
{Check for WildCards}
@ -245,9 +245,9 @@ end;
function fpGetEnvAtari(const envvar : ShortString): RawByteString; external name '_fpc_atari_getenv';
{ argument number l }
function ParamStr(l: LongInt): string;
function ParamStr(l: LongInt): shortstring;
var
s1: string;
s1: shortstring;
begin
if l=0 then
begin