paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-22 23:11:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use TRegNameTable instead of array[tregisterindex] of string[10]

Browse Source 
TRegNameTable is defined in compiler/rgbase.pas and is an array of
strings, limited to the maximum length of the used register names.

r22792 added a long register name but did not scale the string-size
enough, resulting in the compiler built breaking for arm.

git-svn-id: trunk@22817 -
This commit is contained in:
masta 2012-10-22 10:23:21 +00:00
parent 65a8b90356
commit e327b4581c
9 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/cpubase.pas
View File

@ -379,7 +379,7 @@ unit cpubase;
const
std_regname_table : array[tregisterindex] of string[10] = (
std_regname_table : TRegNameTable = (
{$i rarmstd.inc}
);

4
compiler/arm/itcpugas.pas
View File

@ -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}
);

2
compiler/avr/cpubase.pas
View File

@ -326,7 +326,7 @@ unit cpubase;
const
std_regname_table : array[tregisterindex] of string[10] = (
std_regname_table : TRegNameTable = (
{$i ravrstd.inc}
);

2
compiler/m68k/cpubase.pas
View File

@ -353,7 +353,7 @@ implementation
const
std_regname_table : array[tregisterindex] of string[10] = (
std_regname_table : TRegNameTable = (
{$i r68kstd.inc}
);

2
compiler/mips/cpubase.pas
View File

@ -295,7 +295,7 @@ unit cpubase;
const
std_regname_table : array[tregisterindex] of string[10] = (
std_regname_table : TRegNameTable = (
{$i rmipsstd.inc}
);

2
compiler/powerpc/cpubase.pas
View File

@ -422,7 +422,7 @@ implementation
rgbase,verbose;
const
std_regname_table : array[tregisterindex] of string[10] = (
std_regname_table : TRegNameTable = (
{$i rppcstd.inc}
);

2
compiler/powerpc64/cpubase.pas
View File

@ -424,7 +424,7 @@ uses
rgBase, verbose, itcpugas;
const
std_regname_table: array[tregisterindex] of string[10] = (
std_regname_table: TRegNameTable = (
{$I rppcstd.inc}
);

2
compiler/rgbase.pas
View File

@ -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;

4
compiler/x86/cpubase.pas
View File

@ -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}
);