Explorar o código

* avoid generation of avx code before the check if avx is supported

git-svn-id: trunk@27582 -
florian %!s(int64=11) %!d(string=hai) anos
pai
achega
0a312a783e
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      tests/test/tfma1.pp

+ 2 - 0
tests/test/tfma1.pp

@@ -13,6 +13,7 @@ procedure testsingle;
     l1:=2;
     l2:=3;
     l3:=4;
+    s0:=0;
     l0:=fma(l1,l2,l3);
     writeln(l0);
     if l0<>10.0 then
@@ -56,6 +57,7 @@ procedure testdouble;
     l1:=2;
     l2:=3;
     l3:=4;
+    d0:=0;
     l0:=fma(l1,l2,l3);
     writeln(l0);
     if l0<>10.0 then