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

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

git-svn-id: trunk@3262 -

compiler/ncgcal.pas

@@ -440,16 +440,6 @@ implementation
                         end
                       else
                         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 }
                           if not(left.location.loc in [LOC_CREFERENCE,LOC_REFERENCE]) then
                             location_force_mem(current_asmdata.CurrAsmList,left.location);