paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support for 16 bit registers

Browse Source 
git-svn-id: trunk@40950 -
This commit is contained in:
florian 2019-01-20 18:50:10 +00:00
parent fc7ecf3206
commit 8c66e9a2eb
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,7 +28,7 @@ uses BaseList, Classes;
type type
TOpType = (otUnknown, otXMMReg, otXMMRM, otXMMRM16, otXMMRM8, otYMMReg, otYMMRM, otEAX, otRAX, otMem32, TOpType = (otUnknown, otXMMReg, otXMMRM, otXMMRM16, otXMMRM8, otYMMReg, otYMMRM, otEAX, otRAX, otMem32,
otMem8, otMem16, otMem64, otMem128, otMem256, otREG64, otREG32, otRM32, otRM64, otIMM8, otMem8, otMem16, otMem64, otMem128, otMem256, otREG64, otREG32, otREG16, otRM32, otRM64, otIMM8,
otXMEM32, otXMEM64, otYMEM32, otYMEM64); otXMEM32, otXMEM64, otYMEM32, otYMEM64);
TOperandListItem = class(TObject) TOperandListItem = class(TObject)
@ -63,6 +63,7 @@ type
TAsmTestGenerator = class(TObject) TAsmTestGenerator = class(TObject)
private private
FReg16Base : TStringList;
FReg32Base : TStringList; FReg32Base : TStringList;
FReg32Index : TStringList; FReg32Index : TStringList;
FReg64Base : TStringList; FReg64Base : TStringList;
@ -525,6 +526,18 @@ begin
end end
else MemRegBaseIndexCombi(sl_prefix, FReg32Base, FReg32Index, Item.Values); else MemRegBaseIndexCombi(sl_prefix, FReg32Base, FReg32Index, Item.Values);
end end
else if AnsiSameText(sl_Operand, 'REG16') then
begin
Item.OpNumber := il_Op;
Item.OpTyp := otREG16;
Item.OpActive := true;
if x64 then
begin
Item.Values.AddStrings(FReg16Base);
end
else Item.Values.AddStrings(FReg16Base);
end
else if AnsiSameText(sl_Operand, 'REG32') then else if AnsiSameText(sl_Operand, 'REG32') then
begin begin
Item.OpNumber := il_Op; Item.OpNumber := il_Op;
@ -828,6 +841,7 @@ begin
FX64 := true; FX64 := true;
FReg16Base := TStringList.Create;
FReg32Base := TStringList.Create; FReg32Base := TStringList.Create;
FReg32Index := TStringList.Create; FReg32Index := TStringList.Create;
FReg64Base := TStringList.Create; FReg64Base := TStringList.Create;
@ -839,6 +853,16 @@ begin
FReg64XMMIndex := TStringList.Create; FReg64XMMIndex := TStringList.Create;
FReg64YMMIndex := TStringList.Create; FReg64YMMIndex := TStringList.Create;
FReg16Base.Add('AX');
FReg16Base.Add('BX');
FReg16Base.Add('CX');
FReg16Base.Add('DX');
FReg16Base.Add('SP');
FReg16Base.Add('BP');
FReg16Base.Add('DI');
FReg16Base.Add('SI');
FReg32Base.Add('EAX'); FReg32Base.Add('EAX');
FReg32Base.Add('EBX'); FReg32Base.Add('EBX');