10

我需要将 2 条数据从 Ada 程序传递给一些 C++ 代码进行处理。

  • 数据 - 双倍。
  • 时间 - 无符号 64 位。

我能够使用 Long_Float（C++ 中的双精度）和 Integer（C++ 中的 int，但显然不是 64 位）在 Ada 中创建一个与我的 C++ 方法一起使用的过程。我使用了以下代码（代码不在我身上，因此语法可能略有偏差）：

procedure send_data (this : in hidden_ptr; data : in Long_Float; time : in Integer);
pragma import (CPP, send_data, "MyClass::sendData");

现在它正在工作，我正在尝试将时间扩展到完整的 64 位，并且理想情况下希望在 C++ 端有一个 unsigned long long 。我在 Ada 中没有看到任何匹配的类型，所以我创建了自己的类型：

type U64 is mod 2 ** 64;

当将该类型与我的 send_data 方法一起使用时，我收到一条错误消息，指出无法将该类型映射到 C++ 类型（类似于这些行，我再次没有代码或确切的错误短语）。

有没有办法将 Ada 中的用户定义类型传递给 C++？也许在 Ada 中有另一种类型可以用作无符号 64 位值？如果这样更容易，有没有办法将我的 U64 类型的地址作为参数传递给 C++ 方法？我正在使用green hills adamulti compiler v3.5（对ada来说非常新，不确定该信息是否有帮助）。例子将不胜感激！

4

2 回答 2

1

作为@KeithThompson 的评论/答案的附录......

Ada 官方支持的 C 接口类型在Interfaces.C中，里面没有超长的 int 或 unsigned （在 2005 版本中。2012 版本正式了吗？）。

你做了正确的事情来解决它。如果您的编译器不支持这一点，则必须采取更严厉的措施。

首先要尝试的是通过引用传递 64 位 int。不过，这将需要在 C 端进行更改。

我知道 C/C++ TIME 结构往往是 64 位值，定义为联合结构。所以你可以做的是定义一个 Ada 记录来模仿其中一个 C 结构，确保它以 C 的方式布局（例如：使用记录表示和大小子句），然后使该对象成为你导入的例程所使用的它的参数。

之后，您将不得不使用讨厌的参数技巧。例如，您可以尝试将参数的 Ada 导入一侧更改为 64 位浮点数，将实际参数 unchecked_converting 转换为 64 位浮点数，然后尝试以这种方式传递它。问题在于，许多 CPU 的传递在与整数不同的寄存器中浮动。所以这可能行不通，如果它确实是不可移植的。

如果您弄清楚编译器的 CPP 调用约定是如何工作的，那么可能还有其他方法可以伪造它。例如，如果它使用两个相邻的 32 位寄存器来传递 64 位整数，您可以将您的 Ada 64 位整数拆分为两个，并在 Ada 端将其传递给两个参数。如果它通过引用传递 64 位值，您可以告诉 Ada 方您正在传递指向 U64 的指针。同样，这些解决方案不会是可移植的，但它们会让你继续前进。

于 2012-09-20T13:57:34.010 回答
0 
Put_Line("First = " & Interfaces.C.long'Image(Interfaces.C.long'First));
Put_Line("Last = " & Interfaces.C.long'Image(Interfaces.C.long'Last));

结果：

First = -9223372036854775808
Last =  9223372036854775807
于 2021-12-01T15:01:10.687 回答