paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 02:22:11 +02: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
s : string;
begin
s:='';
with ref do
begin
{$ifdef extdebug}
@ -95,9 +96,8 @@ unit agavrgas;
else if base<>NR_NO then
begin
if addressmode=AM_PREDRECEMENT then
s:='-'
else
s:='';
s:='-';
case base of
NR_R26:
s:=s+'X';
@ -119,9 +119,7 @@ unit agavrgas;
else if assigned(symbol) or (offset<>0) then
begin
if assigned(symbol) then
s:=ReplaceForbiddenAsmSymbolChars(symbol.name)
else
s:='';
s:=ReplaceForbiddenAsmSymbolChars(symbol.name);
if offset<0 then
s:=s+tostr(offset)

8
compiler/mips/cpuelf.pas
View File

@ -739,15 +739,15 @@ implementation
if (lowreloc.ftype=R_MIPS_LO16) then
begin;
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;
end;
end;
if not found then
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
begin
hipart:=swapendian(hipart);