[patch] perl patch for FreeMiNT

mint.diff (text/plain), 2.11 KB, created by Alan Hourihane on 2014-04-08 22:06:00 UTC

http://rt.perl.org/rt3/Ticket/Display.html?id=89502

--- perl-5.12.3/Configure	2011-02-21 09:18:09.000000000 +0000
+++ perl-5.12.3/Configure	2011-02-21 09:38:49.000000000 +0000
@@ -1275,6 +1275,9 @@ 
 elif test -n "$DJGPP"; then
 : DOS DJGPP
     _exe=".exe"
+elif test -f "/kern/cookiejar"; then
+: MiNT
+    _exe=""
 elif test -d c:/. -o -n "$is_os2" ; then
 : OS/2 or cygwin
     _exe=".exe"
--- perl-5.12.3/ext/DynaLoader/dl_dld.xs	2010-11-21 21:40:55.000000000 +0000
+++ perl-5.12.3/ext/DynaLoader/dl_dld.xs	2011-02-21 09:38:51.000000000 +0000
@@ -116,6 +116,18 @@ 
 	goto haverror;
     }
 
+    DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dld_link(libm.a)\n"));
+    if (dlderr = dld_link("/usr/lib/libm.a")) {
+	SaveError(aTHX_ "dld_link(libm.a): %s", dld_strerror(dlderr));
+	goto haverror;
+    }
+
+    DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dld_link(libc.a)\n"));
+    if (dlderr = dld_link("/usr/lib/libc.a")) {
+	SaveError(aTHX_ "dld_link(libc.a): %s", dld_strerror(dlderr));
+	goto haverror;
+    }
+
     max = AvFILL(dl_resolve_using);
     for (x = 0; x <= max; x++) {
 	char *sym = SvPVX(*av_fetch(dl_resolve_using, x, 0));
--- perl-5.12.3/hints/freemint.sh	2011-01-09 20:20:58.000000000 +0000
+++ perl-5.12.3/hints/freemint.sh	2011-02-21 09:38:51.000000000 +0000
@@ -0,0 +1,34 @@ 
+# hints/freemint.sh
+#
+# talk to [e-mail] if you want to change this file.
+# Please read the README.mint file.
+#
+# misc stuff
+
+archname="m68k-freemint"
+
+cccdlflags=' '; # avoid -fPIC
+ccdlflags="-Wl,-whole-archive -lgcc -lpthread -Wl,-no-whole-archive"
+
+# libs
+libpth="$prefix/lib /usr/local/lib /usr/lib"
+glibpth="$libpth"
+xlibpth="$libpth"
+
+ccflags="$ccflags -D_GNU_SOURCE"
+libswanted='m dld'
+dl_src='dl_dld.xs'
+dlext='o'
+lddlflags='-r'
+ldflags='-static'
+so='none'
+useshrplib='false'
+
+#sbrk() returns -1 (failure) somewhere in lib/unicore/mktables at
+#around 14M, so we need to use system malloc() as our sbrk()
+malloc_cflags='ccflags="-DUSE_PERL_SBRK -DPERL_SBRK_VIA_MALLOC $ccflags"'
+
+# Locales aren't feeling well. We crash if -Ox used.
+locale_cflags='optimize="-O0"'
+LC_ALL=C; export LC_ALL;
+LANG=C; export LANG;