* Sysutils compatibility unit

packages/vcl-compat/fpmake.pp

@@ -38,6 +38,8 @@ begin
 
     T:=P.Targets.AddUnit('system.netencoding.pp');
     T.ResourceStrings := True;
+    T:=P.Targets.AddUnit('system.ioutils.pp');
+    T.ResourceStrings := True;
 
 {$ifndef ALLPACKAGES}
     Run;

packages/vcl-compat/tests/testcompat.lpi

@@ -17,12 +17,11 @@
     </PublishOptions>
     <RunParams>
       <FormatVersion Value="2"/>
-      <Modes Count="0"/>
     </RunParams>
-    <RequiredPackages Count="1">
-      <Item1>
+    <RequiredPackages>
+      <Item>
         <PackageName Value="FCL"/>
-      </Item1>
+      </Item>
     </RequiredPackages>
     <Units>
       <Unit>
@@ -33,6 +32,10 @@
         <Filename Value="tcnetencoding.pp"/>
         <IsPartOfProject Value="True"/>
       </Unit>
+      <Unit>
+        <Filename Value="tciotuils.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
@@ -47,16 +50,16 @@
     </SearchPaths>
   </CompilerOptions>
   <Debugging>
-    <Exceptions Count="3">
-      <Item1>
+    <Exceptions>
+      <Item>
         <Name Value="EAbort"/>
-      </Item1>
-      <Item2>
+      </Item>
+      <Item>
         <Name Value="ECodetoolError"/>
-      </Item2>
-      <Item3>
+      </Item>
+      <Item>
         <Name Value="EFOpenError"/>
-      </Item3>
+      </Item>
     </Exceptions>
   </Debugging>
 </CONFIG>

packages/vcl-compat/tests/testcompat.lpr

@@ -4,7 +4,7 @@ program testcompat;
 
 uses
   {$IFDEF UNIX}cwstring,{$ENDIF}
-  Classes, consoletestrunner, tcnetencoding;
+  Classes, consoletestrunner, tcnetencoding, tciotuils;
 
 type