Resynced with upx 1.2 branch.

committer: mfx <mfx> 1031577224 +0000

src/stub/scripts/app_i386.pl

@@ -1,6 +1,6 @@
 #! /usr/bin/perl -w
 #
-#  app.pl -- assembly preprocessor for upx
+#  app_i386.pl -- assembly preprocessor for upx
 #
 #  This file is part of the UPX executable compressor.
 #

src/stub/scripts/app_m68k.pl

@@ -1,6 +1,6 @@
 #! /usr/bin/perl -w
 #
-#  app_68k.pl -- assembly preprocessor for upx
+#  app_m68k.pl -- assembly preprocessor for upx
 #
 #  This file is part of the UPX executable compressor.
 #
@@ -28,7 +28,7 @@
 #
 
 #
-# usage: app_68k.pl infile outfile
+# usage: app_m68k.pl infile outfile
 #
 
 $in = shift || die;

src/stub/scripts/app_mr3k.pl

@@ -1,6 +1,6 @@
 #! /usr/bin/perl -w
 #
-#  app_r3k.pl -- assembly preprocessor for upx
+#  app_mr3k.pl -- assembly preprocessor for upx
 #
 #  This file is part of the UPX executable compressor.
 #
@@ -28,7 +28,7 @@
 #
 
 #
-# usage: app_r3k.pl infile outfile
+# usage: app_mr3k.pl infile outfile
 #
 
 $in = shift || die;

src/stub/scripts/asl_m68k.sh

@@ -0,0 +1,50 @@
+#! /bin/sh
+#
+#  asl_m68k.sh --
+#
+#  This file is part of the UPX executable compressor.
+#
+#  Copyright (C) 1996-2002 Markus Franz Xaver Johannes Oberhumer
+#  Copyright (C) 1996-2002 Laszlo Molnar
+#  All Rights Reserved.
+#
+#  UPX and the UCL library are free software; you can redistribute them
+#  and/or modify them under the terms of the GNU General Public License as
+#  published by the Free Software Foundation; either version 2 of
+#  the License, or (at your option) any later version.
+#
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with this program; see the file COPYING.
+#  If not, write to the Free Software Foundation, Inc.,
+#  59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+#  Markus F.X.J. Oberhumer              Laszlo Molnar
+#  <mfx@users.sourceforge.net>          <ml1050@users.sourceforge.net>
+#
+
+set -e
+
+# wrapper for the ASL cross-assembler (version 1.42bld9)
+#   http://john.ccac.rwth-aachen.de:8000/as/
+#   http://john.ccac.rwth-aachen.de:8000/ftp/as/source/c_version/
+
+file="$1"
+test -f "$file" || exit 1
+
+ofile=`echo "$file" | sed 's/\.[a-z]*$/.o/'`
+
+# convert ' to " in dc.x statements
+perl -p -i -e '
+  s,\x27,",g if m,^\s*dc\.,;
+' "$file"
+
+echo asl -q -xC -U -cpu 68000 -o "$ofile" -L "$file"
+     asl -q -xC -U -cpu 68000 -o "$ofile" -L "$file"
+
+exit 0
+

src/stub/scripts/bin2h.pl

@@ -53,7 +53,7 @@ if (1 && $st[7] <= 0) {
 }
 if (1 && $st[7] > 64*1024) {
     print STDERR "$ifile: ERROR: file is too big (${st[7]} bytes)\n";
-    if ($st[7] > 1024*1024) {
+    if ($ifile =~ /^fold/) {
         print STDERR "  (please upgrade your binutils to 2.12.90.0.15 or better)\n";
     }
     exit(1);