new tests for avx512 instructions

git-svn-id: branches/tg74/avx512@39640 -

tests/utils/avx/avxtestgenerator.pp

@@ -45,14 +45,18 @@ begin
         writeln('-f  [fpc,nasm,fasm] outputformat');
         writeln('-p  [x8664] codegenerator for x86_64 platform');
         writeln('-o  destination path');
+        writeln('-z  avx512');
         writeln('');
       end
       else
       begin
+        //TAsmTestGenerator.CalcTestInstFile;
+        //exit;
+
         case OutputFormat of
-          'f': MakeTestFiles(tfFPC, x64, Path);
-          'F': MakeTestFiles(tfFasm, x64, Path);
-          'n': MakeTestFiles(tfNasm, x64, Path);
+          'f': MakeTestFiles(tfFPC, x64, AVX512, false, Path);
+          'F': MakeTestFiles(tfFasm, x64, AVX512, false, Path);
+          'n': MakeTestFiles(tfNasm, x64, AVX512, false, Path);
         end;
       end;
     finally

tests/utils/avx/options.pas

@@ -26,8 +26,11 @@ interface
 
 type
 
+  { TOptions }
+
   TOptions = class(TObject)
   private
+    FAVX512: boolean;
     FHelp: boolean;
     FX64: boolean;
     FOutputFormat: Char;
@@ -40,6 +43,7 @@ type
     property Help: boolean read FHelp write FHelp;
     property OutputFormat: Char read FOutputFormat write FOutputFormat;
     property X64: boolean read FX64 write FX64;
+    property AVX512: boolean read FAVX512 write FAVX512;
     property Path: string read FPath write FPath;
   end;
 
@@ -53,6 +57,7 @@ constructor TOptions.Create;
 begin
   FHelp          := false;
   FX64           := false;
+  FAVX512        := false;
   FOutputFormat  := '?';
   FPath          := '';
 end;
@@ -90,6 +95,7 @@ begin
                 Fx64 := true;
               end
               else IsInvalidParam := true;
+         'z': FAVX512 := true;
          'o': if sValue <> '' then
               begin
                 FPath :=  IncludeTrailingBackslash(sValue);