Ada.Real_Time.Clock为不同版本的GNATPro Ada编译器返回不同的值
我正在使用2台虚拟机（VMWare）；一个虚拟机有GNATPro Ada编译器7.3.2，Ada.Real_Time.Clock返回自该纪元开始以来的秒数。另一个VM具有GNATPro 19.0，Ada.Real_Time.Clock返回自VM启动以来的秒数 我们在两个虚拟机上都使用Ada 95 我已检查两个虚拟机上的时间设置是否相同 为了检查这是否是编译器的差异，我在GNATPro 19.0上编译了一个小测试程序，并在使用旧编译器的虚拟机上运行它。我得到的结果与使用较新版本的编译器在VM上得到的结果相同。然后，我用旧的编译器编译了测试程序，并用新的编译器在VM上运行，得到了与旧编译器在VM上相同的结果 我的问题是，有人知道我如何让Ada.Real_Time.Clock返回GNATPro 19.0从纪元开始的秒数吗 下面是测试程序Ada.Real_Time.Clock为不同版本的GNATPro Ada编译器返回不同的值,ada,Ada,我正在使用2台虚拟机（VMWare）；一个虚拟机有GNATPro Ada编译器7.3.2，Ada.Real_Time.Clock返回自该纪元开始以来的秒数。另一个VM具有GNATPro 19.0，Ada.Real_Time.Clock返回自VM启动以来的秒数 我们在两个虚拟机上都使用Ada 95 我已检查两个虚拟机上的时间设置是否相同 为了检查这是否是编译器的差异，我在GNATPro 19.0上编译了一个小测试程序，并在使用旧编译器的虚拟机上运行它。我得到的结果与使用较新版本的编译器在VM上得到
with Test_Io;
with Ada.Real_Time;
procedure Time_Test is
Current_Real_Time : Ada.Real_Time.Time;
Time_Span : Ada.Real_Time.Time_Span;
Seconds_Count : Ada.Real_Time.Seconds_Count;
begin
Current_Real_Time := Ada.Real_Time.Clock;
Ada.Real_Time.Split (
T => Current_Real_Time,
Sc => Seconds_Count,
Ts => Time_Span);
Test_Io.Put_Line("TRACE: Seconds_Count = " & Seconds_Count'Img);
end Time_Test;