paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 10:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more warnings after last commit fixed

Browse Source
This commit is contained in:
florian 2022-10-24 22:52:52 +02:00
parent 3fa77a4f62
commit be401422fd
3 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/arm/cgcpu.pas
View File

@ -2704,13 +2704,15 @@ unit cgcpu;
maxtmpreg_arm = 10; {roozbeh: can be reduced to 8 or lower if might conflick with reserved ones,also +2 is used becouse of regs required for referencing}
maxtmpreg_thumb = 5;
type
ttmpregisters = array[1..maxtmpreg_arm] of tregister;
var
srcref,dstref,usedtmpref,usedtmpref2:treference;
srcreg,destreg,countreg,r,tmpreg:tregister;
helpsize:aint;
copysize:byte;
cgsize:Tcgsize;
tmpregisters:array[1..maxtmpreg_arm] of tregister;
tmpregisters:ttmpregisters;
maxtmpreg,
tmpregi,tmpregi2:byte;
@ -2876,6 +2878,7 @@ unit cgcpu;
end;
begin
tmpregisters:=Default(ttmpregisters);
if len=0 then
exit;
if GenerateThumbCode then

1
compiler/systems/t_gba.pas
View File

@ -81,6 +81,7 @@ Var
found1,
found2 : boolean;
begin
s:='';
WriteResponseFile:=False;
linklibc:=(SharedLibFiles.Find('c')<>nil);
linklibgcc:=(SharedLibFiles.Find('gcc')<>nil);

1
compiler/systems/t_nds.pas
View File

@ -84,6 +84,7 @@ Var
found1,
found2 : boolean;
begin
s:='';
WriteResponseFile:=False;
linklibc:=(SharedLibFiles.Find('c')<>nil);
linklibgcc:=(SharedLibFiles.Find('gcc')<>nil);