[fpc-pascal]FPC + GCC

nofxer at matrix.com.br nofxer at matrix.com.br
Fri Aug 17 20:31:48 CEST 2001


Hello,

I'm a begginer in linux programming and I got some problems while trying to
mix pascal and gcc code...

On the pascal side i wrote the following file:

----------- teste.pas---------------
{$LINK testec.o}

program teste_linker;
uses Crt, Linux;

procedure teste_em_c; cdecl; external;

Begin
        teste_em_c;
end.
------eof(teste.pas)------------------

And my gcc source is as follows:

------------testec.c----------------

#include <stdio.h>

void teste_em_c()
{
        printf("Ola Mundo\n");
}

------eof(testec.c)-------------------

I've read how to do that on
http://www.freepascal.org/docs-html/prog/node6.html but the command line
presented in this manual  (using the -Sv switch) shows me an error message,
something like "obsolete option" . So i tryed:

tX mauricio at main:link$ gcc -c testec.c -o testeo.c
tX mauricio at main:link$ fpc teste.pas

Free Pascal Compiler version 1.0.4 [2001/01/22] for i386
Copyright (c) 1993-2000 by Florian Klaempfl
Target OS: Linux for i386
Compiling teste.pas
Assembling teste_linker
Linking teste
testec.o: In function `teste_em_c':
testec.o(.text+0x9): undefined reference to `printf'
teste.pas(10,4) Warning: Error while linking
Closing script ppas.sh
9 Lines compiled, 0.0 sec

After that I tryed the -Xc switch (link with standard C lib),  wich gave me
the same error...

Does anybody knows how to do this?

I've also tryed to compile only (-s option) and link the link.res file with
GCC:

-----------LINK.RES---------------------------------
SEARCH_DIR(/lib/)
SEARCH_DIR(/usr/lib/)
SEARCH_DIR(/usr/X11R6/lib/)
SEARCH_DIR(/usr/lib/gcc-lib/i386-slackware-linux/egcs-2.91.66/)
SEARCH_DIR(/usr/local/lib/fpc/1.0.4/units/linux/rtl/)
SEARCH_DIR(/usr/local/lib/fpc/1.0.4/units/linux/paszlib/)
SEARCH_DIR(/usr/local/lib/fpc/1.0.4/units/linux/api/)
SEARCH_DIR(/usr/local/lib/fpc/1.0.4/units/linux/fcl/)
SEARCH_DIR(/usr/local/lib/fpc/1.0.4/units/linux/)
SEARCH_DIR(/usr/local/lib/fpc/1.0.4/)
INPUT(
/usr/local/lib/fpc/1.0.4/units/linux/rtl/prt0.o
/usr/local/lib/fpc/1.0.4/units/linux/rtl/strings.o
/usr/local/lib/fpc/1.0.4/units/linux/rtl/linux.o
/usr/local/lib/fpc/1.0.4/units/linux/rtl/crt.o
/usr/local/lib/fpc/1.0.4/units/linux/rtl/syslinux.o
teste.o
testec.o
)
------------------------------------------------

But:

tX mauricio at main:link$ gcc link.res
/usr/local/lib/fpc/1.0.4/units/linux/rtl/prt0.o: In function `_start':
/usr/local/lib/fpc/1.0.4/units/linux/rtl/prt0.o(.text+0x0): multiple
definition of `_start'
/usr/lib/crt1.o(.text+0x0): first defined here
collect2: ld returned 1 exit status

Please, could anyone tell me what is wrong?
I'm trying to port TP7 code and there are some things that I would like to
rewrite in C, for future expansions.... Can you help me ?

Best regards,
Mauricio



				







More information about the fpc-pascal mailing list