* updated r308 of common Mac OS X interfaces:

   o all headers updated to Mac OS X 10.6
   o 64 bit support (commented out unsupported routines under 64 bit, fixed
     types)
   o iPhoneOS support to the extent that this is available in the standard
     Mac OS X 10.6 headers (these are not covered under the iPhone SDK
     derivative works limitation)
   o a few new frameworks translated: CoreType, CoreVideo, AudioUnits
   o a number of changes can cause compatibility problems with existing
     programs, listed below
  * many cases where signed parameters were turned into unsigned parameters
    and vice versa, too many to list (due to differences between the classic
    Pascal headers and the new C headers)
  * ATSFontFindFromContainer: ioArray var -> ptr because array
  * ATSFontGetFileSpecification: oFile FSSpec -> ATSFSSpec (was translation
    error?)
  * CFNetworkCopyProxiesForAutoConfigurationScript: got extra CFErrorRef para
  * CMGetDeviceFactoryProfiles: defaultProfID var -> ptr, because can be nil
  * CMIterateColorDevices: seed and count var -> ptr, because can be nil
  * CMIterateDeviceProfiles: seed and count var -> ptr, because can be nil
  * CMSetDeviceProfiles: profileScope and deviceProfiles const -> ptr, because 
    can be nil
  * ConvertFromUnicodeToScriptCodeRun: oScriptCodeRuns var -> ptr because
    array
  * ConvertFromUnicodeToTextRun: oEncodingRuns var -> ptr because array
  * CreateUnicodeToTextRunInfo: iUnicodeMappings var -> ptr because array
  * DCMCreateFieldInfoRecord: findMethods var -> ptr because array
  * DCMGetFieldFindMethods: findMethods var -> ptr because array
  * GetIconRefFromFileInfo: outlabel var -> ptr because can be nil
  * HIImageViewCreate: last parameter ControlRef -> HIViewRef
  * HIViewNewTrackingArea: outRef var -> ptr because can be nil in 10.5+
  * LAGetEnvironmentList: environmentList var -> ptr because array
  * LAListAvailableDictionaries: dictionaryList and opened var -> ptr because
    array
  * LSGetApplicationForURL: outAppRef and outAppURL var -> ptr because can be
    nil
  * LocaleOperationGetLocales: localeVariantList var -> ptr because can be nil
  * MPWaitOnQueue: param1-3 value -> var because "void **" in C
  * QTVRSetBackBufferImagingProc: areasOfInterest var -> ptr because array
  * QueryUnicodeMappings: oReturnedMappings var -> ptr because array
  * TECConvertTextToMultipleEncodings: outEncodingsBuffer var -> ptr because
    array
  * TECFlushMultipleEncodings: outEncodingsBuffer var -> ptr because array
  * TECSniffTextEncoding: numErrsArray and numFeaturesArray var -> ptr because
    array
  * FSCreateResFile: catalogInfo const -> ptr because can be nil


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14089 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 3 deletions

diff --git a/packages/fcl-base/src/custapp.pp b/packages/fcl-base/src/custapp.pp
index 9ff7fa2f85..8efb04211e 100644
--- a/packages/fcl-base/src/custapp.pp
+++ b/packages/fcl-base/src/custapp.pp
@@ -84,7 +84,7 @@ var CustomApplication : TCustomApplication = nil;
 
 Implementation
 
-{$if defined(darwin) and (defined(cpu386) or defined(cpupowerpc32))}
+{$ifdef darwin}
 uses
   MacOSAll;
 {$endif}
@@ -92,8 +92,7 @@ uses
 { TCustomApplication }
 
 function TCustomApplication.GetExeName: string;
-{ we don't have 64 bit clean interfaces to CoreFoundation yet }
-{$if defined(darwin) and (defined(cpu386) or defined(cpupowerpc32))}
+{$if defined(darwin)}
 var
   mainBundle: CFBundleRef;
   executableUrl: CFURLRef;