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;