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=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,fc95c1889fbed9e5 X-Google-Attributes: gid103376,public From: Ken Garlington Subject: Re: C Interface question Date: 1996/07/11 Message-ID: <31E4B68B.52B5@lfwc.lockheed.com>#1/1 X-Deja-AN: 167813060 references: content-type: text/plain; charset=us-ascii organization: Lockheed Martin Tactical Aircraft Systems mime-version: 1.0 newsgroups: comp.lang.ada x-mailer: Mozilla 2.02 (Macintosh; I; 68K) Date: 1996-07-11T00:00:00+00:00 List-Id: Robert Dewar wrote: > Dec has a pragma Import_Valued_Procedure that allows a function in the > external world to be treated as a procedure with an initial out parameter > that is the returned value on the Ada side. Using this pragma, we would > have a third way of interfacing: > > procedure C_Function > (Return_Val : out int; Value : int; Result : in out int); > > pragma Import (C, C_Function); > pragma Import_Valued_Procedure > (Internal => C_Function, > External => "function", > Mechanism => (value, value, reference)); > > This pragma (and all other DEC Ada pragmas and attributes) will be fully > implemented in the next version of GNAT (some of them only make sense on > VMS, but many of them, like the above example, are generally useful). Is there a paper available on which DEC Ada extensions will be implemented "generally" in GNAT (beyond just the ports to DEC hardware)? There's probably going to be quite a bit of software written with DEC Ada that will be ported to non-DEC hardware over the next several years; if GNAT is a good way to facilitate that migration, you might want to make that generally known... -- LMTAS - "Our Brand Means Quality"