Browse Source

+ Removed old compiler defines in packages

git-svn-id: trunk@319 -
michael 20 years ago
parent
commit
86635ba882
2 changed files with 3 additions and 13 deletions
  1. 0 4
      packages/extra/winunits/activex.pp
  2. 3 9
      packages/extra/winunits/jedi.inc

+ 0 - 4
packages/extra/winunits/activex.pp

@@ -1492,7 +1492,6 @@ TYPE
 
 
 //  CURRENCY                       = CY;
 //  CURRENCY                       = CY;
 
 
-{$IFDEF HASINTF}
 
 
 // Forward interfaces.
 // Forward interfaces.
 
 
@@ -2666,7 +2665,6 @@ TYPE
     function ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall;
     function ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall;
   end;
   end;
 
 
-{$ENDIF}
 
 
   tagOleMenuGroupWidths = record
   tagOleMenuGroupWidths = record
     width : array[0..5] Of LONG;
     width : array[0..5] Of LONG;
@@ -2680,7 +2678,6 @@ TYPE
 { ******************************************************************************************************************
 { ******************************************************************************************************************
                                                           stuff from objbase.h
                                                           stuff from objbase.h
   ****************************************************************************************************************** }
   ****************************************************************************************************************** }
-{$IFDEF HASINTF}
 
 
 {$i wininc/objbase.inc}
 {$i wininc/objbase.inc}
 
 
@@ -2693,7 +2690,6 @@ TYPE
   function IsEqualIID(const iid1,iid2 : TIID) : Boolean;stdcall;external 'ole32.dll' name 'IsEqualGUID';
   function IsEqualIID(const iid1,iid2 : TIID) : Boolean;stdcall;external 'ole32.dll' name 'IsEqualGUID';
   function IsEqualCLSID(const clsid1,clsid2 : TCLSID) : Boolean;stdcall;external 'ole32.dll' name 'IsEqualGUID';
   function IsEqualCLSID(const clsid1,clsid2 : TCLSID) : Boolean;stdcall;external 'ole32.dll' name 'IsEqualGUID';
 
 
-{$ENDIF HASINTF}
 
 
 
 
 const
 const

+ 3 - 9
packages/extra/winunits/jedi.inc

@@ -833,12 +833,8 @@
     {$DEFINE SUPPORTS_OUTPARAMS}
     {$DEFINE SUPPORTS_OUTPARAMS}
     {$DEFINE SUPPORTS_WIDECHAR}
     {$DEFINE SUPPORTS_WIDECHAR}
     {$DEFINE SUPPORTS_WIDESTRING}
     {$DEFINE SUPPORTS_WIDESTRING}
-    {$IFDEF HASINTF}
-      {$DEFINE SUPPORTS_INTERFACE}
-    {$ENDIF}
-    {$IFDEF HASVARIANT}
-      {$DEFINE SUPPORTS_VARIANT}
-    {$ENDIF}
+    {$DEFINE SUPPORTS_INTERFACE}
+    {$DEFINE SUPPORTS_VARIANT}
     {$IFDEF FPC_HAS_TYPE_SINGLE}
     {$IFDEF FPC_HAS_TYPE_SINGLE}
       {$DEFINE SUPPORTS_SINGLE}
       {$DEFINE SUPPORTS_SINGLE}
     {$ENDIF}
     {$ENDIF}
@@ -848,9 +844,7 @@
     {$IFDEF FPC_HAS_TYPE_EXTENDED}
     {$IFDEF FPC_HAS_TYPE_EXTENDED}
       {$DEFINE SUPPORTS_EXTENDED}
       {$DEFINE SUPPORTS_EXTENDED}
     {$ENDIF}
     {$ENDIF}
-    {$IFDEF HASCURRENCY}
-      {$DEFINE SUPPORTS_CURRENCY}
-    {$ENDIF}
+    {$DEFINE SUPPORTS_CURRENCY}
     {$DEFINE SUPPORTS_THREADVAR}
     {$DEFINE SUPPORTS_THREADVAR}
     {$DEFINE SUPPORTS_CONSTPARAMS}
     {$DEFINE SUPPORTS_CONSTPARAMS}
     {$DEFINE SUPPORTS_LONGWORD}
     {$DEFINE SUPPORTS_LONGWORD}