FPC compatibility

Author: pyscripter

Source/WrapDelphi.pas

@@ -1052,7 +1052,8 @@ implementation
   rs_ErrUnexpected = 'Unexpected error';
 
 {$REGION 'TRttiInvokableTypeHelper - "Lifted" from Spring4D"'}
-{$IF CompilerVersion < 36}
+
+{$IF not Defined(FPC) and Defined(EXTENDED_RTTI) and (CompilerVersion < 36)}
 {***************************************************************************}
 {                                                                           }
 {           Spring Framework for Delphi                                     }
@@ -1197,7 +1198,8 @@ function TRttiInvokableTypeHelper.CreateImplementation(AUserData: Pointer; //FI:
     m.Free;
   end;
 end;
-{$IFEND CompilerVersion < 36}
+{$IFEND not Defined(FPC) and Defined(EXTENDED_RTTI) and (CompilerVersion < 36)}
+
 {$ENDREGION 'TRttiInvokableTypeHelper - "Lifted from Spring4D"'}