X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_res.pas;h=e5d47567b3c167cfaf4f792b0b8de647539c3a4e;hb=4ee9edff7adfcf0f2cbd3cf32b1cb1790061fe14;hp=db328791be0a74d3cf40e5915a16a5165b0058db;hpb=414f2873efa0cce84499f64774db7000e6268971;p=d2df-sdl.git

diff --git a/src/engine/e_res.pas b/src/engine/e_res.pas
index db32879..e5d4756 100644
--- a/src/engine/e_res.pas
+++ b/src/engine/e_res.pas
@@ -52,7 +52,7 @@ interface
   function e_GetResourcePath (dirs: SSArray; path: AnsiString; defWad: AnsiString): AnsiString;
 
   {--- same as SysUtils.FinFirst ---}
-  function e_FindFirst (dirs: SSArray; name: AnsiString; attr: LongInt; out Rslt: TRawbyteSearchRec): LongInt;
+  function e_FindFirst (dirs: SSArray; name: AnsiString; attr: LongInt; out Rslt: TSearchRec): LongInt;
 
   {--- try to create directory from list, throws if no one directory created ---}
   function e_GetDir (dirs: SSArray): AnsiString;
@@ -226,7 +226,7 @@ implementation
       e_LogWritefln('  this>>> %s', [result]);
   end;
 
-  function e_FindFirst (dirs: SSArray; name: AnsiString; attr: LongInt; out Rslt: TRawbyteSearchRec): LongInt;
+  function e_FindFirst (dirs: SSArray; name: AnsiString; attr: LongInt; out Rslt: TSearchRec): LongInt;
     var i: Integer; dir: AnsiString;
   begin
     if debug_e_res then
@@ -240,7 +240,7 @@ implementation
       result := FindFirst(dir, attr, Rslt);
       if debug_e_res then
         e_LogWritefln('  %s: %s -- %s', [i, dir, result]);
-      Dec(i); 
+      Dec(i);
     end
   end;