Browse Source

* no type helpers in version 2.6.*

git-svn-id: trunk@32263 -
michael 9 years ago
parent
commit
4a32135563
2 changed files with 5 additions and 1 deletions
  1. 3 1
      rtl/objpas/sysutils/sysutilh.inc
  2. 2 0
      rtl/objpas/sysutils/sysutils.inc

+ 3 - 1
rtl/objpas/sysutils/sysutilh.inc

@@ -309,8 +309,10 @@ Type
   {$i systhrdh.inc}
   {$i systhrdh.inc}
 
 
   { Type Helpers}
   { Type Helpers}
+  {$IFNDEF VER2_6}
   {$i syshelph.inc}
   {$i syshelph.inc}
-
+  {$ENDIF}
+  
   procedure FreeAndNil(var obj);
   procedure FreeAndNil(var obj);
 
 
   { interface handling }
   { interface handling }

+ 2 - 0
rtl/objpas/sysutils/sysutils.inc

@@ -41,7 +41,9 @@
   {$i varerror.inc}
   {$i varerror.inc}
   
   
   { Type helpers}
   { Type helpers}
+  {$IFNDEF VER2_6}
   {$i syshelp.inc}
   {$i syshelp.inc}
+  {$ENDIF}
 
 
   {$ifndef OS_FILEISREADONLY}
   {$ifndef OS_FILEISREADONLY}
   Function FileIsReadOnly(const FileName: RawByteString): Boolean;
   Function FileIsReadOnly(const FileName: RawByteString): Boolean;