paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 20:49:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* also generate superregisters

Browse Source
This commit is contained in:
peter 2003-09-03 16:28:16 +00:00
parent 6a8d5eb25d
commit b66e477dd8
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/utils/mkspreg.pp
View File

@ -23,7 +23,7 @@ var s : string;
line : longint;
regcount:byte;
regcount_bsstart:byte;
names,numbers,stdnames,stabs:
names,regtypes,numbers,stdnames,stabs:
array[0..max_regcount-1] of string[63];
regnumber_index,std_regname_index:array[0..max_regcount-1] of byte;
@ -190,7 +190,15 @@ begin
i:=1;
names[regcount]:=readstr;
readcomma;
regtypes[regcount]:=readstr;
readcomma;
numbers[regcount]:=readstr;
if numbers[regcount][1]<>'$' then
begin
writeln('Missing $ before number, at line ',line);
writeln('Line: "',s,'"');
halt(1);
end;
readcomma;
stdnames[regcount]:=readstr;
readcomma;
@ -213,8 +221,8 @@ end;
procedure write_inc_files;
var
norfile,stdfile,
var
norfile,stdfile,supfile,
numfile,stabfile,confile,
rnifile,srifile:text;
first:boolean;
@ -222,6 +230,7 @@ var
begin
{ create inc files }
openinc(confile,'rspcon.inc');
openinc(supfile,'rspsup.inc');
openinc(numfile,'rspnum.inc');
openinc(stdfile,'rspstd.inc');
openinc(stabfile,'rspstab.inc');
@ -241,8 +250,9 @@ begin
end
else
first:=false;
writeln(confile,names[i],' = ',numbers[i],';');
write(numfile,numbers[i]);
writeln(confile,'NR_',names[i],' = ',regtypes[i],'0000',copy(numbers[i],2,255),';');
writeln(supfile,'RS_',names[i],' = ',numbers[i],';');
write(numfile,'NR_',names[i]);
write(stdfile,'''',stdnames[i],'''');
write(stabfile,stabs[i]);
write(rnifile,regnumber_index[i]);
@ -250,6 +260,7 @@ begin
end;
write(norfile,regcount);
close(confile);
close(supfile);
closeinc(numfile);
closeinc(stdfile);
closeinc(stabfile);
@ -275,7 +286,10 @@ begin
end.
{
$Log$
Revision 1.2 2003-09-03 15:55:02 peter
Revision 1.3 2003-09-03 16:28:16 peter
* also generate superregisters
Revision 1.2 2003/09/03 15:55:02 peter
* NEWRA branch merged
Revision 1.1.2.1 2003/08/31 21:08:16 peter