PERL_OBJECTness for change#2595

p4raw-link: @2595 on //depot/cfgperl: 9c007264caa0e1aed57010dc2950fe35f9d8347e

p4raw-id: //depot/perl@2627

diff --git a/embed.pl b/embed.pl
index 5b9be53..46df6c3 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -256,6 +256,10 @@ my @staticfuncs = qw(
     dopoptosub_at
     save_lines
     doeval
+    sv_ncmp
+    sv_i_ncmp
+    amagic_ncmp
+    amagic_i_ncmp
     amagic_cmp
     amagic_cmp_locale
     mul128
@@ -370,6 +374,7 @@ my @staticfuncs = qw(
     debprof
     bset_obj_store
     new_logop
+    simplify_sort
     do_trans_CC_simple
     do_trans_CC_count
     do_trans_CC_complex

diff --git a/op.c b/op.c
index 901995a..d50324a 100644 (file)
--- a/op.c
+++ b/op.c
@@ -51,7 +51,7 @@ static PADOFFSET pad_findlex _((char* name, PADOFFSET newoff, U32 seq,
        CV* startcv, I32 cx_ix, I32 saweval));
 static OP *newDEFSVOP _((void));
 static OP *new_logop _((I32 type, I32 flags, OP **firstp, OP **otherp));
-static void simplify_sort(OP *o);
+static void simplify_sort _((OP *o));
 #endif
 
 STATIC char*
@@ -5092,7 +5092,8 @@ ck_sort(OP *o)
 
     return o;
 }
-static void
+
+STATIC void
 simplify_sort(OP *o)
 {
     register OP *kid = cLISTOPo->op_first->op_sibling; /* get past pushmark */

diff --git a/pod/perlport.pod b/pod/perlport.pod
index d6eb10b..008795c 100644 (file)
--- a/pod/perlport.pod
+++ b/pod/perlport.pod
@@ -197,7 +197,7 @@ S<Mac OS> uses C<:> as a path separator instead of C</>.
 The filesystem may support neither hard links (C<link()>) nor
 symbolic links (C<symlink()>, C<readlink()>, C<lstat()>).
 
-The filesystem may not support neither access timestamp nor change
+The filesystem may support neither access timestamp nor change
 timestamp (meaning that about the only portable timestamp is the
 modification timestamp), or one second granularity of any timestamps
 (e.g. the FAT filesystem limits the time granularity to two seconds).

diff --git a/proto.h b/proto.h
index 8e6e363..e536733 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -757,6 +757,10 @@ I32 dopoptosub _((I32 startingblock));
 I32 dopoptosub_at _((PERL_CONTEXT* cxstk, I32 startingblock));
 void save_lines _((AV *array, SV *sv));
 OP *doeval _((int gimme, OP** startop));
+I32 sv_ncmp _((SV *a, SV *b));
+I32 sv_i_ncmp _((SV *a, SV *b));
+I32 amagic_ncmp _((SV *a, SV *b));
+I32 amagic_i_ncmp _((SV *a, SV *b));
 I32 amagic_cmp _((SV *str1, SV *str2));
 I32 amagic_cmp_locale _((SV *str1, SV *str2));
 
@@ -890,6 +894,7 @@ void debprof _((OP *o));
 
 void *bset_obj_store _((void *obj, I32 ix));
 OP *new_logop _((I32 type, I32 flags, OP **firstp, OP **otherp));
+void simplify_sort _((OP *o));
 
 I32 do_trans_CC_simple _((SV *sv));
 I32 do_trans_CC_count _((SV *sv));