Declaration nit in vms.c's Perl_my_fwrite.

Don't use register storage class for something we later take the
address of.

diff --git a/vms/vms.c b/vms/vms.c
index d4ceb91..c3af096 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -11289,7 +11289,8 @@ int my_fclose(FILE *fp) {
 int
 my_fwrite(const void *src, size_t itmsz, size_t nitm, FILE *dest)
 {
-  register char *cp, *end, *cpd, *data;
+  register char *cp, *end, *cpd;
+  char *data;
   register unsigned int fd = fileno(dest);
   register unsigned int fdoff = fd / sizeof(unsigned int);
   int retval;