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

* fixed to compile with 1.1

Browse Source
This commit is contained in:
florian 2002-07-12 22:02:22 +00:00
parent fa0d3d79e0
commit f0e2409c9f
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/powerpc/nppccnv.pas
View File

@ -107,9 +107,12 @@ implementation
procedure tppctypeconvnode.second_int_to_real;
type
dummyrec = record
i: int64;
end;
tdummyarray = packed array[0..7] of byte;
const
dummyarray1 : tdummyarray = ($00,$00,$00,$80,$00,$00,$30,$43);
dummyarray2 : tdummyarray = ($00,$00,$00,$00,$00,$00,$30,$43);
var
tempconst: trealconstnode;
ref: treference;
@ -143,15 +146,17 @@ implementation
{ we need a certain constant for the conversion, so create it here }
if signed then
tempconst :=
{ we need this strange typecast because we want the }
{ double represented by $4330000080000000, not the }
{ double converted from the integer with that value }
crealconstnode.create(double(dummyrec($4330000080000000)),
{ the array of byte is necessary because 1. the 1.0.x compiler
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^)
else
tempconst :=
crealconstnode.create(double(dummyrec($4330000000000000)),
crealconstnode.create(double(dummyarray2),
pbestrealtype^);
resulttypepass(tempconst);
firstpass(tempconst);
secondpass(tempconst);
@ -372,7 +377,10 @@ begin
end.
{
$Log$
Revision 1.11 2002-07-11 14:41:34 florian
Revision 1.12 2002-07-12 22:02:22 florian
* fixed to compile with 1.1
Revision 1.11 2002/07/11 14:41:34 florian
* start of the new generic parameter handling
Revision 1.10 2002/07/11 07:42:31 jonas