paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 20:30:26 +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;
begin
s:='';
ntflags:=flags;
if flags<>0 then
begin
ntflags:=flags;
first:=true;
for i:=1to flagopts do
if (flags and flagopt[i].mask)<>0 then
@ -1033,6 +1033,9 @@ var
begin
with ppufile do
begin
fileindex:=0;
line:=0;
column:=0;
{
info byte layout in bits:
0-1 - amount of bytes for fileindex
@ -2393,9 +2396,9 @@ begin
write(', ');
write(managementoperatoropt[i].str);
end;
if not first then
writeln;
end;
if not first then
writeln;
end;