Ver código fonte

* Fixed warnings and notes.

git-svn-id: trunk@9508 -
yury 17 anos atrás
pai
commit
5e3462b6fc
2 arquivos alterados com 3 adições e 2 exclusões
  1. 2 1
      rtl/inc/genmath.inc
  2. 1 1
      rtl/inc/variant.inc

+ 2 - 1
rtl/inc/genmath.inc

@@ -74,6 +74,7 @@ const
       DP2 =   3.77489470793079817668E-8;
       DP3 =   2.69515142907905952645E-15;
 
+{$if not defined(FPC_SYSTEM_HAS_SIN) or not defined(FPC_SYSTEM_HAS_COS)}
 const sincof : TabCoef = (
                 1.58962301576546568060E-10,
                -2.50507477628578072866E-8,
@@ -88,7 +89,7 @@ const sincof : TabCoef = (
                 2.48015872888517045348E-5,
                -1.38888888888730564116E-3,
                 4.16666666666665929218E-2, 0);
-
+{$endif}
 
 {*
 -------------------------------------------------------------------------------

+ 1 - 1
rtl/inc/variant.inc

@@ -783,7 +783,7 @@ operator :=(const source : olevariant) dest : extended;{$ifdef SYSTEMINLINE}inli
 {$ifdef SUPPORT_COMP}
 operator :=(const source : olevariant) dest : comp;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
-    dest:=variantmanager.vartoreal(variant(tvardata(source)));
+    dest:=comp(variantmanager.vartoreal(variant(tvardata(source))));
   end;
 {$endif SUPPORT_COMP}