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

Re: gv.c is not acceptable for Borland now

Thread Previous | Thread Next
From:
Jarkko Hietaniemi
Date:
July 2, 2001 05:53
Subject:
Re: gv.c is not acceptable for Borland now
Message ID:
20010702075316.B19034@chaos.wustl.edu
On Mon, Jul 02, 2001 at 12:22:44PM +0200, Konovalov, Vadim Vladimirovich (Vadim) wrote:
> Hello all,
> 
> I've discovered that Borland C++ does not accepts a construct in gv.c (it explains that '#' is unexpected here, i.e. some preprocessor failure)
> 
> I've marked them as //vv in patch in order to build perl, but real patch must be smarter than this.
> 
> someone who wrote these lines, please change them in a more clever for other compilers way.

Yeah, my bad (#11051).  All the compilers I used were able to compile
that code, with and without DEBUGGING...

> diff -u -r perl@11059-orig/gv.c perl@11059/gv.c
> --- perl@11059-orig/gv.c	Sun Jul  1 01:21:34 2001
> +++ perl@11059/gv.c	Mon Jul  2 10:13:14 2001
> @@ -1365,9 +1365,9 @@
>  #endif
>    if (!(AMGf_noleft & flags) && SvAMAGIC(left)
>        && (mg = mg_find((SV*)(
> -#ifdef DEGUGGING
> +//vv #ifdef DEGUGGING
>  			     stash=
> -#endif
> +//vv #endif
>  			     SvSTASH(SvRV(left))),
>  			PERL_MAGIC_overload_table))
>        && (ocvp = cvp = (AMT_AMAGIC((AMT*)mg->mg_ptr)
> @@ -1487,9 +1487,9 @@
>  	 if (!cv) goto not_found;
>      } else if (!(AMGf_noright & flags) && SvAMAGIC(right)
>  	       && (mg = mg_find((SV*)(
> -#ifdef DEBUGGING
> +//vv #ifdef DEBUGGING
>  				      stash=
> -#endif
> +//vv #endif
>  				      SvSTASH(SvRV(right))),
>  			PERL_MAGIC_overload_table))
>  	       && (cvp = (AMT_AMAGIC((AMT*)mg->mg_ptr)
> 
> Bets wishes,
> <!ENTITY Vadim REALLIFE "Vadim V.Konovalov, St.Petersburg, Russia">
> &Vadim;

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

Thread Previous | 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