函数Copy()在Free Pascal中

Question

Delphi允许3个版本的Copy功能:

function CopyTest(const S: string): string;
begin
  Result:= Copy(S, 1, 5);
  Result:= Copy(S, 1);
//  Result:= Copy(S);   //  not allowed for strings, allowed for dyn arrays
end;

FreePascal似乎只编译第一个(3-arg)版本; 对于其他人我有编译时错误

Error: Wrong number of parameters specified for call to "$fpc_ansistr_copy"

我是否遗漏了一些FPC编译器开关或CopyFree Pascal中没有过载？

Answer 1

'复制'节点生成器代码是FPC源的inline_copy功能pinline.pas.仅对于动态数组,变体1和3是有效的(fpc_dynarray_copy在变体3的情况下,生成代码以传递第二和第三参数的-1 ).对于所有其他情况(ansi字符串,宽字符串,unicode字符串,char(*)和短字符串),需要3个参数(编译器生成对其中一个复制函数(例如fpc_ansistr_copyin astrings.pas)的调用而不检查参数,因为被调用函数具有没有重载或默认参数,需要完全匹配参数).没有涉及开关/指令.

(*)_{这个有点奇怪,它返回自身或'' 的短串.}