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

* do not use F field to get TObjectReader FileName as it is freed inside openfile method

Browse Source 
git-svn-id: trunk@7255 -
This commit is contained in:
pierre 2007-05-03 23:55:55 +00:00
parent 41d171bda0
commit 390a4236e2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/owbase.pas
View File

@ -57,6 +57,7 @@ type
f : TCFileStream;
opened : boolean;
buf : pchar;
ffilename : string;
bufidx,
bufmax : longint;
function readbuf:boolean;
@ -217,6 +218,7 @@ begin
buf:=nil;
bufidx:=0;
bufmax:=0;
ffilename:='';
opened:=false;
end;
@ -237,6 +239,7 @@ begin
Comment(V_Error,'Can''t open object file: '+fn);
exit;
end;
ffilename:=fn;
getmem(buf,f.Size);
f.read(buf^,f.Size);
bufmax:=f.Size;
@ -295,7 +298,7 @@ end;
function tobjectreader.getfilename : string;
begin
result:=f.filename;
result:=ffilename;
end;
end.