Ada中未定义的包

Question

当我尝试导入包时，GNAT一直告诉我我有一个未定义的错误，我真的很困惑。

这是源代码中出现错误的地方：

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

procedure WordCount is

package ASU renames Ada.Strings.Unbounded;
use ASU;
package StringStack is new ProtectedStack(100, ASU.Unbounded_String);

它一直告诉我ProtectedStack未定义。 由于提供了ProtectedStack，所以我不得不假设这个错误是由我的... 我刚开始和Ada一起工作。有谁能告诉我如何解决这个问题？

Answer 1

您可能需要添加with ProtectedStack;。