paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-07 23:38:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* move constants out of ifndef wince, bug #15057.

Browse Source 
git-svn-id: trunk@14163 -
This commit is contained in:
marco 2009-11-13 14:09:50 +00:00
parent 5163b44ac6
commit 6df3352279
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/objpas/types.pp
View File

@ -134,9 +134,6 @@ type
const const
GUID_NULL: TGUID = '{00000000-0000-0000-0000-000000000000}'; GUID_NULL: TGUID = '{00000000-0000-0000-0000-000000000000}';
{$ifndef Wince}
// in Wince these are in unit windows. Under 32/64 in ActiveX.
// for now duplicate them. Not that bad for untyped constants.
STGTY_STORAGE = 1; STGTY_STORAGE = 1;
STGTY_STREAM = 2; STGTY_STREAM = 2;
STGTY_LOCKBYTES = 3; STGTY_LOCKBYTES = 3;
@ -150,6 +147,14 @@ const
LOCK_EXCLUSIVE = 2; LOCK_EXCLUSIVE = 2;
LOCK_ONLYONCE = 4; LOCK_ONLYONCE = 4;
STATFLAG_DEFAULT = 0;
STATFLAG_NONAME = 1;
STATFLAG_NOOPEN = 2;
{$ifndef Wince}
// in Wince these are in unit windows. Under 32/64 in ActiveX.
// for now duplicate them. Not that bad for untyped constants.
E_FAIL = HRESULT($80004005); E_FAIL = HRESULT($80004005);
E_INVALIDARG = HRESULT($80070057); E_INVALIDARG = HRESULT($80070057);
@ -195,11 +200,8 @@ const
STG_S_BLOCK = $00030201; STG_S_BLOCK = $00030201;
STG_S_RETRYNOW = $00030202; STG_S_RETRYNOW = $00030202;
STG_S_MONITORING = $00030203; STG_S_MONITORING = $00030203;
STATFLAG_DEFAULT = 0;
STATFLAG_NONAME = 1;
STATFLAG_NOOPEN = 2;
{$endif} {$endif}
{$ifndef Windows} {$ifndef Windows}
type type
PCLSID = PGUID; PCLSID = PGUID;