This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/apicheck.pl: Sort some lists
authorKarl Williamson <khw@cpan.org>
Tue, 2 Jul 2019 16:39:21 +0000 (10:39 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:29 +0000 (16:39 -0600)
This makes it easier to see if something is on the list.

(cherry picked from commit 84572eb25b1204a8832d83d99df67a7d4f5e155d)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/apicheck.pl

index 83204a9..d4c59f7 100644 (file)
@@ -47,28 +47,28 @@ my %void = (
 
 my %castvoid = (
   map { ($_ => 1) } qw(
+    G_ARRAY
+    G_DISCARD
+    G_EVAL
+    G_NOARGS
+    G_SCALAR
+    G_VOID
+    HEf_SVKEY
+    MARK
     Nullav
+    Nullch
     Nullcv
     Nullhv
-    Nullch
     Nullsv
-    HEf_SVKEY
     SP
-    MARK
-    SVt_PV
     SVt_IV
     SVt_NV
-    SVt_PVMG
+    SVt_PV
     SVt_PVAV
-    SVt_PVHV
     SVt_PVCV
+    SVt_PVHV
+    SVt_PVMG
     SvUOK
-    G_SCALAR
-    G_ARRAY
-    G_VOID
-    G_DISCARD
-    G_EVAL
-    G_NOARGS
     XS_VERSION
   ),
 );
@@ -81,38 +81,38 @@ my %ignorerv = (
 
 my %stack = (
   ORIGMARK       => ['dORIGMARK;'],
-  POPpx          => ['STRLEN n_a;'],
   POPpbytex      => ['STRLEN n_a;'],
-  PUSHp          => ['dTARG;'],
-  PUSHn          => ['dTARG;'],
+  POPpx          => ['STRLEN n_a;'],
   PUSHi          => ['dTARG;'],
+  PUSHn          => ['dTARG;'],
+  PUSHp          => ['dTARG;'],
   PUSHu          => ['dTARG;'],
-  XPUSHp         => ['dTARG;'],
-  XPUSHn         => ['dTARG;'],
-  XPUSHi         => ['dTARG;'],
-  XPUSHu         => ['dTARG;'],
-  UNDERBAR       => ['dUNDERBAR;'],
-  XCPT_TRY_START => ['dXCPT;'],
-  XCPT_TRY_END   => ['dXCPT;'],
-  XCPT_CATCH     => ['dXCPT;'],
-  XCPT_RETHROW   => ['dXCPT;'],
   RESTORE_LC_NUMERIC => ['DECLARATION_FOR_LC_NUMERIC_MANIPULATION;'],
   STORE_LC_NUMERIC_FORCE_TO_UNDERLYING => ['DECLARATION_FOR_LC_NUMERIC_MANIPULATION;'],
   STORE_LC_NUMERIC_SET_TO_NEEDED => ['DECLARATION_FOR_LC_NUMERIC_MANIPULATION;'],
   STORE_LC_NUMERIC_SET_TO_NEEDED_IN => ['DECLARATION_FOR_LC_NUMERIC_MANIPULATION;'],
+  UNDERBAR       => ['dUNDERBAR;'],
+  XCPT_CATCH     => ['dXCPT;'],
+  XCPT_RETHROW   => ['dXCPT;'],
+  XCPT_TRY_END   => ['dXCPT;'],
+  XCPT_TRY_START => ['dXCPT;'],
+  XPUSHi         => ['dTARG;'],
+  XPUSHn         => ['dTARG;'],
+  XPUSHp         => ['dTARG;'],
+  XPUSHu         => ['dTARG;'],
 );
 
 my %ignore = (
   map { ($_ => 1) } qw(
-    svtype
+    CLASS
+    dXSI32
     items
     ix
-    dXSI32
-    XS
-    CLASS
-    THIS
     RETVAL
     StructCopy
+    svtype
+    THIS
+    XS
   ),
 );