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

Fix an issue with local BLX branches not being turned into BL branches.

Browse Source 
git-svn-id: branches/laksen/armiw@29355 -
This commit is contained in:
Jeppe Johansen 2014-12-28 23:27:30 +00:00
parent 9a482d5281
commit cbd75428c0
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/arm/aasmcpu.pas
View File

@ -3377,6 +3377,11 @@ implementation
else
begin
offset:=((currsym.offset-insoffset-8) and $3fffffe);
{ Turn BLX into BL if the destination isn't odd, could happen with recursion }
if not odd(offset shr 1) then
bytes:=(bytes and $EB000000) or $EB000000;
bytes:=bytes or ((offset shr 2) and $ffffff);
bytes:=bytes or ((offset shr 1) and $1) shl 24;
end;