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

* hopefully final fix for second_int_to_real()

Browse Source
This commit is contained in:
Jonas Maebe 2002-07-21 16:57:22 +00:00
parent 398195464a
commit 3eb6dc156e
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/powerpc/nppccnv.pas
View File

@ -109,9 +109,14 @@ implementation
type type
tdummyarray = packed array[0..7] of byte; tdummyarray = packed array[0..7] of byte;
{$ifdef VER1_0}
var
dummy1, dummy2: int64;
{$else VER1_0}
const const
dummyarray1 : tdummyarray = ($43,$30,$00,$00,$80,$00,$00,$00); dummy1: int64 = $4330000080000000;
dummyarray2 : tdummyarray = ($43,$30,$00,$00,$00,$00,$00,$00); dummy2: int64 = $4330000000000000;
{$endif VER1_0}
var var
tempconst: trealconstnode; tempconst: trealconstnode;
@ -119,6 +124,12 @@ implementation
valuereg, tempreg, leftreg, tmpfpureg: tregister; valuereg, tempreg, leftreg, tmpfpureg: tregister;
signed, valuereg_is_scratch: boolean; signed, valuereg_is_scratch: boolean;
begin 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);
dymmy2 := int64($43300000) shl 32;
{$endif VER1_0}
valuereg_is_scratch := false; valuereg_is_scratch := false;
location_reset(location,LOC_FPUREGISTER,def_cgsize(resulttype.def)); location_reset(location,LOC_FPUREGISTER,def_cgsize(resulttype.def));
@ -146,15 +157,11 @@ implementation
{ we need a certain constant for the conversion, so create it here } { we need a certain constant for the conversion, so create it here }
if signed then if signed then
tempconst := tempconst :=
{ the array of byte is necessary because 1. the 1.0.x compiler crealconstnode.create(double(dummy1),
doesn't know 64 constants, 2. it won't work with big endian
and little endian machines at the same time (FK)
}
crealconstnode.create(double(dummyarray1),
pbestrealtype^) pbestrealtype^)
else else
tempconst := tempconst :=
crealconstnode.create(double(dummyarray2), crealconstnode.create(double(dummy2),
pbestrealtype^); pbestrealtype^);
resulttypepass(tempconst); resulttypepass(tempconst);
@ -377,7 +384,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.14 2002-07-20 11:58:05 florian Revision 1.15 2002-07-21 16:57:22 jonas
* hopefully final fix for second_int_to_real()
Revision 1.14 2002/07/20 11:58:05 florian
* types.pas renamed to defbase.pas because D6 contains a types * types.pas renamed to defbase.pas because D6 contains a types
unit so this would conflicts if D6 programms are compiled unit so this would conflicts if D6 programms are compiled
+ Willamette/SSE2 instructions to assembler added + Willamette/SSE2 instructions to assembler added