[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