paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 21:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ppudump: Fixed warnings with -O3.

Browse Source 
git-svn-id: trunk@41394 -
This commit is contained in:
yury 2019-02-20 10:24:48 +00:00
parent 9a3ddf650c
commit fa4596a08f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/utils/ppuutils/ppudump.pp
View File

@ -596,9 +596,9 @@ var
s : string; s : string;
begin begin
s:=''; s:='';
ntflags:=flags;
if flags<>0 then if flags<>0 then
begin begin
ntflags:=flags;
first:=true; first:=true;
for i:=1to flagopts do for i:=1to flagopts do
if (flags and flagopt[i].mask)<>0 then if (flags and flagopt[i].mask)<>0 then
@ -1033,6 +1033,9 @@ var
begin begin
with ppufile do with ppufile do
begin begin
fileindex:=0;
line:=0;
column:=0;
{ {
info byte layout in bits: info byte layout in bits:
0-1 - amount of bytes for fileindex 0-1 - amount of bytes for fileindex
@ -2393,9 +2396,9 @@ begin
write(', '); write(', ');
write(managementoperatoropt[i].str); write(managementoperatoropt[i].str);
end; end;
if not first then
writeln;
end; end;
if not first then
writeln;
end; end;