mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-22 02:29:52 +02:00
614436d8cb
add it everywhere in the paramanagers (where it was often forgotten) - removed places where it was explicitly added to cdecl_pocalls checks + test git-svn-id: trunk@22616 -
17 lines
327 B
ObjectPascal
17 lines
327 B
ObjectPascal
{ %target=darwin }
|
|
program test;
|
|
uses
|
|
MacOSAll;
|
|
|
|
procedure Callback (data: ptr; context: ptr); mwpascal;
|
|
begin
|
|
end;
|
|
|
|
var
|
|
arr: CFMutableArrayRef;
|
|
begin
|
|
arr := CFArrayCreateMutable(nil, 0, @kCFTypeArrayCallBacks);
|
|
CFArrayApplyFunction(arr, CFRangeMake(0, CFArrayGetCount(arr)), CFArrayApplierFunction(@Callback), nil);
|
|
end.
|
|
|