fpcsrc/tests/test/tfwork1.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{ %target=darwin }
{ %cpu=i386,powerpc }

{$linkframework Carbon}

type
  CFStringRef = pointer;

function CFSTR( c: PChar ): CFStringRef; external name '___CFStringMakeConstantString'; mwpascal;

begin
  CFSTR('hello');  
end.