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

* also make "out" parameters unique

Browse Source 
git-svn-id: trunk@2043 -
This commit is contained in:
Jonas Maebe 2005-12-23 23:48:48 +00:00
parent 5ccbeea1d3
commit d6559f594d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncal.pas
View File

@ -677,7 +677,7 @@ type
valid_for_var(left,true);
end;
if parasym.varspez = vs_var then
if parasym.varspez in [vs_var,vs_out] then
set_unique(left);
{ When the address needs to be pushed then the register is