Warnings removed

Author: pyscripter

PythonForDelphi/Components/Python_XE2.dpk

@@ -2,6 +2,7 @@ package Python_XE2;
 
 {$R *.res}
 {$R 'Sources\Core\PythonEngine.dcr'}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
 {$ALIGN 8}
 {$ASSERTIONS ON}
 {$BOOLEVAL OFF}
@@ -12,17 +13,19 @@ package Python_XE2;
 {$LOCALSYMBOLS ON}
 {$LONGSTRINGS ON}
 {$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
+{$OPTIMIZATION OFF}
 {$OVERFLOWCHECKS OFF}
 {$RANGECHECKS OFF}
 {$REFERENCEINFO ON}
 {$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
+{$STACKFRAMES ON}
 {$TYPEDADDRESS OFF}
 {$VARSTRINGCHECKS ON}
 {$WRITEABLECONST OFF}
 {$MINENUMSIZE 1}
 {$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
 {$DESCRIPTION 'Components for Python'}
 {$IMPLICITBUILD OFF}
 

PythonForDelphi/Components/Sources/Core/Definition.Inc

@@ -275,10 +275,6 @@
 // Misc
 /////////////////////////////////////////////////////////////////////////////
 
-{$IFDEF DELPHIXE2_OR_HIGHER}
-  {$DEFINE USESYSTEMDISPINVOKE}  //Might work with earlier versions as well
-{$ENDIF}
-
 {$IFDEF WIN32}
   {$DEFINE CPUX86}
 {$ENDIF}
@@ -291,9 +287,6 @@
   {$IFDEF CPU32}
     {$DEFINE CPUX86}
   {$ENDIF CPU32}
-  {$IF DEFINED(FPC_VER) and (FPC_VER >= 5)}
-    {$DEFINE USESYSTEMDISPINVOKE}
-  {$IFEND}
   {$IFDEF DARWIN}
     {$DEFINE MACOS}
     {$DEFINE ALIGN_STACK}

PythonForDelphi/Components/Sources/Core/PythonEngine.pas

@@ -108,7 +108,7 @@ interface
   {$IFEND}
   PNativeInt = ^NativeInt;
 {$ELSE}
-  {$IF DEFINED(FPC_VER) and (FPC_VER >= 5)}
+  {$IF DEFINED(FPC_FULLVERSION) and (FPC_FULLVERSION >= 20500)}
   {$ELSE}
     NativeInt = integer;
     NativeUInt = Cardinal;
@@ -2074,6 +2074,7 @@   TEngineClient = class;
 
 
   TTracebackItem = class
+  public
     FileName : String;
     LineNo : Integer;
     Context : String;
@@ -2969,6 +2970,7 @@   TPythonDelphiVar = class( TEngineClient )
   end;
 
   TPyVar = class(TPyObject)
+  public
     dv_var         : Variant;
     dv_component   : TPythonDelphiVar;
     dv_object      : PPyObject;

PythonForDelphi/Components/Sources/Core/VarPyth.pas

@@ -120,6 +120,13 @@   TNamedParamDesc = record
   end;
   TNamedParamArray = array of TNamedParamDesc;
 
+{$IFDEF DELPHIXE2_OR_HIGHER}
+  {$DEFINE USESYSTEMDISPINVOKE}  //Delphi 2010 DispInvoke is buggy
+{$ENDIF}
+{$IF DEFINED(FPC_FULLVERSION) and (FPC_FULLVERSION >= 20500)}
+  {$DEFINE USESYSTEMDISPINVOKE}
+{$IFEND}
+
   { Python variant type handler }
   TPythonVariantType = class(TInvokeableVariantType, IVarInstanceReference)
   protected

PythonForDelphi/Components/Sources/Core/WrapDelphi.pas

@@ -1118,6 +1118,7 @@ function Abort_Wrapper(pself, args: PPyObject): PPyObject; cdecl;
 Type
   //  Used for class registration by TPyDelphiWrapper fClassRegister
   TRegisteredClass = class
+  public
     DelphiClass : TClass;
     PythonType : TPythonType;
   end;