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

* the writestr helper initializes the target string, so mark it as being written

Browse Source 
before the call to the helper to get proper life information

git-svn-id: trunk@26017 -
This commit is contained in:
florian 2013-11-10 20:20:40 +00:00
parent 8be7cfa05f
commit 412dc6586f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ninl.pas
View File

@ -1251,6 +1251,10 @@ implementation
else else
name:='fpc_setupwritestr_'; name:='fpc_setupwritestr_';
name:=name+tstringdef(filepara.resultdef).stringtypname; name:=name+tstringdef(filepara.resultdef).stringtypname;
{ the file para is a var parameter, but it is properly initialized,
so it should be actually an out parameter }
if not(do_read) then
set_varstate(filepara.left,vs_written,[]);
{ remove the source/destination string parameter from the } { remove the source/destination string parameter from the }
{ parameter chain } { parameter chain }
left:=filepara.right; left:=filepara.right;