From 2e05a54c0c3f7ee3e0363f0309bb362649aa71c4 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sat, 21 Nov 2009 11:09:47 -0600
Subject: Declaration nit in vms.c's Perl_my_fwrite.

Don't use register storage class for something we later take the
address of.
---
 vms/vms.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'vms')

diff --git a/vms/vms.c b/vms/vms.c
index d4ceb91eed..c3af096a3d 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;
-- 
cgit v1.2.1