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

+ added some constants missed for compatibility, resolves #9182

Browse Source 
git-svn-id: trunk@8121 -
This commit is contained in:
florian 2007-07-21 20:19:29 +00:00
parent 6250a3ccb9
commit baafccf372
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rtl/objpas/sysutils/sysutilh.inc
View File

@ -182,7 +182,7 @@ Var
type
TTerminateProc = Function: Boolean;
procedure AddTerminateProc(TermProc: TTerminateProc);
function CallTerminateProcs: Boolean;
@ -237,3 +237,29 @@ Type
function SafeLoadLibrary(const FileName: AnsiString;
ErrorMode: DWord = {$ifdef windows}SEM_NOOPENFILEERRORBOX{$else windows}0{$endif windows}): HMODULE;
{ some packages and unit related constants for compatibility }
const
pfExeModule = $00000000;
pfNeverBuild = $00000001;
pfDesignOnly = $00000002;
pfRunOnly = $00000004;
pfIgnoreDupUnits = $00000008;
pfPackageModule = $40000000;
pfModuleTypeMask = $C0000000;
pfV3Produced = $00000000;
pfProducerUndefined = $04000000;
pfBCB4Produced = $08000000;
pfDelphi4Produced = $0C000000;
pfLibraryModule = $80000000;
pfProducerMask = $0C000000;
const
ufMainUnit = $01;
ufPackageUnit = $02;
ufWeakUnit = $04;
ufOrgWeakUnit = $08;
ufImplicitUnit = $10;
ufWeakPackageUnit = ufPackageUnit or ufWeakUnit;