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.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Received: by 2002:a6b:2090:: with SMTP id
 g138-v6mr1065558iog.85.1527256330462;
        Fri, 25 May 2018 06:52:10 -0700 (PDT)
X-Received: by 2002:a9d:5c8d:: with SMTP id a13-v6mr392859oti.0.1527256329991;
 Fri, 25 May 2018 06:52:09 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!border1.nntp.ams1.giganews.com!nntp.giganews.com!newsreader5.netcologne.de!news.netcologne.de!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.am4!peer.am4.highwinds-media.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!u74-v6no2142238itb.0!news-out.google.com!f20-v6ni1874itd.0!nntp.google.com!v8-v6no2142051itc.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Fri, 25 May 2018 06:52:09 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=165.225.104.86;
 posting-account=EWTGMQoAAADhS5cwtD90HGCjb7cF0szF
NNTP-Posting-Host: 165.225.104.86
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <e7839a03-f2bf-4c6f-80cb-58b38792e247@googlegroups.com>
Subject: undefined reference while calling an imported c function as procedure
 in ada
From: boonflies@gmail.com
Injection-Date: Fri, 25 May 2018 13:52:10 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 1676
X-Received-Body-CRC: 2762999427
Xref: reader02.eternal-september.org comp.lang.ada:52673
Date: 2018-05-25T06:52:09-07:00
List-Id: <comp.lang.ada>

We receive, undefined reference to `CLIENT_CR', while linking.

The code we are building
In Tftp.h

`void CLIENT_CR
(
    CREATE_INFO *  CreateInfo, 
    ID         *  SessionId,
    RESULT  *  Result 
);`

2. In Tftp.ads
`procedure CLIENT_CR( CreateInfo : in  Tpkg.CREATE_INFO;
                              SessionId  : out Tpkg.ID;
                             Result     : out RESULT );

   pragma Import (C, CLIENT_CR, "CLIENT_CR");`

3. In main.adb
`#With TFTP;

...
TFTP.CLIENT_CR(INFO,ID,RESULT)`