* moved SameFileName from finah.inc to sysansih.inc, since the implementation

    is in sysansi.inc

git-svn-id: branches/cpstrrtl@24995 -

rtl/objpas/sysutils/finah.inc

@@ -40,6 +40,5 @@ function IsPathDelimiter(Const Path: string; Index: Integer): Boolean;
 Procedure DoDirSeparators (Var FileName : String);
 Function SetDirSeparators (Const FileName : String) : String;
 Function GetDirs (Var DirName : String; Var Dirs : Array of pchar) : Longint;
-Function SameFileName(const S1, S2: string): Boolean;
 function ConcatPaths(const Paths: array of String): String;
 

rtl/objpas/sysutils/sysansih.inc

@@ -12,6 +12,7 @@
  **********************************************************************}
 
 function AnsiCompareFileName(const S1, S2 : string) : SizeInt;
+Function SameFileName(const S1, S2: string): Boolean;
 function AnsiLowerCaseFileName(const s : string) : string;
 function AnsiUpperCaseFileName(const s : string) : string;
 function AnsiPos(const substr,s : string) : SizeInt;