mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 06:11:35 +02:00
o patch by Sergej Gorelkin:
* When OpenExeFile is called with an empty filename argument, it apparently opens stdin and crashes immediately thereafter trying to seek in non-seekable stream. The filename is empty whenever GetLineInfo is called with the address that does not belong to valid module. git-svn-id: trunk@12802 -
This commit is contained in:
parent
3638a3b680
commit
8a940151a7
@ -1044,6 +1044,8 @@ begin
|
||||
fillchar(e,sizeof(e),0);
|
||||
e.bufsize:=sizeof(e.buf);
|
||||
e.filename:=fn;
|
||||
if fn='' then // we don't want to read stdin
|
||||
exit;
|
||||
assign(e.f,fn);
|
||||
{$I-}
|
||||
ofm:=filemode;
|
||||
|
Loading…
Reference in New Issue
Block a user