Put GetFullName functions inside $ifdef FPC_WIDESTRING_EQUAL_UNICODESTRING

git-svn-id: trunk@47287 -

rtl/inc/file.inc

@@ -681,6 +681,7 @@ Begin
 End;
 {$endif FPC_HAS_FEATURE_ANSISTRINGS}
 
+{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
 Function GetFullName(var f:File) : UnicodeString;
   begin
 {$ifdef USE_FILEREC_FULLNAME}
@@ -690,4 +691,5 @@ Function GetFullName(var f:File) : UnicodeString;
 {$endif USE_FILEREC_FULLNAME}
     Result:=PFileTextRecChar(@FileRec(f).Name);
   end;
+{$endif FPC_HAS_FEATURE_WIDESTRINGS}
 

rtl/inc/systemh.inc

@@ -1379,7 +1379,9 @@ Procedure Seek(var f:File;Pos:Int64);
 Function  EOF(var f:File):Boolean;
 Procedure Erase(var f:File);
 Procedure Truncate (var F:File);
+{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
 Function GetFullName(var f:File) : UnicodeString;
+{$endif FPC_HAS_FEATURE_WIDESTRINGS}
 {$endif FPC_HAS_FEATURE_FILEIO}
 
 
@@ -1439,7 +1441,9 @@ Procedure SetTextBuf(var f:Text; var Buf; Size:SizeInt);
 Procedure SetTextLineEnding(var f:Text; Ending:string);
 function GetTextCodePage(var T: Text): TSystemCodePage;
 procedure SetTextCodePage(var T: Text; CodePage: TSystemCodePage);
+{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
 Function GetFullName(var T:Text) : UnicodeString;
+{$endif FPC_HAS_FEATURE_WIDESTRINGS}
 {$endif FPC_HAS_FEATURE_TEXTIO}
 
 {****************************************************************************

rtl/inc/text.inc

@@ -2646,6 +2646,7 @@ begin
 end;
 {$endif FPC_WIDESTRING_EQUAL_UNICODESTRING}
 
+{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
 Function GetFullName(var t:Text) : UnicodeString;
   begin
 {$ifdef USE_FILEREC_FULLNAME}
@@ -2655,6 +2656,7 @@ Function GetFullName(var t:Text) : UnicodeString;
 {$endif USE_FILEREC_FULLNAME}
     Result:=PFileTextRecChar(@TextRec(t).Name);
   end;
+{$endif FPC_HAS_FEATURE_WIDESTRINGS}
 
 {*****************************************************************************
                                Initializing