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

* indention fixed

Browse Source 
git-svn-id: trunk@36775 -
This commit is contained in:
florian 2017-07-23 19:24:43 +00:00
parent 2d64b99ac8
commit 8c33fbbe64
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/utils/mkspreg.pp
View File

@ -189,7 +189,7 @@ begin
cpustr:=readstr;
end
else
cpustr:='';
cpustr:='';
{ Create register number }
if supregs[regcount][1]<>'$' then
begin
@ -197,18 +197,18 @@ begin
writeln('Line: "',s,'"');
halt(1);
end;
if i<length(s) then
begin
writeln('Extra chars at end of line, at line ',line);
writeln('Line: "',s,'"');
halt(1);
end;
if (cpustr<>'SPARC64') or sparc64 then
begin
if (cpustr<>'SPARC64') or sparc64 then
begin
numbers[regcount]:=regtypes[regcount]+copy(subregs[regcount],2,255)+'00'+copy(supregs[regcount],2,255);
inc(regcount);
end;
end;
if regcount>max_regcount then
begin
writeln('Error: Too much registers, please increase maxregcount in source');