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.3 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,2a5f6199c3cc0e8b
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.73.233 with SMTP id o9mr2039483pbv.8.1320207525856;
        Tue, 01 Nov 2011 21:18:45 -0700 (PDT)
MIME-Version: 1.0
Path: 
 p6ni60606pbn.0!nntp.google.com!news2.google.com!news4.google.com!feeder2.cambriumusenet.nl!feed.tweaknews.nl!195.114.241.69.MISMATCH!feeder.news-service.com!aioe.org!.POSTED!not-for-mail
From: anon@att.net
Newsgroups: comp.lang.ada
Subject: Re: Calling Ada from C (linux/gnat 4.3.2)
Date: Wed, 2 Nov 2011 04:17:42 +0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <j8qg94$g58$1@speranza.aioe.org>
References: 
 <8ba649f0-7ca1-4f05-a158-74b074e401ee@o19g2000vbk.googlegroups.com>
Reply-To: anon@anon.org
NNTP-Posting-Host: Hkz0H+wuEsNrBWsNKb2ZkQ.user.speranza.aioe.org
X-Complaints-To: abuse@aioe.org
X-Notice: Filtered by postfilter v. 0.8.2
X-Newsreader: IBM NewsReader/2 2.0
Xref: news2.google.com comp.lang.ada:14272
Date: 2011-11-02T04:17:42+00:00
List-Id: <comp.lang.ada>

Within C use normal external calling

extern <name> <arg list>


And in Ada use a specification file to declare routine.

 procedure <name> ( arg list ) ;
   pragma Export ( C, <name> ) ;

or you could use
   pragma Export ( C, <name>, "<linked name>" ) ;

In Ada the routine may or may not be in a package.


In <8ba649f0-7ca1-4f05-a158-74b074e401ee@o19g2000vbk.googlegroups.com>, awdorrin <awdorrin@gmail.com> writes:
>I am trying to port a program originally written on VxWork to Linux.
>The main program is written in C and spawns new threads and in the new
>threads calls are made to Ada procedures.
>
>In the original program, written with GreenHills AdaMulti, it appears
>that there was a call being made that I am assuming was initializing
>the Ada Runtime's task stack/control block (rts_init_task()) - however
>this is just a guess.
>
>In the version of the program I am migrating, I was seeing things that
>made me believe that the Ada thread's did not have their stacks setup
>properly, so I added the -fstack-check flag to the build.
>
>Now, the C program creates the new thread, which calls the ada
>procedure - and the moment the thread has an opportunity to run - the
>application exits with 'raised STORAGE_ERROR : stack overflow
>detected'
>
>I cannot get gdb to provide me a backtrace, since the program exits.
>If I try to break on the ada procedure name, I get a break, but trying
>to 'step' or 'next' keeps me in the main thread until a 'sleep' call
>lets the other thread run - at which point it raises the exception.
>
>I am assuming that the ada runtime is initializing and the
>STORAGE_ERROR is raised before it gets to execute any of the code in
>my Ada procedure.
>
>I have been trying to search to find what the proper way would be to
>call an Ada procedure from a C pthread, but have had zero luck. I also
>have been unable to determine what the equivalent of the
>'rts_init_task' would be with Gnat.
>
>Any have any ideas?