用fpc导出重载函数

Question

我需要在fpc (delphi-模式)中创建一个dll。它工作得很好，但出于某些原因，我想(在一个单元中)做一些事情，比如

function doSomeThing(a:type1):type2;stdcall;
function doSomeThing(a:type3):type4;stdcall;

在库中(用于使用上面的单元构建dll )

exports
    doSomeThing(a:type1) name 'doSomeThingTYPE1',
    doSomeThing(a:type3) name 'doSomeThingTYPE3';

语法是不言自明的，并在How to export Overload functions from DLL?中被告知。但它似乎无法在fpc中使用(x86_64版本2.6.0-9 2013/04/14 )。是否有机会这样做-或者我必须重命名我的源代码内的函数？

Answer 1

David在另一个线程中咨询了我，我设计了一些编译的东西，但是不知道它是否有效。

它基于使用定义的链接器级别标识符导出函数，然后声明一个外部函数，使用不同的Pascal名称重新使用它。请注意，bla和bla2甚至不一定与剂量变化在同一个单元中。

library testdll; 

{$mode delphi}
type 
   type1=integer;
   type3=char;
   type2=smallint;
   type4=widechar;

function doSomeThing(a:type1):type2;stdcall; overload; [public, alias:'bla'];
begin
  result:=a+1;
end;

function doSomeThing(a:type3):type4;stdcall; overload; [public, alias:'bla2'];
begin
  result:=widechar(ord(a)+1000);
end;

procedure bla; external name 'bla';
procedure bla2; external name 'bla2';
exports
    bla name 'doSomeThingTYPE1',
    bla2 name 'doSomeThingTYPE3';

end.

Answer 2

链接到的问题讨论Delphi。Delphi支持的语法允许您导出重载函数，FPC不支持这种语法。

据我所知，过载的函数是不可导出的。不过，我很容易就错了。也许有一种办法，正如马可在他的回答中所建议的那样。