From da5bd3b0bdf7514f15cca5c8d9db0a5c66d5ea1a Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sat, 20 Aug 2011 08:32:37 +0000 Subject: [PATCH] * use invokespecial for "strict private" (= Java "private") rather than for plain "private" (~ Java "package") methods git-svn-id: branches/jvmbackend@18750 - --- compiler/jvm/hlcgcpu.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/jvm/hlcgcpu.pas b/compiler/jvm/hlcgcpu.pas index a57c98488b..27d7480df7 100644 --- a/compiler/jvm/hlcgcpu.pas +++ b/compiler/jvm/hlcgcpu.pas @@ -2063,7 +2063,7 @@ implementation begin if (po_classmethod in pd.procoptions) then opc:=a_invokestatic - else if (pd.visibility=vis_private) or + else if (pd.visibility=vis_strictprivate) or (pd.proctypeoption=potype_constructor) or inheritedcall then opc:=a_invokespecial @@ -2081,7 +2081,7 @@ implementation begin if (po_staticmethod in pd.procoptions) then opc:=a_invokestatic - else if (pd.visibility=vis_private) or + else if (pd.visibility=vis_strictprivate) or (pd.proctypeoption=potype_constructor) or inheritedcall then opc:=a_invokespecial