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

- Fix compilation on architectures without absolute call/jump instructions.

Browse Source 
git-svn-id: trunk@42164 -
This commit is contained in:
Jeppe Johansen 2019-06-02 15:50:41 +00:00
parent aa4961d06e
commit ee7bc1d516
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
rtl/avr/math.inc
View File

@ -46,15 +46,27 @@ asm
cp R24, R1
brne start
{$ifdef CPUAVR_HAS_JMP_CALL}
call get_pc_addr
{$else CPUAVR_HAS_JMP_CALL}
rcall get_pc_addr
{$endif CPUAVR_HAS_JMP_CALL}
movw R20, R24
{$ifdef CPUAVR_HAS_JMP_CALL}
call get_frame
{$else CPUAVR_HAS_JMP_CALL}
rcall get_frame
{$endif CPUAVR_HAS_JMP_CALL}
movw R18, R24
ldi R22, 200
clr R23
clr R24
clr R25
{$ifdef CPUAVR_HAS_JMP_CALL}
call HandleErrorAddrFrameInd
{$else CPUAVR_HAS_JMP_CALL}
rcall HandleErrorAddrFrameInd
{$endif CPUAVR_HAS_JMP_CALL}
start:
@ -102,15 +114,27 @@ asm
cp R24, R1
brne start
{$ifdef CPUAVR_HAS_JMP_CALL}
call get_pc_addr
{$else CPUAVR_HAS_JMP_CALL}
rcall get_pc_addr
{$endif CPUAVR_HAS_JMP_CALL}
movw R20, R24
{$ifdef CPUAVR_HAS_JMP_CALL}
call get_frame
{$else CPUAVR_HAS_JMP_CALL}
rcall get_frame
{$endif CPUAVR_HAS_JMP_CALL}
movw R18, R24
ldi R22, 200
clr R23
clr R24
clr R25
{$ifdef CPUAVR_HAS_JMP_CALL}
call HandleErrorAddrFrameInd
{$else CPUAVR_HAS_JMP_CALL}
rcall HandleErrorAddrFrameInd
{$endif CPUAVR_HAS_JMP_CALL}
start: // Start of division...
clr R20 // clear remainder low
@ -166,15 +190,27 @@ asm
cpc R22, R1
cpc R23, R1
brne .LNonZero
{$ifdef CPUAVR_HAS_JMP_CALL}
call get_pc_addr
{$else CPUAVR_HAS_JMP_CALL}
rcall get_pc_addr
{$endif CPUAVR_HAS_JMP_CALL}
movw R20, R24
{$ifdef CPUAVR_HAS_JMP_CALL}
call get_frame
{$else CPUAVR_HAS_JMP_CALL}
rcall get_frame
{$endif CPUAVR_HAS_JMP_CALL}
movw R18, R24
ldi R22, 200
clr R23
clr R24
clr R25
{$ifdef CPUAVR_HAS_JMP_CALL}
call HandleErrorAddrFrameInd
{$else CPUAVR_HAS_JMP_CALL}
rcall HandleErrorAddrFrameInd
{$endif CPUAVR_HAS_JMP_CALL}
.LNonZero:
push R17