Changeset 2647

Show
Ignore:
Timestamp:
05/06/08 14:34:37 (7 months ago)
Author:
maxr
Message:

ada: bugfix, avoid deprecated asis function in parameterless function call

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r2622 r2647  
    693693      is 
    694694         Tipe : Type_Info := Type_Of_Declaration (Decl, Element); 
    695          Prof : Asis.Subtype_Mark; 
    696695      begin 
    697696         if not Is_Not_Type (Tipe) then 
    …… 
    699698            Keep := False; 
    700699         elsif Parameterless (Decl) then 
    701             Prof := Get_Result_Profile (Decl); 
    702             Tipe := Type_From_Subtype_Mark (Prof, Element); 
     700            Tipe := Type_From_Indication (Get_Result_Subtype (Decl), Element); 
    703701 
    704702            if Is_Not_Type (Tipe) then