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

* fixed -Sew warnings in agwat.pas

Browse Source 
git-svn-id: branches/wasm@47991 -
This commit is contained in:
nickysn 2021-01-02 22:51:13 +00:00
parent 5c4e4228f6
commit e7cd823692
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/wasm32/agwat.pas
View File

@ -865,6 +865,8 @@ implementation
case hp.typ of
ait_importexport:
inc(cnt);
else
;
end;
hp := tai_impexp(hp.Next);
end;
@ -884,6 +886,8 @@ implementation
writer.AsmWrite(#9#9);
writer.AsmWriteLn(GetWasmName(x.intname));
end;
else
;
end;
hp := tai_impexp(hp.Next);
end;
@ -901,12 +905,16 @@ implementation
writer.AsmWrite('" (');
case x.symstype of
ie_Func: writer.AsmWrite('func');
else
;
end;
writer.AsmWrite(' ');
writer.AsmWrite(GetWasmName(x.intname));
writer.AsmWrite('))');
writer.AsmLn;
end;
else
;
end;
hp := tai_impexp(hp.Next);
end;
@ -1054,6 +1062,8 @@ implementation
WriteConstString(tai_label(hp), tai_string(dt));
hp:=dt;
end;
else
;
end;
end;
end;