develooper Front page | perl.perl5.porters | Postings from January 2001

[perl-5-6-1-trial2] patches for EPOC

Thread Next
From:
Olaf Flebbe
Date:
January 31, 2001 14:15
Subject:
[perl-5-6-1-trial2] patches for EPOC
Message ID:
Pine.LNX.4.02.10101312314470.5682-100000@milkyway.science-computing.de
Hi,

some patches relative to perl-5-6-1-trial2 for EPOC.

The sv.c seems to be a general fix needed. It may even be wrong, but
perl doesn't compile for me without it (does not have locales).

Cheers
  Olaf

Index: sv.c
===================================================================
RCS file: /home/of/devel/CVS/perl/sv.c,v
retrieving revision 1.1.1.5
diff -u -r1.1.1.5 sv.c
--- sv.c	2001/01/31 20:53:26	1.1.1.5
+++ sv.c	2001/01/31 21:34:58
@@ -1952,9 +1952,11 @@
 	    || (specialradix = IS_NUMERIC_RADIX(s))
 #endif
 	    ) {
+#ifdef USE_LOCALE_NUMERIC
 	    if (specialradix)
 		s += SvCUR(PL_numeric_radix_sv);
 	    else
+#endif
 		s++;
 	    numtype |= IS_NUMBER_NOT_IV;
             while (isDIGIT(*s))  /* optional digits after the radix */
@@ -1966,9 +1968,11 @@
 	    || (specialradix = IS_NUMERIC_RADIX(s))
 #endif
 	    ) {
+#ifdef USE_LOCALE_NUMERIC
 	if (specialradix)
 	    s += SvCUR(PL_numeric_radix_sv);
 	else
+#endif
 	    s++;
 	numtype |= IS_NUMBER_TO_INT_BY_ATOL | IS_NUMBER_NOT_IV;
         /* no digits before the radix means we need digits after it */
Index: epoc/epocish.c
===================================================================
RCS file: /home/of/devel/CVS/perl/epoc/epocish.c,v
retrieving revision 1.1.1.4
diff -u -r1.1.1.4 epocish.c
--- epoc/epocish.c	2001/01/31 20:53:27	1.1.1.4
+++ epoc/epocish.c	2001/01/31 21:54:43
@@ -90,5 +90,5 @@
 #if 0
 void epoc_spawn_posix_server() {
   SpawnPosixServerThread(); 
-#endif
 }
+#endif
Index: ext/Errno/Errno_pm.PL
===================================================================
RCS file: /home/of/devel/CVS/perl/ext/Errno/Errno_pm.PL,v
retrieving revision 1.1.1.2
diff -u -r1.1.1.2 Errno_pm.PL
--- ext/Errno/Errno_pm.PL	2000/11/15 21:14:09	1.1.1.2
+++ ext/Errno/Errno_pm.PL	2001/01/31 22:08:21
@@ -85,6 +85,9 @@
     } elsif ($^O eq 'vmesa') {
 	# OS/390 C compiler doesn't generate #file or #line directives
 	$file{'../../vmesa/errno.h'} = 1;
+    } elsif ($Config{archname} eq 'epoc') {
+	# Watch out for cross compiling for EPOC (usually done on linux)
+	$file{'/usr/local/epoc/include/libc/sys/errno.h'} = 1;
     } elsif ($^O eq 'linux') {
 	# Some Linuxes have weird errno.hs which generate
 	# no #file or #line directives


  Dr. Olaf Flebbe                            Phone +49 (0)7071-9457-254
  science + computing gmbh                     FAX +49 (0)7071-9457-511
  Hagellocher Weg 73
  D-72070 Tuebingen  Email: o.flebbe@science-computing.de

           Microsoft has inertia. Linux has Momentum.


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About