Changeset 2652

Show
Ignore:
Timestamp:
05/31/08 22:47:48 (7 months ago)
Author:
maxr
Message:

ada: bugfix - Add user defined operators to Corresponding_Type_Operators list.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/tendra/src/producers/ada/asis/asis-gela-inheritance.adb

    r2609 r2652  
    324324 
    325325      The_Cloner : Cloner; 
     326      Name       : Asis.Defining_Name; 
    326327      Def        : Asis.Definition := Classes.Get_Type_Def (Tipe); 
    327328      Decl       : Asis.Declaration := Classes.Get_Declaration (Tipe); 
    …… 
    339340      end if; 
    340341 
     342      Name := XASIS.Utils.Declaration_Name (Result); 
     343 
    341344      if Visible then 
    342345         Visibility.New_Implicit_Declaration (Result, Point, Decl, Overriden); 
    343346      else 
    344          Visibility.Set_Not_Declared (XASIS.Utils.Declaration_Name (Result)); 
     347         Visibility.Set_Not_Declared (Name); 
    345348      end if; 
    346349 
    …… 
    348351      Element_Utils.Add_Inherited_Subprogram (Def, Result); 
    349352      --  end if; 
     353 
     354      if Defining_Name_Kind (Name) = A_Defining_Operator_Symbol then 
     355         Element_Utils.Add_Type_Operator (Def, Result); 
     356      end if; 
    350357   end Make_Inherited_Subprogram; 
    351358