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

* fix from r13288

Browse Source 
git-svn-id: trunk@13289 -
This commit is contained in:
Jonas Maebe 2009-06-18 09:34:04 +00:00
parent 47702aa3a5
commit f5a24d0f5b
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/pinline.pas
View File

@ -79,7 +79,10 @@ implementation
p:=comp_expr(true);
{ calc return type }
if is_new then
set_varstate(p,vs_written,[])
begin
set_varstate(p,vs_written,[]);
valid_for_var(p,true);
end
else
set_varstate(p,vs_readwritten,[vsf_must_be_valid]);
if (m_mac in current_settings.modeswitches) and