paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* improve DJGPP output

Browse Source 
git-svn-id: trunk@14161 -
This commit is contained in:
pierre 2009-11-12 21:05:19 +00:00
parent 59d72f12d7
commit 5c2749d8ab
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/gdbint/gen-gdblib-inc.sh
View File

@ -3,10 +3,16 @@
if [ "$1" != "" ]; then if [ "$1" != "" ]; then
destdir=$1 destdir=$1
fi fi
if [ "$PATHEXT" != "" ]; then if [ "${PATHEXT}" != "" ]; then
EXEEXT=.exe EXEEXT=.exe
if [ "${DJDIR}" != "" ]; then
libdir=${DJDIR}/lib
else
libdir=/lib
fi
else else
EXEEXT= EXEEXT=
libdir=/libdir
fi fi
echo "Deleting gdb${EXEEXT} to force recompile" echo "Deleting gdb${EXEEXT} to force recompile"
@ -51,7 +57,7 @@ if ( doprint == 1 ) {
' | tee comp-cmd.log ' | tee comp-cmd.log
# Try to locate all libraries # Try to locate all libraries
echo Creating ./copy-libs.sh script echo Creating ./copy-libs.sh script
cat comp-cmd.log |gawk -v destdir=${destdir} ' cat comp-cmd.log |gawk -v destdir=${destdir} -v libdir=${libdir} '
BEGIN { BEGIN {
print "#!/bin/bash" print "#!/bin/bash"
print "# copy-libs.sh generated by awk script" print "# copy-libs.sh generated by awk script"
@ -78,7 +84,7 @@ BEGIN {
} }
if ( list[i] ~ /-l/ ) { if ( list[i] ~ /-l/ ) {
systemlib = gensub (/-l([^ ]*)/,"lib\\1.a ","g",list[i]); systemlib = gensub (/-l([^ ]*)/,"lib\\1.a ","g",list[i]);
print "systemlib=`find /lib -name " systemlib "`" ; print "systemlib=`find " libdir " -name " systemlib "`" ;
print "if [ \"${systemlib}\" != \"\" ]; then"; print "if [ \"${systemlib}\" != \"\" ]; then";
print "echo System lib found: ${systemlib}"; print "echo System lib found: ${systemlib}";
print "cp ${systemlib} ${destdir}"; print "cp ${systemlib} ${destdir}";