Changeset 2612

Show
Ignore:
Timestamp:
01/20/08 23:30:33 (1 year ago)
Author:
maxr
Message:

ada: bug-fixes

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/tendra/src/producers/ada/asis/asis-gela-overloads-walk-down.adb

    r2580 r2612  
    742742           (Down.Kind = An_Expression and then 
    743743           Item.Kind /= A_Subprogram_Reference and then 
    744            Is_Expected_Type (Item.Result_Type, Down.Expression_Type)) 
     744           Is_Expected_Type (Down.Expression_Type, Item.Result_Type)) 
    745745         then 
    746746 
    …… 
    946946 
    947947                     if Name.Real_Types = null 
    948                        or else Is_Not_Type (Name.Real_Types (Index)) 
     948                       or else Is_Not_Type (Name.Real_Types (Formal)) 
    949949                     then 
    950950                        Tipe := Get_Parameter_Type 
    951951                          (Name.Down, Profile, Formal, Element); 
    952952                     else 
    953                         Tipe := Name.Real_Types (Index); 
     953                        Tipe := Name.Real_Types (Formal); 
    954954                     end if; 
    955955