paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 17:07:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* powerpc reg update

Browse Source
This commit is contained in:
peter 2003-09-03 19:37:07 +00:00
parent 601160a0e3
commit ef23ab2c78
1 changed files with 49 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
compiler/utils/mkppcreg.pp
View File

@ -27,10 +27,12 @@ var s : string;
regtypes,
numbers,
stdnames,
gasnames,
motnames,
stabs : array[0..max_regcount-1] of string[63];
regnumber_index,
std_regname_index,
gas_regname_index,
mot_regname_index : array[0..max_regcount-1] of byte;
{$ifndef FPC}
@ -175,6 +177,38 @@ begin
end;
procedure build_gas_regname_index;
var h,i,j,p,t:byte;
begin
{Build the registernumber2regindex index.
Step 1: Fill.}
for i:=0 to regcount-1 do
gas_regname_index[i]:=i;
{Step 2: Sort. We use a Shell-Metzner sort.}
p:=regcount_bsstart;
repeat
for h:=0 to regcount-p-1 do
begin
i:=h;
repeat
j:=i+p;
if gasnames[gas_regname_index[j]]>=gasnames[gas_regname_index[i]] then
break;
t:=gas_regname_index[i];
gas_regname_index[i]:=gas_regname_index[j];
gas_regname_index[j]:=t;
if i<p then
break;
dec(i,p);
until false;
end;
p:=p shr 1;
until p=0;
end;
procedure build_mot_regname_index;
var h,i,j,p,t:byte;
@ -234,6 +268,8 @@ begin
readcomma;
stdnames[regcount]:=readstr;
readcomma;
gasnames[regcount]:=readstr;
readcomma;
motnames[regcount]:=readstr;
readcomma;
stabs[regcount]:=readstr;
@ -257,8 +293,8 @@ procedure write_inc_files;
var
norfile,stdfile,motfile,supfile,
numfile,stabfile,confile,
rnifile,srifile,mrifile:text;
numfile,stabfile,confile,gasfile,
rnifile,srifile,mrifile,grifile : text;
first:boolean;
begin
@ -267,11 +303,13 @@ begin
openinc(supfile,'rppcsup.inc');
openinc(numfile,'rppcnum.inc');
openinc(stdfile,'rppcstd.inc');
openinc(gasfile,'rppcgas.inc');
openinc(motfile,'rppcmot.inc');
openinc(stabfile,'rppcstab.inc');
openinc(norfile,'rppcnor.inc');
openinc(rnifile,'rppcrni.inc');
openinc(srifile,'rppcsri.inc');
openinc(grifile,'rppcgri.inc');
openinc(mrifile,'rppcmri.inc');
first:=true;
for i:=0 to regcount-1 do
@ -280,10 +318,12 @@ begin
begin
writeln(numfile,',');
writeln(stdfile,',');
writeln(gasfile,',');
writeln(motfile,',');
writeln(stabfile,',');
writeln(rnifile,',');
writeln(srifile,',');
writeln(grifile,',');
writeln(mrifile,',');
end
else
@ -292,10 +332,12 @@ begin
writeln(supfile,'RS_',names[i],' = ',numbers[i],';');
write(numfile,'NR_',names[i]);
write(stdfile,'''',stdnames[i],'''');
write(gasfile,'''',gasnames[i],'''');
write(motfile,'''',motnames[i],'''');
write(stabfile,stabs[i]);
write(rnifile,regnumber_index[i]);
write(srifile,std_regname_index[i]);
write(grifile,gas_regname_index[i]);
write(mrifile,mot_regname_index[i]);
end;
write(norfile,regcount);
@ -303,11 +345,13 @@ begin
close(supfile);
closeinc(numfile);
closeinc(stdfile);
closeinc(gasfile);
closeinc(motfile);
closeinc(stabfile);
closeinc(norfile);
closeinc(rnifile);
closeinc(srifile);
closeinc(grifile);
closeinc(mrifile);
writeln('Done!');
writeln(regcount,' registers procesed');
@ -324,13 +368,14 @@ begin
regcount_bsstart:=regcount_bsstart*2;
build_regnum_index;
build_std_regname_index;
build_gas_regname_index;
build_mot_regname_index;
write_inc_files;
end.
{
$Log$
Revision 1.3 2003-09-03 19:35:24 peter
* powerpc compiles again
Revision 1.4 2003-09-03 19:37:07 peter
* powerpc reg update
Revision 1.2 2003/09/03 15:55:01 peter
* NEWRA branch merged