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

* rgHelper renamed to rgBase

Browse Source 
* using findreg_by_<name|number>_table directly to decrease heap overheading
This commit is contained in:
mazen 2003-10-31 08:40:51 +00:00
parent 7720de29d3
commit ba59054e84
3 changed files with 32 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/arm/cpubase.pas
View File

@ -496,7 +496,7 @@ unit cpubase;
implementation
uses
rgHelper,verbose;
rgBase,verbose;
const
@ -551,13 +551,13 @@ unit cpubase;
function findreg_by_number(r:Tregister):tregisterindex;
begin
rgHelper.findreg_by_number(r,regnumber_index);
rgBase.findreg_by_number_table(r,regnumber_index);
end;
function std_regnum_search(const s:string):Tregister;
begin
result:=regnumber_table[findreg_by_name(s,std_regname_table,std_regname_index)];
result:=regnumber_table[findreg_by_name_table(s,std_regname_table,std_regname_index)];
end;
@ -565,7 +565,7 @@ unit cpubase;
var
p : tregisterindex;
begin
p:=findreg_by_number(r);
p:=findreg_by_number_table(r,regnumber_index);
if p<>0 then
result:=std_regname_table[p]
else
@ -587,8 +587,12 @@ unit cpubase;
end.
{
$Log$
Revision 1.15 2003-10-30 15:02:04 mazen
* now uses standard routines in rgHelper unit to search registers by number and by name
Revision 1.16 2003-10-31 08:40:51 mazen
* rgHelper renamed to rgBase
* using findreg_by_<name|number>_table directly to decrease heap overheading
Revision 1.15 2003/10/30 15:02:04 mazen
* now uses standard routines in rgBase unit to search registers by number and by name
Revision 1.14 2003/09/05 23:57:01 florian
* arm is working again as before the new register naming scheme was implemented

18
compiler/powerpc/cpubase.pas
View File

@ -551,7 +551,7 @@ uses
implementation
uses
rgHelper,verbose;
rgBase,verbose;
const
std_regname_table : array[tregisterindex] of string[7] = (
@ -646,13 +646,13 @@ implementation
function findreg_by_number(r:Tregister):tregisterindex;
begin
rgHelper.findreg_by_number(r,regnumber_index);
rgBase.findreg_by_number_table(r,regnumber_index);
end;
function std_regnum_search(const s:string):Tregister;
begin
result:=regnumber_table[findreg_by_name(s,std_regname_table,std_regname_index)];
result:=regnumber_table[findreg_by_name_table(s,std_regname_table,std_regname_index)];
end;
@ -660,7 +660,7 @@ implementation
var
p : tregisterindex;
begin
p:=findreg_by_number(r);
p:=findreg_by_number_table(r,regnumber_index);
if p<>0 then
result:=std_regname_table[p]
else
@ -672,7 +672,7 @@ implementation
var
p : tregisterindex;
begin
p:=findreg_by_number(r);
p:=findreg_by_number_table(r,regnumber_index);
if p<>0 then
result:=gas_regname_table[p]
else
@ -682,8 +682,12 @@ implementation
end.
{
$Log$
Revision 1.74 2003-10-30 15:03:18 mazen
* now uses standard routines in rgHelper unit to search registers by number and by name
Revision 1.75 2003-10-31 08:42:28 mazen
* rgHelper renamed to rgBase
* using findreg_by_<name|number>_table directly to decrease heap overheading
Revision 1.74 2003/10/30 15:03:18 mazen
* now uses standard routines in rgBase unit to search registers by number and by name
Revision 1.73 2003/10/19 01:34:31 florian
* some ppc stuff fixed

18
compiler/sparc/cpubase.pas
View File

@ -478,7 +478,7 @@ type
implementation
uses
rgHelper,verbose;
rgBase,verbose;
const
std_regname_table : TRegNameTAble = (
@ -534,7 +534,7 @@ implementation
var
p : tregisterindex;
begin
p:=rgHelper.findreg_by_number(r,regnumber_index);
p:=findreg_by_number_table(r,regnumber_index);
if p<>0 then
result:=std_regname_table[p]
else
@ -544,13 +544,13 @@ implementation
function std_regnum_search(const s:string):Tregister;
begin
result:=regnumber_table[findreg_by_name(s,std_regname_table,std_regname_index)];
result:=regnumber_table[findreg_by_name_table(s,std_regname_table,std_regname_index)];
end;
function findreg_by_number(r:Tregister):tregisterindex;
begin
rgHelper.findreg_by_number(r,regnumber_index);
rgBase.findreg_by_number_table(r,regnumber_index);
end;
@ -558,7 +558,7 @@ implementation
var
p : tregisterindex;
begin
p:=rgHelper.findreg_by_number(r,regnumber_index);
p:=rgBase.findreg_by_number_table(r,regnumber_index);
if p<>0 then
result:=std_regname_table[p]
else
@ -568,8 +568,12 @@ implementation
end.
{
$Log$
Revision 1.54 2003-10-30 15:03:18 mazen
* now uses standard routines in rgHelper unit to search registers by number and by name
Revision 1.55 2003-10-31 08:47:13 mazen
* rgHelper renamed to rgBase
* using findreg_by_<name|number>_table directly to decrease heap overheading
Revision 1.54 2003/10/30 15:03:18 mazen
* now uses standard routines in rgBase unit to search registers by number and by name
Revision 1.53 2003/10/08 14:11:36 mazen
+ Alignement field added to TParaLocation (=4 as 32 bits archs)