Hello Frank and Waldek!
FH> already, otherwise you wouldn't have seen this message)? If no other FH> message appeared after the above, it may even be that everything was FH> compiled successfully. Did you check that it wasn't?
Sure it doesn't. Here are the data:
================================= Command line and gp's output: [igor@marnat2 test]$ make gp PC=ppc-linux-gpc -v -Wl,-v testpas.pas ppc-linux-gpc -dumpmachine ppc-linux-gpc -dumpversion ppc-linux-gpc -print-file-name=units ppc-linux-gpc --print-needed-options -x Preprocessed-Pascal /var/tmp/GPaaa00736 ppc-linux-gpc -I /home/igor/tmp/test/ -I /home/igor/tmp/test/ -I . -I /home/igor/src-big/ELDK4.0/usr/lib/gcc/ppc-linux/4.0.3/units -I /home/igor/tmp/test/ --unit-path=/home/igor/tmp/test/ -E -H /home/igor/tmp/test/testpas.pas ppc-linux-gpc -I /home/igor/tmp/test/ -I /home/igor/tmp/test/ -I . -I /home/igor/src-big/ELDK4.0/usr/lib/gcc/ppc-linux/4.0.3/units -I /home/igor/tmp/test/ -E -H /home/igor/tmp/test/test.c TOTAL : 0.00 0.00 0.00 make: *** [all] Error 1
================================= Software versions: [igor@marnat2 test]$ gp --version GP version 0.61 (GNU Pascal Make Utility) Copyright (C) 2000-2005 Free Software Foundation, Inc.
GP and GNU Pascal come with NO WARRANTY, to the extent permitted by law. You may redistribute copies of GP and GNU Pascal under the terms of the GNU General Public License. For more information about these matters, see the file named COPYING.
Report bugs to gpc@gnu.de.
[igor@marnat2 test]$ ppc-linux-gpc -v Using built-in specs. Configured with: ../configure --prefix=/home/igor/src-big/ELDK4.0/usr --mandir=/usr/share/man --infodir=/usr/share/info --enable-shared --enable-threads=posix --disable-checking --with-system-zlib --enable-__cxa_atexit --disable-libgcj --target=ppc-linux --with-newlib --enable-languages=c,pascal --enable-multilib=no --disable-multilib Thread model: posix gpc version 20060325, based on gcc-4.0.3 (DENX ELDK custom version 4.0.3-1)
================================= testpas.pas:
program test;
{$L test.c}
procedure CInc (var T: byte); external name 'cinc';
var t: byte;
begin t := 5; writeln (t); CInc (t); writeln (t);
end.
test.c: void cinc (unsigned char* t) { (*t)++; return; }
Best regards, Igor Marnat mailto:marny@rambler.ru