mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
f936a48afa
functions whose implementation is declared "external". This results in less
efficient code (all calls will go through a stub), but it prevents interface
crc changes (-> no recompilations in case of circular dependencies) and it
also keeps the interface stable (if the external implementation is changed
afterwards to another external routine or to a local implementation, the
mangled name of the routine does not change) (mantis #24121)
git-svn-id: trunk@27213 -
18 lines
248 B
ObjectPascal
18 lines
248 B
ObjectPascal
unit uw25610b;
|
|
|
|
interface
|
|
|
|
function DynArraySize(p : pointer): tdynarrayindex;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uw25610a;
|
|
|
|
function DynArraySize(p : pointer): tdynarrayindex; external name 'FPC_DYNARRAY_LENGTH';
|
|
|
|
begin
|
|
upcase(Foo);
|
|
end.
|
|
|