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

Add pseudo PIC code for 32-bit powerpc, probably wrong :-(

Browse Source
This commit is contained in:
Pierre Muller 2023-10-09 22:05:58 +02:00
parent 922893ddbb
commit 2ad20b3787
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/powerpc/math.inc
View File

@ -77,7 +77,8 @@ const
addis r4,r5,(factor-.Lpiclab)@ha
lfd f2,(factor-.Lpiclab)@l(r4)
{$else darwin}
{$error Add pic code for linux/ppc32}
lis r4,(factor)@ha
lfd f2,(factor)@l(r4)
{$endif darwin}
{$else FPC_PIC}
lis r4,factor@ha
@ -107,7 +108,8 @@ const
addis r4,r5,(longint_to_real_helper-.Lpiclab)@ha
lfd f0,(longint_to_real_helper-.Lpiclab)@l(r4)
{$else darwin}
{$error Add pic code for linux/ppc32}
lis r4,(longint_to_real_helper)@ha
lfd f0,(longint_to_real_helper)@l(r4)
{$endif darwin}
{$else FPC_PIC}
lis r4,longint_to_real_helper@ha
@ -133,7 +135,8 @@ const
addis r4,r5,(factor2-.Lpiclab)@ha
lfd f2,(factor2-.Lpiclab)@l(r4)
{$else darwin}
{$error Add pic code for linux/ppc32}
lis r4,(factor2)@ha
lfd f2,(factor2)@l(r4)
{$endif darwin}
{$else FPC_PIC}
lis r4,factor2@ha
@ -297,7 +300,8 @@ asm
addis r3,r5,(longint_to_real_helper-.Lpiclab)@ha
lfd f1,(longint_to_real_helper-.Lpiclab)@l(r3)
{$else darwin}
{$error Add pic code for linux/ppc32}
lis r3,(longint_to_real_helper)@ha
lfd f1,(longint_to_real_helper)@l(r3)
{$endif darwin}
{$else FPC_PIC}
lis r3,longint_to_real_helper@ha
@ -319,7 +323,11 @@ asm
lfd f3,temp
lfd f2,(int_to_real_factor-.Lpiclab)@l(r4)
{$else darwin}
{$error Add pic code for linux/ppc32}
lis r4,(cardinal_to_real_helper)@ha
lfd f1,(cardinal_to_real_helper)@l(r4)
lis r4,(int_to_real_factor)@ha
lfd f3,temp
lfd f2,(int_to_real_factor)@l(r4)
{$endif darwin}
{$else FPC_PIC}
lis r4,cardinal_to_real_helper@ha
@ -367,7 +375,8 @@ asm
addis r3,r5,(cardinal_to_real_helper-.Lpiclab)@ha
lfd f1,(cardinal_to_real_helper-.Lpiclab)@l(r3)
{$else darwin}
{$error Add pic code for linux/ppc32}
lis r3,(cardinal_to_real_helper)@ha
lfd f1,(cardinal_to_real_helper)@l(r3)
{$endif darwin}
{$else FPC_PIC}
lis r3,cardinal_to_real_helper@ha
@ -386,7 +395,8 @@ asm
addis r4,r5,(int_to_real_factor-.Lpiclab)@ha
lfd f2,(int_to_real_factor-.Lpiclab)@l(r4)
{$else darwin}
{$error Add pic code for linux/ppc32}
lis r4,(int_to_real_factor)@ha
lfd f2,(int_to_real_factor)@l(r4)
{$endif darwin}
{$else FPC_PIC}
lis r4,int_to_real_factor@ha