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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,bc23fdf9fe2f2080
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-02-28 10:30:11 PST
Sender: jerry@JVDSYS
Newsgroups: comp.lang.ada
Subject: Re: Interfacing a subprogram from C.
References: <a5lhck$6va$1@polaris.cc.upv.es>
From: Jerry van Dijk <jvandyk@attglobal.net>
Date: 28 Feb 2002 19:15:43 +0100
Message-ID: <wkn0xt4gmo.fsf@attglobal.net>
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
NNTP-Posting-Host: 139.92.238.29
X-Trace: 28 Feb 2002 18:25:38 GMT, 139.92.238.29
Organization: Global Network Services - Remote Access Mail & News Services
X-Complaints-To: abuse@prserv.net
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!newsfeed.us.prserv.net!prserv.net!news3.prserv.net!139.92.238.29
Xref: archiver1.google.com comp.lang.ada:20590
Date: 2002-02-28T19:15:43+01:00
List-Id: <comp.lang.ada>

"Pedro Jose Garcia Gil" <pggil@isa.upv.es> writes:

> $gcc -c pepe.c
> What am I doing wrong?.

Your C object file is called pepe.o
 
> It's necessary to compile with other options or include some file in
> somewhere?.

More portable is:

*** c_part.c ***************************************************************
#include <stdio.h>

void c_part(int i)
{
  printf("c_part received: %d\n", i);
}
****************************************************************************

*** ada_part.adb ***********************************************************
with Interfaces.C;

procedure Ada_Part is

   procedure C_Part (I : Interfaces.C.int);
   pragma Import (C, C_Part, "c_part");
   pragma Linker_Options ("c_part.o");

begin
   C_Part (7);
end Ada_Part;
****************************************************************************

****************************************************************************
C_PART   C              87  28-02-02  19:07 c_part.c
ADA_PART ADB           213  28-02-02  19:10 ada_part.adb

C:\Home\work>gcc -c -o c_part.o c_part.c

C:\Home\work>gnatmake ada_part
gcc -c ada_part.adb
gnatbind -x ada_part.ali
gnatlink ada_part.ali

C:\Home\work>ada_part
c_part received: 7
****************************************************************************

-- 
--  Jerry van Dijk   | email: jvandyk@attglobal.net
--  Leiden, Holland  | web:   users.ncrvnet.nl/gmvdijk