paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use invokespecial for "strict private" (= Java "private") rather than for

Browse Source 
plain "private" (~ Java "package") methods

git-svn-id: branches/jvmbackend@18750 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:32:37 +00:00
parent 7f22a2f223
commit da5bd3b0bd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/jvm/hlcgcpu.pas
View File

@ -2063,7 +2063,7 @@ implementation
begin begin
if (po_classmethod in pd.procoptions) then if (po_classmethod in pd.procoptions) then
opc:=a_invokestatic opc:=a_invokestatic
else if (pd.visibility=vis_private) 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
@ -2081,7 +2081,7 @@ implementation
begin begin
if (po_staticmethod in pd.procoptions) then if (po_staticmethod in pd.procoptions) then
opc:=a_invokestatic opc:=a_invokestatic
else if (pd.visibility=vis_private) 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