浏览代码

Fix compilation of RTL when USE_FILEREC_FULLNAME is not defined

git-svn-id: trunk@47267 -
pierre 4 年之前
父节点
当前提交
c2c4048e92
共有 1 个文件被更改,包括 2 次插入0 次删除
  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;