paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 13:40:31 +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 implementation
uses uses
typinfo,
cutils, cutils,
globals, globals,
systems, systems,
@ -4972,6 +4971,8 @@ implementation
ExistsCode337 : boolean; ExistsCode337 : boolean;
ExistsSSEAVXReg : boolean; ExistsSSEAVXReg : boolean;
hs1,hs2 : String;
function bitcnt(aValue: int64): integer; function bitcnt(aValue: int64): integer;
var var
i: integer; i: integer;
@ -5529,10 +5530,10 @@ implementation
begin begin
// combination (attsuffix <> "AttSufNONE") and (MemRefSize is not in MemRefMultiples) is not supported =>> check opcode-definition in x86ins.dat'); // combination (attsuffix <> "AttSufNONE") and (MemRefSize is not in MemRefMultiples) is not supported =>> check opcode-definition in x86ins.dat');
//InternalError(20210102); //InternalError(20210102);
Str(gas_needsuffix[AsmOp],hs1);
Str(InsTabMemRefSizeInfoCache^[AsmOp].MemRefSize,hs2);
Message3(asmr_e_not_supported_combination_attsuffix_memrefsize_type, Message3(asmr_e_not_supported_combination_attsuffix_memrefsize_type,
std_op2str[AsmOp], std_op2str[AsmOp],hs1,hs2);
GetEnumName(typeinfo(TAttSuffix), ord(gas_needsuffix[AsmOp])),
GetEnumName(typeinfo(TMemRefSizeInfo), ord(InsTabMemRefSizeInfoCache^[AsmOp].MemRefSize)));
end; end;
end; end;
end; end;