Changeset 2650

Show
Ignore:
Timestamp:
05/11/08 18:11:40 (6 months ago)
Author:
maxr
Message:

ada: fix broken regression test on parameterless procedure

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r2647 r2650  
    692692         Keep :    out Boolean) 
    693693      is 
    694          Tipe : Type_Info := Type_Of_Declaration (Decl, Element); 
     694         Subtipe : Asis.Definition; 
     695         Tipe    : Type_Info := Type_Of_Declaration (Decl, Element); 
    695696      begin 
    696697         if not Is_Not_Type (Tipe) then 
    …… 
    698699            Keep := False; 
    699700         elsif Parameterless (Decl) then 
    700             Tipe := Type_From_Indication (Get_Result_Subtype (Decl), Element); 
    701  
    702             if Is_Not_Type (Tipe) then 
     701            Subtipe := Get_Result_Subtype (Decl); 
     702 
     703            if not Assigned (Subtipe) then 
     704               --  Parameterless procedure 
    703705               Keep := True; 
    704706            else 
     707               Tipe := Type_From_Indication (Subtipe, Element); 
     708 
    705709               Add_Expr (Tipe, Call => True, Down => (A_Declaration, Decl)); 
    706710