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

Question

我目前正在更新/编写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

Answer 1

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 文件似乎存在一个普遍问题。