paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-02 19:22:05 +01:00
Code Issues Packages Projects Releases Wiki Activity

* include QuickLook units in MacOSAll

Browse Source 
* merge:

r319 | jonas | 2009-11-23 17:29:38 +0100 (Mon, 23 Nov 2009) | 4 lines

  o two corrections by Dmitry Boyarintsev (mantis #15164):
   * PEFBinaryFormat: fixed missing semi-colon in commented-out type block
   * cblas: use {$error/errorc} instead of syntax error to report problem

git-svn-id: trunk@14259 -
This commit is contained in:
Jonas Maebe 2009-11-23 16:31:02 +00:00
parent aa6ab5cd11
commit d313fd272c
3 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/univint/src/MacOSAll.pas
View File

@ -196,6 +196,8 @@ interface
{$i PMPrintingDialogExtensions.pas}
{unit QDCMCommon}
{$i QDCMCommon.pas}
{unit QLBase}
{$i QLBase.pas}
{unit QTML}
{$i QTML.pas}
{unit QuickTimeErrors}
@ -748,6 +750,8 @@ interface
{$i NSLCore.pas}
{unit OpenTransportProtocol}
{$i OpenTransportProtocol.pas}
{unit QLThumbnailImage}
{$i QLThumbnailImage.pas}
{unit Translation}
{$i Translation.pas}
{unit URLAccess}
@ -854,6 +858,8 @@ interface
{$i PMCore.pas}
{unit QDPictToCGContext}
{$i QDPictToCGContext.pas}
{unit QLGenerator}
{$i QLGenerator.pas}
{unit Quickdraw}
{$i Quickdraw.pas}
{unit SCDynamicStore}
@ -1961,6 +1967,23 @@ begin
flags := (flags and (not kAudioUnitParameterFlag_DisplayMask)) or displayType
end;
{implementation of unit QLGenerator}
{$ifc TARGET_OS_MAC}
function kQLGeneratorTypeID : CFUUIDRef; inline;
begin
kQLGeneratorTypeID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault, $5E, $2D, $96, $80, $50, $22, $40, $FA, $B8, $06, $43, $34, $96, $22, $E5, $B9)
end;
function kQLGeneratorCallbacksInterfaceID: CFUUIDRef; inline;
begin
kQLGeneratorCallbacksInterfaceID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault, $86, $5A, $F5, $E0, $6D, $30, $43, $45, $95, $1B, $D3, $71, $05, $75, $4F, $2D)
end;
{$endc} {TARGET_OS_MAC}
{implementation of unit Menus}
{$ifc TARGET_OS_MAC}

2
packages/univint/src/PEFBinaryFormat.pas
View File

@ -1522,7 +1522,7 @@ type
end;
type
PEF2LgExportedSymbolPtr = ^PEF2LgExportedSymbol
PEF2LgExportedSymbolPtr = ^PEF2LgExportedSymbol;
PEF2LgExportedSymbol = record
symClass: UInt8;
flags: UInt8;

2
packages/univint/src/cblas.pas
View File

@ -548,7 +548,7 @@ procedure SetBLASParamErrorProc( ErrorProc: BLASParamErrorProc ); external name
{$ifc not undefined TARGET_CPU_X86 or defined TARGET_CPU_X86_64}
{$elsec}
error Unknown architecture
{$error Unknown architecture}
{$endc}
{$endc}