This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Declaration nit in vms.c's Perl_my_fwrite.
authorCraig A. Berry <craigberry@mac.com>
Sat, 21 Nov 2009 17:09:47 +0000 (11:09 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sat, 21 Nov 2009 17:09:47 +0000 (11:09 -0600)
Don't use register storage class for something we later take the
address of.

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;