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

* fixed wasm warnings, due to level 2 comments

Browse Source 
git-svn-id: branches/wasm@46206 -
This commit is contained in:
nickysn 2020-08-03 19:25:59 +00:00
parent 936df34f5e
commit 83e8a799c8
2 changed files with 31 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
compiler/wasm/hlcgcpu.pas
View File

@ -2512,27 +2512,26 @@ implementation
Internalerror(2019083004); // no support for symbol table calls Internalerror(2019083004); // no support for symbol table calls
opc:=a_call_indirect; // todo: need a reference to a (funccall) table opc:=a_call_indirect; // todo: need a reference to a (funccall) table
{case tobjectdef(pd.owner.defowner).objecttype of //case tobjectdef(pd.owner.defowner).objecttype of
//
odt_javaclass: // odt_javaclass:
begin // begin
if (po_classmethod in pd.procoptions) or // if (po_classmethod in pd.procoptions) or
(pd.proctypeoption=potype_operator) then // (pd.proctypeoption=potype_operator) then
opc:=a_invokestatic // opc:=a_invokestatic
else if (pd.visibility=vis_strictprivate) or // else if (pd.visibility=vis_strictprivate) or
(pd.proctypeoption=potype_constructor) or // (pd.proctypeoption=potype_constructor) or
inheritedcall then // inheritedcall then
opc:=a_invokespecial // opc:=a_invokespecial
else // else
opc:=a_invokevirtual; // opc:=a_invokevirtual;
end; // end;
odt_interfacejava: // odt_interfacejava:
{ static interface methods are not allowed } // { static interface methods are not allowed }
opc:=a_invokeinterface; // opc:=a_invokeinterface;
else // else
internalerror(2010122601); // internalerror(2010122601);
end; //end;
}
end; end;
recordsymtable: recordsymtable:
begin begin

24
compiler/wasm/nwasmcon.pas
View File

@ -365,19 +365,17 @@ implementation
setconsttype:=sct_construct; setconsttype:=sct_construct;
result:=nil; result:=nil;
case setconsttype of case setconsttype of
(* //sct_constsymbol:
sct_constsymbol: // begin
begin // { normally a codegen pass routine, but we have to insert a typed
{ normally a codegen pass routine, but we have to insert a typed // const in case the set constant does not exist yet, and that
const in case the set constant does not exist yet, and that // should happen in pass_1 (especially since it involves creating
should happen in pass_1 (especially since it involves creating // new nodes, which may even have to be tacked on to this code in
new nodes, which may even have to be tacked on to this code in // case it's the unit initialization code) }
case it's the unit initialization code) } // handlevarsetconst;
handlevarsetconst; // { no smallsets }
{ no smallsets } // expectloc:=LOC_CREFERENCE;
expectloc:=LOC_CREFERENCE; // end;
end;
*)
sct_notransform: sct_notransform:
begin begin
result:=inherited pass_1; result:=inherited pass_1;