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

* Fix alignment problem for sparc arch.

Browse Source 
git-svn-id: trunk@14833 -
This commit is contained in:
pierre 2010-01-30 22:19:14 +00:00
parent 89e4e0fd25
commit 23e171d396
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/ctypes.pp
View File

@ -292,8 +292,19 @@ operator := (const v:double) r:clongdouble;
begin
Pword(@r[r128_exponent_ofs])^:=qword(v) shr 52;
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
{$ifdef ENDIAN_LITTLE}
Pqword(@r[r128_mantissa_ofs])^:=qword(v) shl 12;
Pcardinal(@r[r128_mantissa_ofs+8])^:=0;
{$else not ENDIAN_LITTLE}
unaligned(Pqword(@r[r128_mantissa_ofs])^):=qword(v) shl 12;
Pword(@r[r128_mantissa_ofs+8])^:=0;
Pword(@r[r128_mantissa_ofs+10])^:=0;
{$endif not ENDIAN_LITTLE}
{$else not FPC_REQUIRES_PROPER_ALIGNMENT}
Pqword(@r[r128_mantissa_ofs])^:=qword(v) shl 12;
Pcardinal(@r[r128_mantissa_ofs+8])^:=0;
{$endif not FPC_REQUIRES_PROPER_ALIGNMENT}
Pword(@r[r128_mantissa_ofs+12])^:=0;
end;