Explorar o código

Fix compilation of RTL when USE_FILEREC_FULLNAME is not defined

git-svn-id: trunk@47267 -
pierre %!s(int64=4) %!d(string=hai) anos
pai
achega
c2c4048e92
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      rtl/inc/file.inc

+ 2 - 0
rtl/inc/file.inc

@@ -519,9 +519,11 @@ Begin
       end
     else InOutRes:=103;
   end;
+{$ifdef USE_FILEREC_FULLNAME}
 {$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
   UnicodeString(FileRec(f).FullName):='';
 {$endif FPC_HAS_FEATURE_ANSISTRINGS}
+{$endif USE_FILEREC_FULLNAME}
 End;