paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 23:09:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix warnings when compiling the compiler with DFA optimizer enabled on m68k

Browse Source 
git-svn-id: trunk@28499 -
This commit is contained in:
Károly Balogh 2014-08-20 13:49:47 +00:00
parent 09608a1c28
commit 392da9e43f
5 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/m68k/cgcpu.pas
View File

@ -1492,10 +1492,8 @@ unit cgcpu;
hp2 : treference;
hl : tasmlabel;
srcref,dstref : treference;
orglen : tcgint;
begin
hregister := getintregister(list,OS_INT);
orglen:=len;
{ from 12 bytes movs is being used }
if ((len<=8) or (not(cs_opt_size in current_settings.optimizerswitches) and (len<=12))) then
@ -1738,6 +1736,7 @@ unit cgcpu;
{ calculate temp. size }
size:=0;
hreg:=NR_NO;
for r:=low(saved_standard_registers) to high(saved_standard_registers) do
if saved_standard_registers[r] in rg[R_INTREGISTER].used_in_proc then
begin
@ -1797,6 +1796,7 @@ unit cgcpu;
exit;
{ Copy registers from temp }
size:=0;
hreg:=NR_NO;
for r:=low(saved_standard_registers) to high(saved_standard_registers) do
if saved_standard_registers[r] in rg[R_INTREGISTER].used_in_proc then
begin

8
compiler/m68k/n68kadd.pas
View File

@ -72,6 +72,8 @@ implementation
lten : getresflags:=F_GE;
gtn : getresflags:=F_L;
gten : getresflags:=F_LE;
else
internalerror(2014082030);
end
else
case nodetype of
@ -79,6 +81,8 @@ implementation
lten : getresflags:=F_LE;
gtn : getresflags:=F_G;
gten : getresflags:=F_GE;
else
internalerror(2014082031);
end;
end
else
@ -89,6 +93,8 @@ implementation
lten : getresflags:=F_AE;
gtn : getresflags:=F_B;
gten : getresflags:=F_BE;
else
internalerror(2014082032);
end
else
case nodetype of
@ -96,6 +102,8 @@ implementation
lten : getresflags:=F_BE;
gtn : getresflags:=F_A;
gten : getresflags:=F_AE;
else
internalerror(2014082033);
end;
end;
end;

1
compiler/m68k/ra68k.pas
View File

@ -328,6 +328,7 @@ unit ra68k;
function TM68kInstruction.ConcatLabeledInstr(p : TAsmList):tai;
begin
result:=nil;
if ((opcode >= A_BCC) and (opcode <= A_BVS)) or
(opcode = A_BRA) or (opcode = A_BSR) or
(opcode = A_JMP) or (opcode = A_JSR) or

4
compiler/m68k/ra68kmot.pas
View File

@ -616,6 +616,7 @@ const
l : longint;
errorflag: boolean;
begin
BuildExpression:=0;
errorflag := FALSE;
expr := '';
tempstr := '';
@ -986,6 +987,7 @@ const
l: longint;
code: integer;
begin
str:='';
Consume(AS_STAR);
if (oper.opr.ref.scalefactor <> 0)
and (oper.opr.ref.scalefactor <> 1) then
@ -1180,6 +1182,7 @@ const
code: integer;
str: string;
begin
str:='';
Consume(AS_LPAREN);
case actasmtoken of
{ // (reg ... // }
@ -1309,6 +1312,7 @@ const
dataregset := [];
addrregset := [];
tempstr := '';
r:=NR_NO;
case actasmtoken of
{ // Memory reference // }
AS_LPAREN:

1
compiler/systems/t_amiga.pas
View File

@ -257,6 +257,7 @@ begin
{ Write used files and libraries }
WriteResponseFile(false);
success:=false;
case (target_info.system) of
system_m68k_amiga: success:=MakeAmiga68kExe;
system_powerpc_amiga: success:=MakeAmigaPPCExe;