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

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

Thread Previous
From:
Jarkko Hietaniemi
Date:
January 31, 2001 15:36
Subject:
Re: [perl-5-6-1-trial2] patches for EPOC
Message ID:
20010131173643.B20543@chaos.wustl.edu
On Wed, Jan 31, 2001 at 11:15:34PM +0100, Olaf Flebbe wrote:
> 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).

The change looks good, not protecting all the uses of PL_numeric_radix
was my fault, sorry about that.

> 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.

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

Thread Previous


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