Ada远程类型错误“非法重载继承自接口的子程序”
创始人
2024-07-25 22:31:39
0

在Ada中,当一个子程序从一个接口继承并重载时出现“非法重载继承自接口的子程序”错误,通常是因为在子程序的参数列表中没有正确地匹配接口中的定义。

以下是一个解决方法的示例:

with Ada.Text_IO;

procedure Main is
   package My_Interface is
      type My_Type is private;
      procedure My_Proc (Item : in My_Type);
      procedure My_Proc (Item : in out My_Type);
   private
      type My_Type is new Integer;
   end My_Interface;

   package body My_Interface is
      procedure My_Proc (Item : in My_Type) is
      begin
         Ada.Text_IO.Put_Line("In My_Proc (in)");
      end My_Proc;
      
      procedure My_Proc (Item : in out My_Type) is
      begin
         Ada.Text_IO.Put_Line("In My_Proc (in out)");
      end My_Proc;
   end My_Interface;

   type My_Type_Impl is new My_Interface.My_Type;
   
   procedure My_Proc (Item : in My_Type_Impl) is
   begin
      Ada.Text_IO.Put_Line("In My_Proc (in)");
   end My_Proc;
   
   procedure My_Proc (Item : in out My_Type_Impl) is
   begin
      Ada.Text_IO.Put_Line("In My_Proc (in out)");
   end My_Proc;
   
   Item : My_Type_Impl;
begin
   My_Proc(Item); -- 调用重载的子程序
end Main;

在这个示例中,我们定义了一个接口My_Interface,其中包含了一个私有类型My_Type和两个重载的子程序My_Proc。然后,我们定义了一个派生类型My_Type_Impl并实现了两个重载的子程序My_Proc。在Main过程中,我们创建了一个My_Type_Impl类型的对象Item,并调用了重载的子程序My_Proc(Item)

通过在派生类型中重新定义重载的子程序,并确保参数列表与接口中的定义匹配,我们可以解决“非法重载继承自接口的子程序”错误。

相关内容

热门资讯

Android Studio ... 要解决Android Studio 4无法检测到Java代码,无法打开SDK管理器和设置的问题,可以...
安装tensorflow mo... 要安装tensorflow models object-detection软件包和pandas的每个...
安装了Laravelbackp... 检查是否创建了以下自定义文件并进行正确的配置config/backpack/base.phpconf...
安装了centos后会占用多少... 安装了CentOS后会占用多少内存取决于多个因素,例如安装的软件包、系统配置和运行的服务等。通常情况...
按照Laravel方式通过Pr... 在Laravel中,我们可以通过定义关系和使用查询构建器来选择模型。首先,我们需要定义Profile...
按照分类ID显示Django子... 在Django中,可以使用filter函数根据分类ID来筛选子类别。以下是一个示例代码:首先,假设你...
Android Studio ... 要给出包含代码示例的解决方法,我们可以使用Markdown语法来展示代码。下面是一个示例解决方案,其...
Android Retrofi... 问题描述:在使用Android Retrofit进行GET调用时,获取的响应为空,即使服务器返回了正...
Alexa技能在返回响应后出现... 在开发Alexa技能时,如果在返回响应后出现问题,可以按照以下步骤进行排查和解决。检查代码中的错误处...
Airflow Dag文件夹 ... 要忽略Airflow中的笔记本检查点,可以在DAG文件夹中使用以下代码示例:from airflow...