diff options
| author | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-01 08:23:40 +0000 |
|---|---|---|
| committer | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-01 08:23:40 +0000 |
| commit | 325e44736531360793ae505e714787f279662b1a (patch) | |
| tree | 7affb3c5aeb4b8758036ad2f5db90b710e1110c4 /rtl/inc/file.inc | |
| parent | f92049aa79347ce43fc0ed7b0196997758110077 (diff) | |
| download | fpc-325e44736531360793ae505e714787f279662b1a.tar.gz | |
Fix compilation of RTL when USE_FILEREC_FULLNAME is not defined
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47267 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/inc/file.inc')
| -rw-r--r-- | rtl/inc/file.inc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rtl/inc/file.inc b/rtl/inc/file.inc index f7357665e8..059c83004d 100644 --- a/rtl/inc/file.inc +++ b/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; |