0

我正在Delphi和合作Assembly，所以，我遇到了问题。我在汇编中使用了一条指令（RDTSC）来获取 64 位读取时间戳，该指令将数字分别放在两个寄存器EAX和EDX. 但没关系，我用Delphi Integer变量得到它。但是现在，我需要将这些变量加入 1 个 64 位中。就像是：

Var1 = 46523
var2 = 1236

所以我需要把它放到一个变量中，比如：

Var3 = 465231236

它就像一个 StrCat，但我不知道该怎么做。有人可以帮助我吗？

4

2 回答 2

10

您当然不想连接两个值的十进制字符串表示。这不是您期望将返回的两个 32 位值组合RTDSC成 64 位值的方式。

结合 46523 和 1236 不应产生 465231236。这是错误的答案。相反，您希望获取高 32 位，并将它们与低 32 位放在一起。

你正在结合$0000B5BB和$00004D4。正确答案是$0000B5BB00004D4或$00004D40000B5BB，这取决于这两个值中的哪一个是高阶部分和低阶部分。

在代码中实现它，例如，使用Int64Rec：

var
  Value: UInt64;
...
Int64Rec(Value).Lo := Lo;
Int64Rec(Value).Hi := Hi;

其中Lo和Hi是由 . 返回的低和高 32 位值RTDSC。

因此，位 0 到 31 设置为 的值Lo，位 32 到 63 设置为 的值Hi。

或者可以使用按位运算编写：

Value := (UInt64(Hi) shl 32) or UInt64(Lo);

如果您需要做的只是读取时间戳计数器，那么您无需执行任何操作。您可以像这样实现该功能：

function TimeStampCounter: UInt64;
asm
  RDTSC
end;

寄存器调用约定要求将 64 位值返回值传递回EDX:EAX. 由于将RDTSC值放在那些确切的寄存器中（顺便说一句，这不是巧合），因此您无事可做。

综上所述，通常最好使用性能计数器，而不是使用时间戳计数器，它由TStopWatchfrom包装System.Diagnostics。

于 2015-11-14T19:21:22.167 回答
6

简单的方法是使用记录

type
  TMyTimestamp = record
    case Boolean of
      true:
        ( Value: Int64 );
      false:
        ( Value1: Integer; Value2: Integer );
  end;

您可以根据需要存储/读取每个值

var
  ts: TMyTimestamp;
begin
  ts.Value1 := 46523;
  ts.Value2 := 1236;
  WriteLn( ts.Value ); // -> 5308579624379

  ts.Value := 5308579624379;
  WriteLn( ts.Value1 ); // -> 46523
  WriteLn( ts.Value2 ); // -> 1236
end;

请参阅：Docwiki：记录中的变体部分

于 2015-11-14T19:23:38.430 回答