From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 12 Oct 2007 20:48:11 +0000 (+0000)
Subject: Normalize the case of some VMS syscalls so the prototypes are
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d30c105549945f018082df08ebe75e94d2b4f396;p=p5sagit%2Fp5-mst-13.2.git

Normalize the case of some VMS syscalls so the prototypes are
kosher on a system with older headers.

p4raw-id: //depot/perl@32106
---

diff --git a/vms/vms.c b/vms/vms.c
index 01fb235..6929d8f 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3878,7 +3878,7 @@ static PerlIO * create_forked_xterm(pTHX_ const char *cmd, const char *mode)
 
      /* LIB$FIND_IMAGE_SIGNAL needs a handler */
     /*---------------------------------------*/
-    VAXC$ESTABLISH((__vms_handler)LIB$SIG_TO_RET);
+    VAXC$ESTABLISH((__vms_handler)lib$sig_to_ret);
 
 
     /* Make sure that this is from the Perl debugger */
@@ -3898,7 +3898,7 @@ static PerlIO * create_forked_xterm(pTHX_ const char *cmd, const char *mode)
 	$DESCRIPTOR(filename2_dsc, "DECW$TERMINALSHR");
 	$DESCRIPTOR(decw_term_port_dsc, "DECW$TERM_PORT");
 
-	status = LIB$FIND_IMAGE_SYMBOL
+       status = lib$find_image_symbol
 			       (&filename1_dsc,
 				&decw_term_port_dsc,
 				(void *)&decw_term_port,
@@ -3908,7 +3908,7 @@ static PerlIO * create_forked_xterm(pTHX_ const char *cmd, const char *mode)
 	/* Try again with the other image name */
 	if (!$VMS_STATUS_SUCCESS(status)) {
 
-	    status = LIB$FIND_IMAGE_SYMBOL
+           status = lib$find_image_symbol
 			       (&filename2_dsc,
 				&decw_term_port_dsc,
 				(void *)&decw_term_port,
@@ -4835,7 +4835,7 @@ static int rms_erase(const char * vmsname)
   rms_set_nam_nop(mynam, NAML$M_OPEN_SPECIAL);
 #endif
 
-  status = SYS$ERASE(&myfab, 0, 0);
+  status = sys$erase(&myfab, 0, 0);
 
   return status;
 }