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

gv.c is not acceptable for Borland now

Thread Next
From:
vkonovalov
Date:
July 2, 2001 03:22
Subject:
gv.c is not acceptable for Borland now
Message ID:
E3FB32585BF1D411B9E900805FF51A08074B3A@RU0022EXCH001U
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.

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;

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