fpcsrc/tests/webtbs/tw8391.pp


1
2
3
4
5
6
7
8
9

{ %norun }
{ %target=win32,wince }
{ %opt=-Aas }

Procedure InternalName; CDecl; External 'thedll' name '?ExternalName@Tralala';

Begin
  InternalName;
End.