diff --git a/compiler/arm/cpubase.pas b/compiler/arm/cpubase.pas index 93ab6535f5..6355e3045d 100644 --- a/compiler/arm/cpubase.pas +++ b/compiler/arm/cpubase.pas @@ -379,7 +379,7 @@ unit cpubase; const - std_regname_table : array[tregisterindex] of string[10] = ( + std_regname_table : TRegNameTable = ( {$i rarmstd.inc} ); diff --git a/compiler/arm/itcpugas.pas b/compiler/arm/itcpugas.pas index d53cc2a30c..d3a9a171e9 100644 --- a/compiler/arm/itcpugas.pas +++ b/compiler/arm/itcpugas.pas @@ -43,10 +43,10 @@ interface implementation uses - cutils,verbose; + cutils,verbose,rgbase; const - gas_regname_table : array[tregisterindex] of string[10] = ( + gas_regname_table : TRegNameTable = ( {$i rarmstd.inc} ); diff --git a/compiler/avr/cpubase.pas b/compiler/avr/cpubase.pas index a2bf731653..7d53df4718 100644 --- a/compiler/avr/cpubase.pas +++ b/compiler/avr/cpubase.pas @@ -326,7 +326,7 @@ unit cpubase; const - std_regname_table : array[tregisterindex] of string[10] = ( + std_regname_table : TRegNameTable = ( {$i ravrstd.inc} ); diff --git a/compiler/m68k/cpubase.pas b/compiler/m68k/cpubase.pas index bea6428b13..64998469f9 100644 --- a/compiler/m68k/cpubase.pas +++ b/compiler/m68k/cpubase.pas @@ -353,7 +353,7 @@ implementation const - std_regname_table : array[tregisterindex] of string[10] = ( + std_regname_table : TRegNameTable = ( {$i r68kstd.inc} ); diff --git a/compiler/mips/cpubase.pas b/compiler/mips/cpubase.pas index 157155baf6..327e5ef76b 100644 --- a/compiler/mips/cpubase.pas +++ b/compiler/mips/cpubase.pas @@ -295,7 +295,7 @@ unit cpubase; const - std_regname_table : array[tregisterindex] of string[10] = ( + std_regname_table : TRegNameTable = ( {$i rmipsstd.inc} ); diff --git a/compiler/powerpc/cpubase.pas b/compiler/powerpc/cpubase.pas index a344aa8ff9..e99b91157a 100644 --- a/compiler/powerpc/cpubase.pas +++ b/compiler/powerpc/cpubase.pas @@ -422,7 +422,7 @@ implementation rgbase,verbose; const - std_regname_table : array[tregisterindex] of string[10] = ( + std_regname_table : TRegNameTable = ( {$i rppcstd.inc} ); diff --git a/compiler/powerpc64/cpubase.pas b/compiler/powerpc64/cpubase.pas index cdc606175a..c495451da5 100644 --- a/compiler/powerpc64/cpubase.pas +++ b/compiler/powerpc64/cpubase.pas @@ -424,7 +424,7 @@ uses rgBase, verbose, itcpugas; const - std_regname_table: array[tregisterindex] of string[10] = ( + std_regname_table: TRegNameTable = ( {$I rppcstd.inc} ); diff --git a/compiler/rgbase.pas b/compiler/rgbase.pas index 7fd384ecec..a1a8272c92 100644 --- a/compiler/rgbase.pas +++ b/compiler/rgbase.pas @@ -29,7 +29,7 @@ interface cpuBase,cgBase; type - TRegNameTable = array[tregisterindex] of string[10]; + TRegNameTable = array[tregisterindex] of string[11]; TRegisterIndexTable = array[tregisterindex] of tregisterindex; function findreg_by_number_table(r:Tregister;const regnumber_index:TRegisterIndexTable):tregisterindex; diff --git a/compiler/x86/cpubase.pas b/compiler/x86/cpubase.pas index c3c3459c6f..b1a670b11b 100644 --- a/compiler/x86/cpubase.pas +++ b/compiler/x86/cpubase.pas @@ -268,7 +268,7 @@ implementation const {$ifdef x86_64} - std_regname_table : array[tregisterindex] of string[10] = ( + std_regname_table : TRegNameTable = ( {$i r8664std.inc} ); @@ -279,7 +279,7 @@ implementation {$i r8664sri.inc} ); {$else x86_64} - std_regname_table : array[tregisterindex] of string[10] = ( + std_regname_table : TRegNameTable = ( {$i r386std.inc} );