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

* synchronized with trunk

Browse Source 
git-svn-id: branches/wasm@48071 -
This commit is contained in:
nickysn 2021-01-05 03:25:43 +00:00
commit d8aaa29cbc
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/rgx86.pas
View File

@ -143,7 +143,13 @@ implementation
A_VANDPS, A_VANDPS,
A_VUNPCKLPS, A_VUNPCKLPS,
A_VUNPCKHPS, A_VUNPCKHPS,
A_VSHUFPD: A_VSHUFPD,
A_VREDUCEPD,
A_VREDUCEPS,
A_VREDUCESD,
A_VREDUCESS,
A_VROUNDSS,
A_VROUNDSD:
result:=true; result:=true;
else else
result:=false; result:=false;

2
rtl/arm/mathu.inc
View File

@ -63,7 +63,7 @@ var
c: dword; c: dword;
begin begin
softfloat_rounding_mode:=RoundMode; softfloat_rounding_mode:=RoundMode;
Reslut:=GetRoundMode; Result:=GetRoundMode;
c:=Ord(RoundMode) shl 16; c:=Ord(RoundMode) shl 16;
c:=_controlfp(c, _MCW_RC); c:=_controlfp(c, _MCW_RC);
end; end;

1
utils/fpdoc/dwriter.pp
View File

@ -714,6 +714,7 @@ begin
Engine.AddLink(FPathName,UTF8Encode(ResolveLinkIDInUnit(FLink,FModuleName))); Engine.AddLink(FPathName,UTF8Encode(ResolveLinkIDInUnit(FLink,FModuleName)));
finally finally
L.Free; L.Free;
ML.Free;
end; end;
end; end;