paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:39:25 +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('-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

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

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