From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	SUBJ_ALL_CAPS autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,88f49a7660ea3e47
X-Google-Attributes: gid103376,public
From: stt@houdini.camb.inmet.com (Tucker Taft)
Subject: Re: PLEASE HELP ME
Date: 1998/10/22
Message-ID: <F183EM.ME6.0.-s@inmet.camb.inmet.com>#1/1
X-Deja-AN: 403867842
Sender: news@inmet.camb.inmet.com (USENET news)
X-Nntp-Posting-Host: houdini.camb.inmet.com
References: <70lmqq$pvc@sjx-ixn9.ix.netcom.com>
Organization: Intermetrics, Inc.
Newsgroups: comp.lang.ada
Date: 1998-10-22T00:00:00+00:00
List-Id: <comp.lang.ada>

DENIS (denis23@ix.netcom.com) wrote:

:     Please , I do not have any clue in Ada95, but I do have to know how to
: determine the order parameters are put on the stack.

:     Please write as soons is possible.

This is implementation-dependent.  Perhaps it would be in the
documentation provided by the Ada vendor, in the area of interfacing
with assembly language.  Furthermore, note that these days, not
all parameters are passed on the stack.  For most RISC machines,
at least a few parameters are passed in registers.

You could write your own test case using 'Address which might tell you
something.  E.g.:

  with system.storage_elements; use system.storage_elements;
  with ada.text_io; use ada.text_io;
  procedure stack_order is
    procedure p(A, B, C, D, E, F, G, H, I, J : Integer) is
    begin
      put_line("A'address = " & Integer_Address'Image(To_Integer(A'Address)));
      put_line("B'address = " & Integer_Address'Image(To_Integer(B'Address)));
      put_line("C'address = " & Integer_Address'Image(To_Integer(C'Address)));
      ...
    end p;
  begin
    p(1,2,3,4,5,6,7,8,9,10);
  end stack_order;

:              This is my email : datodia@hotmail.com

--
-Tucker Taft   stt@inmet.com   http://www.inmet.com/~stt/
Intermetrics, Inc.  Burlington, MA  USA
An AverStar Company