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

* remove check for out/var parameters with LOC_CREFERENCE, we generate valid

Browse Source 
code. The checking if the code is allowed is already done by valid_for_assign()

git-svn-id: trunk@3262 -
This commit is contained in:
peter 2006-04-18 06:27:01 +00:00
parent b8afac6013
commit fe4ab79cd9
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgcal.pas
View File

@ -440,16 +440,6 @@ implementation
end end
else else
begin begin
{ Check for passing a constant to var,out parameter }
if (parasym.varspez in [vs_var,vs_out]) and
(left.location.loc<>LOC_REFERENCE) then
begin
{ passing self to a var parameter is allowed in
TP and delphi }
if not((left.location.loc=LOC_CREFERENCE) and
is_self_node(left)) then
internalerror(200106041);
end;
{ Force to be in memory } { Force to be in memory }
if not(left.location.loc in [LOC_CREFERENCE,LOC_REFERENCE]) then if not(left.location.loc in [LOC_CREFERENCE,LOC_REFERENCE]) then
location_force_mem(current_asmdata.CurrAsmList,left.location); location_force_mem(current_asmdata.CurrAsmList,left.location);