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

* get rid os some warnings

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2022-12-16 11:46:41 +01:00 committed by Michaël Van Canneyt
parent c6effbd676
commit c0893e5c16
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/utils/fpc.pp
View File

@ -80,7 +80,7 @@ program fpc;
end; end;
end; end;
procedure InitPlatform(var ppcbin,processorname : string); procedure InitPlatform(out ppcbin,processorname : string);
begin begin
{$ifdef i386} {$ifdef i386}
@ -267,6 +267,7 @@ program fpc;
end; end;
begin begin
ppccommandline:=[];
setlength(ppccommandline,paramcount); setlength(ppccommandline,paramcount);
ppccommandlinelen:=0; ppccommandlinelen:=0;
cpusuffix :=''; // if not empty, signals attempt at cross cpusuffix :=''; // if not empty, signals attempt at cross