paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-10 00:15:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed DFA warnings for MIPS and AVR

Browse Source 
git-svn-id: trunk@28502 -
This commit is contained in:
Károly Balogh 2014-08-20 15:05:43 +00:00
parent 6122db7d40
commit d22dc68fda
2 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/avr/agavrgas.pas
View File

@ -81,6 +81,7 @@ unit agavrgas;
var var
s : string; s : string;
begin begin
s:='';
with ref do with ref do
begin begin
{$ifdef extdebug} {$ifdef extdebug}
@ -95,9 +96,8 @@ unit agavrgas;
else if base<>NR_NO then else if base<>NR_NO then
begin begin
if addressmode=AM_PREDRECEMENT then if addressmode=AM_PREDRECEMENT then
s:='-' s:='-';
else
s:='';
case base of case base of
NR_R26: NR_R26:
s:=s+'X'; s:=s+'X';
@ -119,9 +119,7 @@ unit agavrgas;
else if assigned(symbol) or (offset<>0) then else if assigned(symbol) or (offset<>0) then
begin begin
if assigned(symbol) then if assigned(symbol) then
s:=ReplaceForbiddenAsmSymbolChars(symbol.name) s:=ReplaceForbiddenAsmSymbolChars(symbol.name);
else
s:='';
if offset<0 then if offset<0 then
s:=s+tostr(offset) s:=s+tostr(offset)

8
compiler/mips/cpuelf.pas
View File

@ -739,15 +739,15 @@ implementation
if (lowreloc.ftype=R_MIPS_LO16) then if (lowreloc.ftype=R_MIPS_LO16) then
begin; begin;
found:=true; found:=true;
objsec.Data.Seek(objreloc.DataOffset);
objsec.Data.Read(hipart,sizeof(hipart));
objsec.Data.Seek(lowreloc.DataOffset);
objsec.Data.Read(lopart,sizeof(lopart));
break; break;
end; end;
end; end;
if not found then if not found then
InternalError(2013030102); InternalError(2013030102);
objsec.Data.Seek(objreloc.DataOffset);
objsec.Data.Read(hipart,sizeof(hipart));
objsec.Data.Seek(lowreloc.DataOffset);
objsec.Data.Read(lopart,sizeof(lopart));
if (source_info.endian<>target_info.endian) then if (source_info.endian<>target_info.endian) then
begin begin
hipart:=swapendian(hipart); hipart:=swapendian(hipart);