mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 05:59:08 +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);
|
fillchar(e,sizeof(e),0);
|
||||||
e.bufsize:=sizeof(e.buf);
|
e.bufsize:=sizeof(e.buf);
|
||||||
e.filename:=fn;
|
e.filename:=fn;
|
||||||
|
if fn='' then // we don't want to read stdin
|
||||||
|
exit;
|
||||||
assign(e.f,fn);
|
assign(e.f,fn);
|
||||||
{$I-}
|
{$I-}
|
||||||
ofm:=filemode;
|
ofm:=filemode;
|
||||||
|
Loading…
Reference in New Issue
Block a user