在Ada95中，使用Traceback函数可以输出异常的调用堆栈信息。如果Traceback函数没有输出任何信息，可能是以下几种原因：

1. 未启用异常处理机制：确保在编译Ada程序时启用了异常处理机制。可以通过在编译命令行中添加-gnateE选项来启用异常处理机制。例如：

gnatmake -gnateE my_program.adb

2. 异常被捕获并处理：Traceback函数只会在异常未被捕获时才输出调用堆栈信息。如果异常被捕获并在处理器中处理，Traceback函数可能不会被调用。确保在异常处理链中没有捕获该异常，或者在处理器中重新引发异常以便Traceback函数能够输出调用堆栈信息。

以下是一个示例代码，展示了如何使用Traceback函数并确保其输出调用堆栈信息：

with Ada.Exceptions;
with Ada.Text_IO;

procedure My_Program is
   procedure My_Subprogram is
   begin
      raise Constraint_Error;
   end My_Subprogram;

   procedure My_Handler is
      pragma Unreferenced (Exception);
   begin
      Ada.Text_IO.Put_Line ("Exception handled.");
   end My_Handler;

   procedure My_Other_Handler is
      pragma Unreferenced (Exception);
   begin
      raise;
   end My_Other_Handler;

begin
   Ada.Exceptions.Exception_Handling_Policy := Ada.Exceptions.Replace;
   Ada.Exceptions.Exception_Identification.Traceback := True;

   Ada.Exceptions.Exception_Handlers.Register_Handler
     (My_Handler'Access, Constraint_Error);

   Ada.Exceptions.Exception_Handlers.Register_Handler
     (My_Other_Handler'Access, others);

   My_Subprogram;
exception
   when others =>
      Ada.Exceptions.Exception_Information.Traceback;
end My_Program;

在上面的示例中，我们将Ada.Exceptions.Exception_Identification.Traceback设置为True，以启用Traceback函数的输出。我们还注册了两个异常处理器，一个用于处理Constraint_Error异常，另一个用于处理其他异常。在异常处理器中，我们可以选择输出自定义的错误信息，然后重新引发异常以便Traceback函数能够输出调用堆栈信息。

请注意，具体的解决方法可能因代码和环境而异。如果以上方法不起作用，可能需要进一步检查代码和编译选项是否正确设置。