mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-16 10:50:07 +02:00
* removed -Oodfa warnings
git-svn-id: trunk@29986 -
This commit is contained in:
parent
c41759a026
commit
879afbb7be
@ -120,6 +120,8 @@ unit agcpugas;
|
||||
{ todo }
|
||||
internalerror(2014121502);
|
||||
end
|
||||
else
|
||||
internalerror(2015022301);
|
||||
end
|
||||
end
|
||||
else
|
||||
|
@ -2136,6 +2136,8 @@ implementation
|
||||
number of registers }
|
||||
if loadop=A_LDP then
|
||||
regcount:=regcount and not(1);
|
||||
{ initialise for dfa }
|
||||
regs[low(regs)]:=NR_NO;
|
||||
{ max 4 loads/stores -> max 8 registers (in case of ldp/stdp) }
|
||||
for i:=1 to regcount do
|
||||
regs[i]:=getintregister(list,opsize);
|
||||
|
@ -278,7 +278,10 @@ interface
|
||||
op:=A_CMP
|
||||
else
|
||||
op:=A_CMN;
|
||||
end;
|
||||
end
|
||||
else
|
||||
{ for DFA }
|
||||
op:=A_NONE;
|
||||
|
||||
case nodetype of
|
||||
equaln,
|
||||
|
@ -511,6 +511,8 @@ Unit racpugas;
|
||||
if (is_operand<>(actopcode=A_B)) and
|
||||
(length(hs)>1) then
|
||||
begin
|
||||
{ workaround for DFA bug }
|
||||
result:=low(tasmcond);
|
||||
for result:=low(tasmcond) to high(tasmcond) do
|
||||
begin
|
||||
if hs=uppercond2str[result] then
|
||||
|
Loading…
Reference in New Issue
Block a user