소스 검색

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 -

florian 16 년 전
부모
커밋
8a940151a7
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      rtl/inc/exeinfo.pp

+ 2 - 0
rtl/inc/exeinfo.pp

@@ -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;