delphi - 无法解决的链接错误 E2065 与 XXH32(xxHash 和 lz4)

我目前正在更新/编写 delphi binding for lz4 & xxHash 。

带有编译器错误 is available here 的项目状态。

xxHash.pas 行不通

function XXH32 (const AInput: Pointer; ALength: Integer; ASeed: Cardinal):  Cardinal; cdecl; external name '_XXH32';

尝试从 xxHash.o 绑定(bind)函数 XXH32 时，会导致错误 E2065。

[dcc32 Fehler] xxHash.pas(122): E2065 Ungenügende Forward- oder External-Deklaration: 'XXH32'

我不明白的是，所有其他功能都已绑定(bind)并且可以正常工作。

当我通过创建转储文件来分析 xxHash.o 时，该函数与 xxHash.o 的每个其他函数一样存在

objdump 命令:

objdump -D xxhash.o > xxhash.o.txt

xxH32 的转储文件部分:

xxhash.o:     file format pe-i386
Disassembly of section .text:
00000000 <_XXH32>:
   0:   55                      push   %ebp
   1:   57                      push   %edi
   2:   56                      push   %esi
   3:   53                      push   %ebx
   4:   83 ec 14                sub    $0x14,%esp
   7:   8b 44 24 28             mov    0x28(%esp),%eax
   b:   8b 4c 24 2c             mov    0x2c(%esp),%ecx
...

有什么建议么？

最小实现:

program lz4_minimal;

{$APPTYPE CONSOLE}

{$L xxhash.o}

function XXH32 (const AInput: Pointer; ALength: Integer; ASeed: Cardinal):  Cardinal; cdecl; external name '_XXH32';
function XXH64 (const AInput: Pointer; ALength: Integer; ASeed: UInt64):    UInt64;   cdecl; external name '_XXH64';

//necessary dependencies
function  _malloc(size: cardinal): Pointer; cdecl;
begin
  GetMem(Result, size);
end;

procedure _memcpy(dest, source: Pointer;  count: Integer); cdecl;
begin
  Move(source^, dest^, count);
end;

procedure _free(P: Pointer); cdecl;
begin
 FreeMem(P);
end;

begin
end.

xxHash.o 是 Windows 的 32 位，使用 MinGW 4.8.1 构建。以及 Yann Collet 在修订版 r36 中的原始源代码，包含在 lz4 中。包含 Makefile。

目标文件可以在 github here 上找到

最佳答案

David Heffernan 也建议的一种解决方法是向 xxHash.c 添加一个虚拟函数作为第一个函数。

新的转储文件如下所示:

xxhash.o:     file format pe-i386
Disassembly of section .text:
00000000 <_XXDUMMY>:
   0:   b8 2a 00 00 00          mov    $0x2a,%eax
   5:   c3                      ret
   6:   8d 76 00                lea    0x0(%esi),%esi
   9:   8d bc 27 00 00 00 00    lea    0x0(%edi,%eiz,1),%edi

00000010 <_XXH32>:
  10:   55                      push   %ebp
  11:   57                      push   %edi
  12:   56                      push   %esi
....

项目用这个 hack 编译，错误消失了。

分析其他目标文件并尝试绑定(bind)第一个引用的函数总是会导致错误 E2065。

在 Delphi 中使用 MinGW 和 gcc 编译的 .o 文件似乎存在一个普遍问题。

关于delphi - 无法解决的链接错误 E2065 与 XXH32(xxHash 和 lz4)，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/26806791/