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

* clean up

Browse Source 
git-svn-id: trunk@45735 -
This commit is contained in:
florian 2020-07-06 19:46:19 +00:00
parent ec3fe2f990
commit 3655c46982
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/utils/mkarmins.pp
View File

@ -81,7 +81,7 @@ function formatop(s:string):string;
var
i : longint;
begin
for i:=1to replaces do
for i:=1 to replaces do
replace(s,replacetab[i,1],replacetab[i,2]);
formatop:=s;
end;
@ -199,10 +199,6 @@ begin
assign(nopfile,'armnop.inc');
openinc(attfile,'armatt.inc');
openinc(attsuffile,'armatts.inc');
{
openinc(intfile,'i386int.inc');
openinc(propfile,'i386prop.inc');
}
rewrite(nopfile);
writeln(nopfile,'{ don''t edit, this file is generated from armins.dat }');
reset(infile);
@ -275,7 +271,6 @@ begin
writeln(opfile,',');
writeln(attfile,',');
writeln(attsuffile,',');
{ writeln(propfile,','); }
end;
write(opfile,opcode);
write(attfile,'''',attopcode,'''');
@ -401,6 +396,5 @@ begin
closeinc(opfile);
writeln(nopfile,insns,';');
close(nopfile);
{ closeinc(propfile); }
writeln(insns,' nodes processed (maxinfolen=',maxinfolen,')');
end.