mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-24 03:19:11 +02:00
* synchronized with trunk
git-svn-id: branches/wasm@48071 -
This commit is contained in:
commit
d8aaa29cbc
@ -143,7 +143,13 @@ implementation
|
||||
A_VANDPS,
|
||||
A_VUNPCKLPS,
|
||||
A_VUNPCKHPS,
|
||||
A_VSHUFPD:
|
||||
A_VSHUFPD,
|
||||
A_VREDUCEPD,
|
||||
A_VREDUCEPS,
|
||||
A_VREDUCESD,
|
||||
A_VREDUCESS,
|
||||
A_VROUNDSS,
|
||||
A_VROUNDSD:
|
||||
result:=true;
|
||||
else
|
||||
result:=false;
|
||||
|
@ -63,7 +63,7 @@ var
|
||||
c: dword;
|
||||
begin
|
||||
softfloat_rounding_mode:=RoundMode;
|
||||
Reslut:=GetRoundMode;
|
||||
Result:=GetRoundMode;
|
||||
c:=Ord(RoundMode) shl 16;
|
||||
c:=_controlfp(c, _MCW_RC);
|
||||
end;
|
||||
|
@ -714,6 +714,7 @@ begin
|
||||
Engine.AddLink(FPathName,UTF8Encode(ResolveLinkIDInUnit(FLink,FModuleName)));
|
||||
finally
|
||||
L.Free;
|
||||
ML.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user