paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 08:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check with fileexists() before opening a file

Browse Source
This commit is contained in:
peter 2003-12-27 22:27:24 +00:00
parent b7a19dd847
commit 3677577d9f
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/finput.pas
View File

@ -440,6 +440,14 @@ uses
var
ofm : byte;
begin
{ Check if file exists, this will also check if it is
a real file and not a directory }
if not fileexists(filename) then
begin
result:=false;
exit;
end;
{ Open file }
ofm:=filemode;
filemode:=0;
Assign(f,filename);
@ -704,7 +712,10 @@ uses
end.
{
$Log$
Revision 1.22 2003-04-28 16:18:16 peter
Revision 1.23 2003-12-27 22:27:24 peter
* check with fileexists() before opening a file
Revision 1.22 2003/04/28 16:18:16 peter
* sharedlib is placed in exe outputdir
Revision 1.21 2002/12/29 14:57:50 peter