paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 22:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

new tests for avx512 instructions

Browse Source 
git-svn-id: branches/tg74/avx512@39640 -
This commit is contained in:
tg74 2018-08-19 11:06:20 +00:00
parent 2b1da37d66
commit f14edb4d2e
4 changed files with 3493 additions and 941 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1374
tests/utils/avx/asmtestgenerator.pas
View File

File diff suppressed because it is too large Load Diff

3044
tests/utils/avx/avxopcodes.pas
View File

File diff suppressed because it is too large Load Diff

10
tests/utils/avx/avxtestgenerator.pp
View File

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

6
tests/utils/avx/options.pas
View File

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