support protection for external call of method

modules/gdscript/gdscript_analyzer.cpp

@@ -3571,17 +3571,6 @@ void GDScriptAnalyzer::reduce_call(GDScriptParser::CallNode *p_call, bool p_is_a
 			base_type = subscript->base->get_datatype();
 			is_self = subscript->base->type == GDScriptParser::Node::SELF;
 		}
-
-		const GDScriptParser::ClassNode *base_class = parser->find_class(base_id->name);
-		if (base_class) {
-			print_line(vformat(R"(Base class: %s)", base_class->fqcn));
-			GDScriptParser::FunctionNode *method = dynamic_cast<GDScriptParser::FunctionNode *>(base_class->get_member(p_call->function_name).get_source_node());
-			print_line(vformat(R"(Base method: %s)", method));
-			if (method) {
-				execute_access_protection(parser->current_class, method->identifier->name, method->accessible_class_name, method->access_restriction, p_call->type, p_call);
-			}
-		}
-
 	} else {
 		// Invalid call. Error already sent in parser.
 		// TODO: Could check if Callable here too.
@@ -3590,6 +3579,30 @@ void GDScriptAnalyzer::reduce_call(GDScriptParser::CallNode *p_call, bool p_is_a
 		return;
 	}
 
+
+	// Access protection for calling a method
+	// It's very tricky to do so in this method
+	GDScriptParser::ClassNode *base_class = base_type.class_type;
+	if (base_class && base_class->type) {
+		GDScriptParser::FunctionNode *method = nullptr;
+		if (base_class->has_member(p_call->function_name)) {
+			method = static_cast<GDScriptParser::FunctionNode *>(base_class->get_member(p_call->function_name).get_source_node());
+		} else {
+			for (GDScriptParser::IdentifierNode *E : base_class->extends) {
+				GDScriptParser::ClassNode *super_class = make_global_class_meta_type(E->name, E).class_type;
+				if (super_class->has_member(p_call->function_name)) {
+					resolve_class_member(super_class, p_call->function_name, p_call);
+					method = static_cast<GDScriptParser::FunctionNode *>(super_class->get_member(p_call->function_name).get_source_node());
+					break;
+				}
+			}
+		}
+		if (method) {
+			execute_access_protection(parser->current_class, method->identifier->name, method->accessible_class_name, method->access_restriction, p_call->type, p_call);
+		}
+	}
+
+
 	int default_arg_count = 0;
 	BitField<MethodFlags> method_flags;
 	GDScriptParser::DataType return_type;