From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 21 Nov 2009 17:09:47 +0000 (-0600)
Subject: Declaration nit in vms.c's Perl_my_fwrite.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e05a54c0c3f7ee3e0363f0309bb362649aa71c4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;