Use C99 named initialisers in core structs that define MGVTBLs

Since most Magic vtables do not provide every function, using C99 named
initialisers allows us to more easily specify which ones are present, so
readers don't have to count commas. Additionally provides a layer of
robustness in case more functions are added in future.

Author: leonerd

doio.c

@@ -1348,17 +1348,10 @@ If we have unlinkat(), renameat(), fchmodat(), dirfd() we also keep:
    6: the DIR * for the current directory when we open the file, stored as an IV
  */
 
-static const MGVTBL argvout_vtbl =
-    {
-        NULL, /* svt_get */
-        NULL, /* svt_set */
-        NULL, /* svt_len */
-        NULL, /* svt_clear */
-        S_argvout_free, /* svt_free */
-        NULL, /* svt_copy */
-        S_argvout_dup,  /* svt_dup */
-        NULL /* svt_local */
-    };
+static const MGVTBL argvout_vtbl = {
+    .svt_free = S_argvout_free,
+    .svt_dup  = S_argvout_dup,
+};
 
 static bool
 S_is_fork_open(const char *name) {

ext/PerlIO-encoding/encoding.pm

@@ -1,7 +1,7 @@
 package PerlIO::encoding;
 
 use strict;
-our $VERSION = '0.31';
+our $VERSION = '0.32';
 our $DEBUG = 0;
 $DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";
 

ext/PerlIO-encoding/encoding.xs

@@ -55,7 +55,7 @@ typedef struct {
 
 #define NEEDS_LINES	1
 
-static const MGVTBL PerlIOEncode_tag = { 0, 0, 0, 0, 0, 0, 0, 0 };
+static const MGVTBL PerlIOEncode_tag = {};
 
 static SV *
 PerlIOEncode_getarg(pTHX_ PerlIO * f, CLONE_PARAMS * param, int flags)

ext/PerlIO-via/via.pm

@@ -1,5 +1,5 @@
 package PerlIO::via;
-our $VERSION = '0.19';
+our $VERSION = '0.20';
 require XSLoader;
 XSLoader::load();
 1;

ext/PerlIO-via/via.xs

@@ -38,7 +38,7 @@ typedef struct
  CV *UTF8;
 } PerlIOVia;
 
-static const MGVTBL PerlIOVia_tag = { 0, 0, 0, 0, 0, 0, 0, 0 };
+static const MGVTBL PerlIOVia_tag = {};
 
 #define MYMethod(x) #x,&s->x
 

ext/XS-APItest/APItest.pm

@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use Carp;
 
-our $VERSION = '1.35';
+our $VERSION = '1.36';
 
 require XSLoader;
 

ext/XS-APItest/APItest.xs

@@ -174,8 +174,8 @@ S_myset_set_dies(pTHX_ SV* sv, MAGIC* mg)
 
 
 static MGVTBL vtbl_foo, vtbl_bar;
-static MGVTBL vtbl_myset = { 0, S_myset_set, 0, 0, 0, 0, 0, 0 };
-static MGVTBL vtbl_myset_dies = { 0, S_myset_set_dies, 0, 0, 0, 0, 0, 0 };
+static MGVTBL vtbl_myset = { .svt_set = S_myset_set };
+static MGVTBL vtbl_myset_dies = { .svt_set = S_myset_set_dies };
 
 static int
 S_mycopy_copy(pTHX_ SV *sv, MAGIC* mg, SV *nsv, const char *name, I32 namlen) {
@@ -192,7 +192,7 @@ S_mycopy_copy(pTHX_ SV *sv, MAGIC* mg, SV *nsv, const char *name, I32 namlen) {
     return 0;
 }
 
-STATIC MGVTBL vtbl_mycopy = { 0, 0, 0, 0, 0, S_mycopy_copy, 0, 0 };
+STATIC MGVTBL vtbl_mycopy = { .svt_copy = S_mycopy_copy };
 
 /* indirect functions to test the [pa]MY_CXT macros */
 

op.c

@@ -15328,16 +15328,7 @@ custom_op_register_free(pTHX_ SV *sv, MAGIC *mg)
 
 
 static const MGVTBL custom_op_register_vtbl = {
-    0,                          /* get */
-    0,                          /* set */
-    0,                          /* len */
-    0,                          /* clear */
-    custom_op_register_free,     /* free */
-    0,                          /* copy */
-    0,                          /* dup */
-#ifdef MGf_LOCAL
-    0,                          /* local */
-#endif
+    .svt_free = custom_op_register_free,
 };