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

* fixed number sorting

Browse Source
This commit is contained in:
peter 2003-09-03 20:35:06 +00:00
parent 386027ffb5
commit 36bb27dab3
1 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/utils/mkarmreg.pp
View File

@ -23,9 +23,14 @@ var s : string;
line : longint; line : longint;
regcount:byte; regcount:byte;
regcount_bsstart:byte; regcount_bsstart:byte;
names,regtypes,numbers,stdnames,stabs: names,
array[0..max_regcount-1] of string[63]; regtypes,
regnumber_index,std_regname_index:array[0..max_regcount-1] of byte; supregs,
numbers,
stdnames,
stabs : array[0..max_regcount-1] of string[63];
regnumber_index,
std_regname_index : array[0..max_regcount-1] of byte;
{$ifndef FPC} {$ifndef FPC}
procedure readln(var t:text;var s:string); procedure readln(var t:text;var s:string);
@ -192,17 +197,19 @@ begin
readcomma; readcomma;
regtypes[regcount]:=readstr; regtypes[regcount]:=readstr;
readcomma; readcomma;
numbers[regcount]:=readstr; supregs[regcount]:=readstr;
if numbers[regcount][1]<>'$' then readcomma;
stdnames[regcount]:=readstr;
readcomma;
stabs[regcount]:=readstr;
{ Create register number }
if supregs[regcount][1]<>'$' then
begin begin
writeln('Missing $ before number, at line ',line); writeln('Missing $ before number, at line ',line);
writeln('Line: "',s,'"'); writeln('Line: "',s,'"');
halt(1); halt(1);
end; end;
readcomma; numbers[regcount]:=regtypes[regcount]+'0000'+copy(supregs[regcount],2,255);
stdnames[regcount]:=readstr;
readcomma;
stabs[regcount]:=readstr;
if i<length(s) then if i<length(s) then
begin begin
writeln('Extra chars at end of line, at line ',line); writeln('Extra chars at end of line, at line ',line);
@ -250,8 +257,8 @@ begin
end end
else else
first:=false; first:=false;
writeln(confile,'NR_',names[i],' = ',regtypes[i],'0000',copy(numbers[i],2,255),';'); writeln(confile,'NR_',names[i],' = ',numbers[i],';');
writeln(supfile,'RS_',names[i],' = ',numbers[i],';'); writeln(supfile,'RS_',names[i],' = ',supregs[i],';');
write(numfile,'NR_',names[i]); write(numfile,'NR_',names[i]);
write(stdfile,'''',stdnames[i],''''); write(stdfile,'''',stdnames[i],'''');
write(stabfile,stabs[i]); write(stabfile,stabs[i]);
@ -286,7 +293,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.1 2003-09-03 19:09:35 florian Revision 1.2 2003-09-03 20:35:06 peter
* fixed number sorting
Revision 1.1 2003/09/03 19:09:35 florian
* inital revision derived from sparc * inital revision derived from sparc
} }