Fix to my fix (Re: [fpc-devel]To make more Delphi compatibility!)

[Pavel V. Ozerski]

Sorry, but my last today's patch needs to be patched again because replacing equal_paras to convertable_paras
solved some problems but created new problems. Therefore both functions must be called.

Pavel

Patch to patch:



      procedure property_dec;

        var
           sym : psym;
           propertyparas : tlinkedlist;

        { returns the matching procedure to access a property }
        function get_procdef : pprocdef;

          var
             p : pprocdef;

          begin
             p:=pprocsym(sym)^.definition;
             get_procdef:=nil;
             while assigned(p) do
               begin
                  if equal_paras(p^.para,propertyparas,cp_value_equal_const)or convertable_paras(p^.para,propertyparas,cp_value_equal_const)then{**Ozerski 14.03.01}
                    break;
                  p:=p^.nextoverloaded;
               end;
             get_procdef:=p;
          end;

        var
           hp2,datacoll : tparaitem;
           p : ppropertysym;
           overriden : psym;
           hs : string;
           varspez : tvarspez;
           sc : tidstringlist;
           s : string;
           tt : ttype;
           declarepos : tfileposinfo;
           pp : pprocdef;
           pt : tnode;
           propname : stringid;

        begin
           { check for a class }
           if not((is_class_or_interface(aktclass))or((m_delphi in aktmodeswitches)and(is_object(aktclass))))then{**Ozerski 14.03.01}
            Message(parser_e_syntax_error);
           consume(_PROPERTY);