diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-06-06 12:39:09 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-06-06 12:39:09 +0000 |
| commit | 87b5421b06d5b1c2caebcdc060ab29981110b0e1 (patch) | |
| tree | 51794a8609abb0573da31285d4dc5c24de487601 /compiler/wpobase.pas | |
| parent | e0448d76d6d8abe7dd2bd7217a82d2a2c9d6e4f9 (diff) | |
| download | fpc-87b5421b06d5b1c2caebcdc060ab29981110b0e1.tar.gz | |
* give an error message when the specified wpo feedback input file
is a directory
* always quote wpo feedback file name in messages
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13242 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/wpobase.pas')
| -rw-r--r-- | compiler/wpobase.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/wpobase.pas b/compiler/wpobase.pas index 1ed64f6011..787bb15aba 100644 --- a/compiler/wpobase.pas +++ b/compiler/wpobase.pas @@ -446,7 +446,9 @@ implementation constructor twpofilereader.create(const fn: tcmdstr; dest: twpoinfomanagerbase); begin - if not FileExists(fn) then + if not FileExists(fn) or + { FileExists also returns true for directories } + DirectoryExists(fn) then begin cgmessage1(wpo_cant_find_file,fn); exit; |