Re: what to use in place of old gnatbl in newer GNAT ?

[Simon Wright <simon@pushface.org>]

"Nasser M. Abbasi" <nma@12000.org> writes:

> I am trying to build some tests for the ada lapack binding that I
> obtained from
>
> ftp://ftp.cs.kuleuven.be/pub/Ada-Belgium/mirrors/gnu-ada/OLD/contrib/lapack-ada/
>
> One of the tests (in the folder lapada/test/interf/ after extracting
> the above tar file) uses a Makefile which uses an old GNAT command
> which is no longer available in newer gnat 2012.
>
> This command is gnatbl as described here
>
> http://www.adahome.com/Resources/Compilers/GNAT-info.html#3
>
> The makefile does this:
>
> ------------------
> cxbi: cxbi.ali ifinc.o
> 	gnatbl cxbi.ali ifinc.o $(LIBF)
> -------------------
>
> So, I need to replace the above command based on what I
> understood gnatbl did. But my attempts to that all are
> not working (trying gnatbind/gnatlink, gnatmake, etc...) I
> am not sure how to duplicate what the above line is supposed
> to be doing.  My $(LIBF) is
>
> LIBF = -lgfortran -lm -static
>
> I am not really familiar with details of these commands. I only use
> gnatmake.
>
> I was wondering if someone knows what is the correct sequence of
> gnat 2012 commands to replace gnatbl with? Or better, is there a way
> to download gnatbl to use with gnat 2012? I googled and not able
> to find one.

I would use gnatmake!

cxbi: cxbi.adb ifinc.o
      gnatmake cxbi.adb -largs ifinc.o -lgfortran

or if you prefer

cxbi: cxbi.adb ifinc.o
      gnatmake cxbi.adb =static -largs ifinc.o -lgfortran -lm

However, neither seems to work! With GCC:

Target: x86_64-apple-darwin11
Configured with: ../gcc-4.7.0/configure --prefix=/opt/gcc-4.7.0 --disable-bootstrap --disable-multilib --enable-languages=c,ada,fortran,c++ --build=x86_64-apple-darwin11
Thread model: posix
gcc version 4.7.0 (GCC) 

I get

$ ./cxbi 
Integer number passing:
mode: in out in/out
Ada send:
          1          1          1
 Fortran get:
           1           1           1
 Fortran send:
           2           2           2
Ada recieve:
          1          2          2
Ada send:
         -1         -1         -1
 Fortran get:
          -1          -1          -1
 Fortran send:
           0           0           0
Ada recieve:
         -1          0          0