use gputils or gpasm (from Nathan Hurst)

git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@2079 4a8a32a2-be11-0410-ad9d-d568d2c75423

diff --git a/ChangeLog b/ChangeLog
index ae29dbbf979d7c090bbffd061a8d047ada7bcde6..943bdf0b71e53ef3e9dcc5c791886f78a2e311cb 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2002-08-25  Bernhard Held <bernhard@bernhardheld.de>
+       * support/scripts/inc2h.pl: use gputils or gpasm (from Nathan Hurst)
+
 2002-08-11  Borut Razem <borut.razem@siol.net>
        * support/Util/NewAlloc.c: removed unneeded #include "sdccconf.h" (suggested by Jesus Calvino-Fraga)
 

diff --git a/support/scripts/inc2h.pl b/support/scripts/inc2h.pl
index 15fac7697ba8d3b86663cb2c3d0ee9ae4b79dd6c..c66532b2a8764191a0173f96cd57660a6e8fcf0b 100755 (executable)
--- a/support/scripts/inc2h.pl
+++ b/support/scripts/inc2h.pl
@@ -28,7 +28,16 @@ $processor = shift;
 $path = shift;
 
 $processor = uc $processor;
-$path = "/usr/share/gpasm" if ($path eq '');
+# Nathan Hurst <njh@mail.csse.monash.edu.au>: find gputils on Debian
+if ($path eq '') {
+    if ( -x "/usr/share/gputils") {
+       $path = "/usr/share/gputils";
+    } elsif ( -x "/usr/share/gpasm") {
+       $path = "/usr/share/gpasm";
+    } else {
+       die "Could not find gpasm includes.\n";
+    }
+}
 
 #
 # Read the symbols at the end of this file.