Change 14367 by jhi@alpha on 2002/01/21 14:29:05
path_is_absolute() needs a prototype (and maybe
a better name, but that's another story).
Affected files ...
.... //depot/perl/embed.fnc#12 edit
.... //depot/perl/embed.h#333 edit
.... //depot/perl/pp_ctl.c#301 edit
.... //depot/perl/proto.h#375 edit
Differences ...
==== //depot/perl/embed.fnc#12 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc.~1~ Mon Jan 21 07:45:05 2002
+++ perl/embed.fnc Mon Jan 21 07:45:05 2002
@@ -1077,6 +1077,7 @@
s |void |save_lines |AV *array|SV *sv
s |OP* |doeval |int gimme|OP** startop
s |PerlIO *|doopen_pmc |const char *name|const char *mode
+s |bool |path_is_absolute|char *name
#endif
#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
==== //depot/perl/embed.h#333 (text+w) ====
Index: perl/embed.h
--- perl/embed.h.~1~ Mon Jan 21 07:45:05 2002
+++ perl/embed.h Mon Jan 21 07:45:05 2002
@@ -1001,6 +1001,7 @@
#define save_lines S_save_lines
#define doeval S_doeval
#define doopen_pmc S_doopen_pmc
+#define path_is_absolute S_path_is_absolute
#endif
#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
#define do_maybe_phash S_do_maybe_phash
@@ -2546,6 +2547,7 @@
#define save_lines(a,b) S_save_lines(aTHX_ a,b)
#define doeval(a,b) S_doeval(aTHX_ a,b)
#define doopen_pmc(a,b) S_doopen_pmc(aTHX_ a,b)
+#define path_is_absolute(a) S_path_is_absolute(aTHX_ a)
#endif
#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
#define do_maybe_phash(a,b,c,d,e) S_do_maybe_phash(aTHX_ a,b,c,d,e)
==== //depot/perl/pp_ctl.c#301 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c.~1~ Mon Jan 21 07:45:05 2002
+++ perl/pp_ctl.c Mon Jan 21 07:45:05 2002
@@ -3692,8 +3692,8 @@
/* perhaps someone can come up with a better name for
this? it is not really "absolute", per se ... */
-bool
-path_is_absolute(char *name)
+static bool
+S_path_is_absolute(pTHX_ char *name)
{
if (PERL_FILE_IS_ABSOLUTE(name)
#ifdef MACOS_TRADITIONAL
==== //depot/perl/proto.h#375 (text+w) ====
Index: perl/proto.h
--- perl/proto.h.~1~ Mon Jan 21 07:45:05 2002
+++ perl/proto.h Mon Jan 21 07:45:05 2002
@@ -1112,6 +1112,7 @@
STATIC void S_save_lines(pTHX_ AV *array, SV *sv);
STATIC OP* S_doeval(pTHX_ int gimme, OP** startop);
STATIC PerlIO * S_doopen_pmc(pTHX_ const char *name, const char *mode);
+STATIC bool S_path_is_absolute(pTHX_ char *name);
#endif
#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
End of Patch.
