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

* use str(...) instead of typinfo unit

Browse Source 
git-svn-id: branches/tg74/avx512-0037785@48085 -
This commit is contained in:
florian 2021-01-05 13:52:29 +00:00 committed by Michaël Van Canneyt
parent c84c4eb1a4
commit ce1f115b2d
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/aasmcpu.pas
View File

@ -685,7 +685,6 @@ interface
implementation
uses
typinfo,
cutils,
globals,
systems,
@ -4972,6 +4971,8 @@ implementation
ExistsCode337 : boolean;
ExistsSSEAVXReg : boolean;
hs1,hs2 : String;
function bitcnt(aValue: int64): integer;
var
i: integer;
@ -5529,10 +5530,10 @@ implementation
begin
// combination (attsuffix <> "AttSufNONE") and (MemRefSize is not in MemRefMultiples) is not supported =>> check opcode-definition in x86ins.dat');
//InternalError(20210102);
Str(gas_needsuffix[AsmOp],hs1);
Str(InsTabMemRefSizeInfoCache^[AsmOp].MemRefSize,hs2);
Message3(asmr_e_not_supported_combination_attsuffix_memrefsize_type,
std_op2str[AsmOp],
GetEnumName(typeinfo(TAttSuffix), ord(gas_needsuffix[AsmOp])),
GetEnumName(typeinfo(TMemRefSizeInfo), ord(InsTabMemRefSizeInfoCache^[AsmOp].MemRefSize)));
std_op2str[AsmOp],hs1,hs2);
end;
end;
end;