Browse Source

* synchronized with trunk

git-svn-id: branches/wasm@48071 -
nickysn 4 years ago
parent
commit
d8aaa29cbc
3 changed files with 9 additions and 2 deletions
  1. 7 1
      compiler/x86/rgx86.pas
  2. 1 1
      rtl/arm/mathu.inc
  3. 1 0
      utils/fpdoc/dwriter.pp

+ 7 - 1
compiler/x86/rgx86.pas

@@ -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;

+ 1 - 1
rtl/arm/mathu.inc

@@ -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 - 0
utils/fpdoc/dwriter.pp

@@ -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;