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: SPANISH,ASCII
X-Google-Thread: 103376,f94d6c9f97829e0c,start
X-Google-Attributes: gid103376,public
From: Alejandro Villanueva <190921@cepsz.unizar.es>
Subject: [Fwd: Compile with C code...]
Date: 2000/10/19
Message-ID: <39EEF80B.1242805C@cepsz.unizar.es>#1/1
X-Deja-AN: 683390988
Content-Type: multipart/mixed; boundary="------------EBF6D47781073A9905B88475"
X-Complaints-To: usenet@news.unizar.es
X-Trace: news.unizar.es 971963324 30273 155.210.155.32 (19 Oct 2000 13:48:44
 GMT)
Organization: Universidad de Zaragoza
Mime-Version: 1.0
NNTP-Posting-Date: 19 Oct 2000 13:48:44 GMT
Newsgroups: comp.lang.ada
Date: 2000-10-19T13:48:44+00:00
List-Id: <comp.lang.ada>

This is a multi-part message in MIME format.
--------------EBF6D47781073A9905B88475
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit



--
------------------------------------------------------
�Quieres Cobrar por Navegar en Internet?
Visita: http://www.navegana.com/dinero/flintstone.html
------------------------------------------------------
Alejandro Villanueva
190921@cepsz.unizar.es
------------------------------------------------------



--------------EBF6D47781073A9905B88475
Content-Type: message/rfc822
Content-Transfer-Encoding: 8bit
Content-Disposition: inline

Path: news.unizar.es!not-for-mail
From: Alejandro Villanueva <190921@cepsz.unizar.es>
Newsgroups: gnu.gnats.bug
Subject: Compile with C code...
Date: Thu, 19 Oct 2000 15:22:59 +0200
Organization: Universidad de Zaragoza
Message-ID: <39EEF5B3.77B96143@cepsz.unizar.es>
NNTP-Posting-Host: 155.210.155.32
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="------------53ED5E67F872BCA251F8B738"
X-Trace: news.unizar.es 971962724 30273 155.210.155.32 (19 Oct 2000 13:38:44
 GMT)
X-Complaints-To: usenet@news.unizar.es
NNTP-Posting-Date: 19 Oct 2000 13:38:44 GMT
X-Mailer: Mozilla 4.07 [en] (X11; I; Linux 2.0.36 i686)
Xref: news.unizar.es gnu.gnats.bug:156

This is a multi-part message in MIME format.
--------------53ED5E67F872BCA251F8B738
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

Hi you all,

I'm not sure if this is a good place to ask this but: how do I call an
Ada procedure from a C main program using GNAT 3.11p

I followed the user's guide instructions but didn't work !!

These are my files attached.

Thanks!

--
------------------------------------------------------
�Quieres Cobrar por Navegar en Internet?
Visita: http://www.navegana.com/dinero/flintstone.html
------------------------------------------------------
Alejandro Villanueva
190921@cepsz.unizar.es
------------------------------------------------------



--------------53ED5E67F872BCA251F8B738
Content-Type: text/plain; charset=us-ascii; name="hola.adb"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="hola.adb"

with Text_IO; use Text_IO;
procedure Hola is
begin
   Put_Line ("Hola!");
end Hola;


--------------53ED5E67F872BCA251F8B738
Content-Type: text/plain; charset=us-ascii; name="hola.ads"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="hola.ads"

procedure Hola;
pragma Export (C, Hola, "ada_hola");


--------------53ED5E67F872BCA251F8B738
Content-Type: text/plain; charset=us-ascii; name="main.c"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="main.c"

void main(void) {
   adainit();
   ada_hola();
   adafinal();
}


--------------53ED5E67F872BCA251F8B738--


--------------EBF6D47781073A9905B88475--