paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +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
opc:=a_call_indirect; // todo: need a reference to a (funccall) table
{case tobjectdef(pd.owner.defowner).objecttype of
odt_javaclass:
begin
if (po_classmethod in pd.procoptions) or
(pd.proctypeoption=potype_operator) then
opc:=a_invokestatic
else if (pd.visibility=vis_strictprivate) or
(pd.proctypeoption=potype_constructor) or
inheritedcall then
opc:=a_invokespecial
else
opc:=a_invokevirtual;
end;
odt_interfacejava:
{ static interface methods are not allowed }
opc:=a_invokeinterface;
else
internalerror(2010122601);
end;
}
//case tobjectdef(pd.owner.defowner).objecttype of
//
// odt_javaclass:
// begin
// if (po_classmethod in pd.procoptions) or
// (pd.proctypeoption=potype_operator) then
// opc:=a_invokestatic
// else if (pd.visibility=vis_strictprivate) or
// (pd.proctypeoption=potype_constructor) or
// inheritedcall then
// opc:=a_invokespecial
// else
// opc:=a_invokevirtual;
// end;
// odt_interfacejava:
// { static interface methods are not allowed }
// opc:=a_invokeinterface;
// else
// internalerror(2010122601);
//end;
end;
recordsymtable:
begin

24
compiler/wasm/nwasmcon.pas
View File

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