diff options
| author | tg74 <tg74@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-12 16:19:53 +0000 |
|---|---|---|
| committer | tg74 <tg74@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-12 16:19:53 +0000 |
| commit | 010ad927221e42b37d45532539095680ac13d435 (patch) | |
| tree | 97b43572a765268124af316d6cb287189a6c3fb6 | |
| parent | 254725bd361a37fad9a3bd95132b8d5501ad77be (diff) | |
| download | fpc-010ad927221e42b37d45532539095680ac13d435.tar.gz | |
cleanup + add internal error if all asmr_e_not_supported_combination_attsuffix_memrefsize_type are reported
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/tg74@48148 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | avx512-0037785/compiler/x86/aasmcpu.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/avx512-0037785/compiler/x86/aasmcpu.pas b/avx512-0037785/compiler/x86/aasmcpu.pas index c1b37e3f32..699e009466 100644 --- a/avx512-0037785/compiler/x86/aasmcpu.pas +++ b/avx512-0037785/compiler/x86/aasmcpu.pas @@ -2307,7 +2307,7 @@ implementation function is_16_bit_ref(const ref:treference):boolean; var ir,br : Tregister; - isub,bsub : cgbase.tsubregister; + isub,bsub : tsubregister; begin if (ref.index<>NR_NO) and (getregtype(ref.index)=R_MMREGISTER) then exit(false); @@ -2467,15 +2467,15 @@ implementation // ax cx dx bx si di bp sp -- in x86reg.dat // ax cx dx bx sp bp si di -- needed order (0, 1, 2, 3, 6, 7, 5, 4); - maxsupreg: array[cgbase.tregistertype] of cgbase.tsuperregister= + maxsupreg: array[tregistertype] of tsuperregister= {$ifdef x86_64} (0, 16, 9, 8, 32, 32, 8, 0, 0, 0); {$else x86_64} (0, 8, 9, 8, 8, 32, 8, 0, 0, 0); {$endif x86_64} var - rs: cgbase.tsuperregister; - rt: cgbase.tregistertype; + rs: tsuperregister; + rt: tregistertype; begin rs:=getsupreg(r); rt:=getregtype(r); @@ -2532,7 +2532,7 @@ implementation base,index,scalefactor, o : longint; ir,br : Tregister; - isub,bsub : cgbase.tsubregister; + isub,bsub : tsubregister; begin result:=false; ir:=input.ref^.index; @@ -4617,7 +4617,7 @@ implementation end; - function taicpu.is_same_reg_move(regtype: cgbase.Tregistertype):boolean; + function taicpu.is_same_reg_move(regtype: Tregistertype):boolean; begin result:=(((opcode=A_MOV) or (opcode=A_XCHG)) and (regtype = R_INTREGISTER) and |