paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 15:29:14 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/atari/syspara.inc
View File

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