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

* fixed global variable access in asm

Browse Source
This commit is contained in:
olle 2004-02-09 20:21:06 +00:00
parent 193e41b455
commit 4372f8ef91
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/powerpc/math.inc
View File

@ -91,7 +91,7 @@ const
lis r4,factor@ha lis r4,factor@ha
lfd f2,factor@l(r4) lfd f2,factor@l(r4)
{$else} {$else}
lwz r4,factor[TC](r2) lwz r4,factor(r2)
lfd f2,0(r4) lfd f2,0(r4)
{$endif} {$endif}
// check if value is < 0 // check if value is < 0
@ -112,7 +112,7 @@ const
lis r4,longint_to_real_helper@ha lis r4,longint_to_real_helper@ha
lfd f0,longint_to_real_helper@l(r4) lfd f0,longint_to_real_helper@l(r4)
{$else} {$else}
lwz r4,longint_to_real_helper[TC](r2) lwz r4,longint_to_real_helper(r2)
lfd f0,0(r4) lfd f0,0(r4)
{$endif} {$endif}
lfd f3,temp lfd f3,temp
@ -129,7 +129,7 @@ const
lis r4,factor2@ha lis r4,factor2@ha
lfd f2,factor2@l(r4) lfd f2,factor2@l(r4)
{$else} {$else}
lwz r4,factor2[TC](r2) lwz r4,factor2(r2)
lfd f2,0(r4) lfd f2,0(r4)
{$endif} {$endif}
@ -187,7 +187,7 @@ const
lis r4,factor@ha lis r4,factor@ha
lfd f2,factor@l(r4) lfd f2,factor@l(r4)
{$else} {$else}
lwz r4,factor[TC](r2) lwz r4,factor(r2)
lfd f2,0(r4) lfd f2,0(r4)
{$endif} {$endif}
// check if value is < 0 // check if value is < 0
@ -208,7 +208,7 @@ const
lis r4,longint_to_real_helper@ha lis r4,longint_to_real_helper@ha
lfd f0,longint_to_real_helper@l(r4) lfd f0,longint_to_real_helper@l(r4)
{$else} {$else}
lwz r4,longint_to_real_helper[TC](r2) lwz r4,longint_to_real_helper(r2)
lfd f0,0(r4) lfd f0,0(r4)
{$endif} {$endif}
lfd f3,temp lfd f3,temp
@ -225,7 +225,7 @@ const
lis r4,factor2@ha lis r4,factor2@ha
lfd f2,factor2@l(r4) lfd f2,factor2@l(r4)
{$else} {$else}
lwz r4,factor2[TC](r2) lwz r4,factor2(r2)
lfd f2,0(r4) lfd f2,0(r4)
{$endif} {$endif}
@ -362,7 +362,7 @@ asm
lis r3,longint_to_real_helper@ha lis r3,longint_to_real_helper@ha
lfd f1,longint_to_real_helper@l(r3) lfd f1,longint_to_real_helper@l(r3)
{$else} {$else}
lwz r3,longint_to_real_helper[TC](r2) lwz r3,longint_to_real_helper(r2)
lfd f1,0(r3) lfd f1,0(r3)
{$endif} {$endif}
lfd f0,temp lfd f0,temp
@ -375,8 +375,8 @@ asm
lfd f3,temp lfd f3,temp
lfd f2,int_to_real_factor@l(r4) lfd f2,int_to_real_factor@l(r4)
{$else} {$else}
lwz r4,cardinal_to_real_helper[TC](r2) lwz r4,cardinal_to_real_helper(r2)
lwz r3,int_to_real_factor[TC](r2) lwz r3,int_to_real_factor(r2)
lfd f3,temp lfd f3,temp
lfd f1,0(r4) lfd f1,0(r4)
lfd f2,0(r3) lfd f2,0(r3)
@ -406,7 +406,7 @@ asm
lis r3,cardinal_to_real_helper@ha lis r3,cardinal_to_real_helper@ha
lfd f1,cardinal_to_real_helper@l(r3) lfd f1,cardinal_to_real_helper@l(r3)
{$else} {$else}
lwz r3,longint_to_real_helper[TC](r2) lwz r3,longint_to_real_helper(r2)
lfd f1,0(r3) lfd f1,0(r3)
{$endif} {$endif}
stw r4,temp+4 stw r4,temp+4
@ -416,7 +416,7 @@ asm
lis r4,int_to_real_factor@ha lis r4,int_to_real_factor@ha
lfd f2,int_to_real_factor@l(r4) lfd f2,int_to_real_factor@l(r4)
{$else} {$else}
lwz r4,int_to_real_factor[TC](r2) lwz r4,int_to_real_factor(r2)
lfd f2,0(r4) lfd f2,0(r4)
{$endif} {$endif}
fsub f3,f3,f1 fsub f3,f3,f1
@ -426,7 +426,10 @@ end;
{ {
$Log$ $Log$
Revision 1.32 2003-12-07 19:55:37 jonas Revision 1.33 2004-02-09 20:21:06 olle
* fixed global variable access in asm
Revision 1.32 2003/12/07 19:55:37 jonas
- reverted previous patch, solved with the new assembler reader - reverted previous patch, solved with the new assembler reader
(which didn't understand the new syntax) (which didn't understand the new syntax)