paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 06:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed ldexp() on 16/8-bit CPUs. Among other things, this fixes sin() and cos()

Browse Source 
on the i8086.

git-svn-id: trunk@26237 -
This commit is contained in:
nickysn 2013-12-15 23:08:23 +00:00
parent a3dab9b686
commit 779b92459e
1 changed files with 2 additions and 2 deletions

4
rtl/inc/genmath.inc
View File

@ -361,13 +361,13 @@ type
begin
{Denormal: result = d*2^(e+54)/2^54}
inc(N,54);
float64(x).high := (float64(x).high and $800FFFFF) or (N shl 20);
float64(x).high := (float64(x).high and $800FFFFF) or (longint(N) shl 20);
ldexp := x/H2_54;
end;
end
else
begin
float64(x).high := (float64(x).high and $800FFFFF) or (N shl 20);
float64(x).high := (float64(x).high and $800FFFFF) or (longint(N) shl 20);
ldexp := x;
end;
end;