git-svn-id: branches/wasm@48071 -
@@ -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;