changes to fix Lazarus and FreePascal compilation issues.

Author: norayr

Source/PythonEngine.pas

@@ -6066,7 +6066,11 @@ function TPythonEngine.PyUnicodeAsString(obj : PPyObject): UnicodeString;
       Exit;
 
     // The second argument is the size of the destination (Result) including #0
-    NewSize := Utf8ToUnicode(PChar(Result), Cardinal(Size + 1), Buffer, Cardinal(Size));
+    {$IFDEF FPC}
+      NewSize := Utf8ToUnicode(PUnicodeChar(Result), Cardinal(Size + 1), Buffer, Cardinal(Size));
+    {$ELSE}
+      NewSize := Utf8ToUnicode(PChar(Result), Cardinal(Size + 1), Buffer, Cardinal(Size));
+    {$ENDIF}
     // NewSize includes #0
     SetLength(Result, NewSize - 1);
   end

Source/WrapDelphi.pas

@@ -2571,6 +2571,9 @@ function TPyDelphiObject.Dir_Wrapper(args: PPyObject): PPyObject;
 
 var
   PyType: PPyTypeObject;
+  {$IFDEF FPC}
+  i: longint;
+  {$ENDIF}
 {$IFDEF EXTENDED_RTTI}
   Context: TRttiContext;
   RttiType: TRTTIType;

Source/WrapDelphiClasses.pas

@@ -5,7 +5,8 @@
 interface
 
 uses
-  Classes, SysUtils, PythonEngine, WrapDelphi;
+  Classes, SysUtils, PythonEngine, WrapDelphi
+  {$IFDEF FPC}, bufstream{$ENDIF};
 
 type
   {
@@ -367,6 +368,7 @@ implementation
 uses
   TypInfo {$IFNDEF FPC}, System.Rtti{$ENDIF};
 
+
 {$IFNDEF FPC}
 type
   TPyReader = class(TReader)
@@ -2223,7 +2225,12 @@   TBufferedFileStreamClass = class of TBufferedFileStream;
       DelphiObject := TBufferedFileStreamClass(DelphiObjectClass).Create(String(LFileName), LMode, LBufferSize);
   end else if (LArgCount = 3) then begin
     if (APythonType.Engine.PyArg_ParseTupleAndKeywords(args, kwds, 'sHI|i:Create', @LKwArgs2[0], @LFileName, @LMode, @LRights, @LBufferSize) <> 0) then
-      DelphiObject := TBufferedFileStreamClass(DelphiObjectClass).Create(String(LFileName), LMode, LRights, LBufferSize);
+    {$IFDEF FPC}
+    DelphiObject := TBufferedFileStreamClass(DelphiObjectClass).Create(String(LFileName), LMode, LRights);
+    DelphiObject.Size:= LBufferSize;
+    {$ELSE}
+    DelphiObject := TBufferedFileStreamClass(DelphiObjectClass).Create(String(LFileName), LMode, LRights, LBufferSize);
+    {$ENDIF}
   end;
 
   //Maybe it was created on the next attempt...
@@ -2385,14 +2392,22 @@   TResourceStreamClass = class of TResourceStream;
     {$ELSE}
     if APythonType.Engine.PyArg_ParseTuple(args, 'Iss:Create', @LHandle, @LResName, @LResType) <> 0 then
     {$ENDIF}
+    {$IFDEF FPC}
+      DelphiObject := TResourceStreamClass(DelphiObjectClass).Create(LHandle, String(LResName), PChar(String(LResType)))
+    {$ELSE}
       DelphiObject := TResourceStreamClass(DelphiObjectClass).Create(LHandle, String(LResName), PWideChar(String(LResType)))
+    {$ENDIF}
     else
     {$IFDEF CPUX64}
     if APythonType.Engine.PyArg_ParseTuple(args, 'Kis:Create', @LHandle, @LResId, @LResType) <> 0 then
     {$ELSE}
     if APythonType.Engine.PyArg_ParseTuple(args, 'Iis:Create', @LHandle, @LResId, @LResType) <> 0 then
     {$ENDIF}
+    {$IFDEF FPC}
+      DelphiObject := TResourceStreamClass(DelphiObjectClass).CreateFromID(LHandle, LResId, PChar(String(LResType)));
+    {$ELSE}
       DelphiObject := TResourceStreamClass(DelphiObjectClass).CreateFromID(LHandle, LResId, PWideChar(String(LResType)));
+    {$ENDIF}
   except
     on E: Exception do
       with GetPythonEngine do