paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 04:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* string -> shortstring

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

2
rtl/wii/system.pp
View File

@ -120,7 +120,7 @@ End;
var var
execpathstr : shortstring; execpathstr : shortstring;
function paramstr(l: longint) : string; function paramstr(l: longint) : shortstring;
begin begin
{ stricly conforming POSIX applications } { stricly conforming POSIX applications }
{ have the executing filename as argv[0] } { have the executing filename as argv[0] }

6
rtl/wii/wiih.inc
View File

@ -44,9 +44,9 @@ type
end; end;
PFileIO = ^TFileIO; PFileIO = ^TFileIO;
TDoMkdir = procedure (const s: string); TDoMkdir = procedure (const s: shortstring);
TDoRmdir = procedure (const s: string); TDoRmdir = procedure (const s: shortstring);
TDoChdir = procedure (const s: string); TDoChdir = procedure (const s: shortstring);
TDoGetdir = procedure (DriveNr: byte; var Dir: ShortString); TDoGetdir = procedure (DriveNr: byte; var Dir: ShortString);
TDirIO = packed record TDirIO = packed record