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

* fixed conversion from signed value to floats if the compiler is

Browse Source 
compiled with a 1.0.x compiler
This commit is contained in:
Jonas Maebe 2003-08-09 15:28:29 +00:00
parent b419084dfd
commit 2a3c6e0de5
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/powerpc/nppccnv.pas
View File

@ -132,9 +132,7 @@ implementation
signed, valuereg_is_scratch: boolean;
begin
{$ifdef VER1_0}
{ the "and" is because 1.0.x will sign-extend the $80000000 to }
{ $ffffffff80000000 when converting it to int64 (JM) }
dummy1 := int64($80000000) and (int64($43300000) shl 32);
dummy1 := (int64(1) shl 31) or (int64($43300000) shl 32);
dummy2 := int64($43300000) shl 32;
{$endif VER1_0}
@ -457,7 +455,11 @@ begin
end.
{
$Log$
Revision 1.40 2003-06-14 22:32:43 jonas
Revision 1.41 2003-08-09 15:28:29 jonas
* fixed conversion from signed value to floats if the compiler is
compiled with a 1.0.x compiler
Revision 1.40 2003/06/14 22:32:43 jonas
* ppc compiles with -dnewra, haven't tried to compile anything with it
yet though