Fix Issue with incorrect condition ref to Windows unit in crypto#

MWASoftware · MWASoftware · commit 6e324b5d70cb · 2025-09-10T11:55:59.000+01:00
diff --git a/src/opensslHdrs/IdOpenSSLHeaders_core.pas b/src/opensslHdrs/IdOpenSSLHeaders_core.pas
@@ -27,8 +27,7 @@
 interface
 
 uses
-  IdSSLOpenSSLAPI
-  {$IFDEF VCL_XE3_OR_ABOVE},System.Types{$ELSE},Types{$ENDIF};
+  IdSSLOpenSSLAPI,Types;
 
 
 {
diff --git a/src/opensslHdrs/IdOpenSSLHeaders_crypto.pas b/src/opensslHdrs/IdOpenSSLHeaders_crypto.pas
@@ -39,7 +39,7 @@ interface
   IdOpenSSLHeaders_ossl_typ,
   IdOpenSSLHeaders_evp,
   IdOpenSSLHeaders_provider,
-  {$IFDEF VCL_XE3_OR_ABOVE}System.Types{$ELSE}Types{$ENDIF};
+  Types;
 
 {$MINENUMSIZE 4}
 
@@ -554,7 +554,7 @@ function Load_SSLeay: TOpenSSL_C_ULONG; cdecl;
 implementation
 
 uses SyncObjs,  Sysutils
-     {$IFNDEF FPC}, Windows{$ENDIF},
+     {$IFDEF WINDOWS}, Windows{$ENDIF},
 Classes,
      IdSSLOpenSSLExceptionHandlers,
      IdSSLOpenSSLResourceStrings;

Original file line number	Diff line number	Diff line change
`@@ -27,8 +27,7 @@`
`27`	`27`	`interface`
`28`	`28`
`29`	`29`	`uses`
`30`		`- IdSSLOpenSSLAPI`
`31`		`- {$IFDEF VCL_XE3_OR_ABOVE},System.Types{$ELSE},Types{$ENDIF};`
	`30`	`+ IdSSLOpenSSLAPI,Types;`
`32`	`31`
`33`	`32`
`34`	`33`	`{`