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

* small bugfix macos

Browse Source
This commit is contained in:
olle 2003-08-08 22:02:05 +00:00
parent b1a903fd4d
commit 4eac90e5d4
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/powerpc/math.inc
View File

@ -4,7 +4,7 @@
Copyright (c) 2000 by Jonas Maebe and other members of the Copyright (c) 2000 by Jonas Maebe and other members of the
Free Pascal development team Free Pascal development team
Implementation of mathamatical Routines (only for real) Implementation of mathematical Routines (only for real)
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -208,7 +208,7 @@ LTruncPositive:
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 r3,longint_to_real_helper[TC](r2) lwz r4,longint_to_real_helper[TC](r2)
lfd f0,0(r4) lfd f0,0(r4)
{$endif} {$endif}
lfd f3,temp lfd f3,temp
@ -424,7 +424,10 @@ end;
{ {
$Log$ $Log$
Revision 1.26 2003-06-14 12:41:08 jonas Revision 1.27 2003-08-08 22:02:05 olle
* small bugfix macos
Revision 1.26 2003/06/14 12:41:08 jonas
* fixed compilation problems (removed unnecessary modified registers * fixed compilation problems (removed unnecessary modified registers
lists from procedures) lists from procedures)