This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In vms/vms.c, don't prototype decw$term_port until after
authorCraig A. Berry <craigberry@mac.com>
Mon, 18 Dec 2006 01:15:43 +0000 (01:15 +0000)
committerCraig A. Berry <craigberry@mac.com>
Mon, 18 Dec 2006 01:15:43 +0000 (01:15 +0000)
config.h (via perl.h) is included.  That's where USE_VMS_DECTERM
is defined.

p4raw-id: //depot/perl@29573

vms/vms.c

index 7bf252d..b5256ea 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -91,22 +91,6 @@ int sys$getdviw
        void * astprm,
        void * nullarg);
 
        void * astprm,
        void * nullarg);
 
-#ifdef USE_VMS_DECTERM
-
-/* Routine to create a decterm for use with the Perl debugger */
-/* No headers, this information was found in the Programming Concepts Manual */
-
-int decw$term_port
-   (const struct dsc$descriptor_s * display,
-    const struct dsc$descriptor_s * setup_file,
-    const struct dsc$descriptor_s * customization,
-    struct dsc$descriptor_s * result_device_name,
-    unsigned short * result_device_name_length,
-    void * controller,
-    void * char_buffer,
-    void * char_change_buffer);
-#endif
-
 #if __CRTL_VER >= 70300000 && !defined(__VAX)
 
 static int set_feature_default(const char *name, int value)
 #if __CRTL_VER >= 70300000 && !defined(__VAX)
 
 static int set_feature_default(const char *name, int value)
@@ -160,6 +144,21 @@ return 0;
 #  define RTL_USES_UTC 1
 #endif
 
 #  define RTL_USES_UTC 1
 #endif
 
+#ifdef USE_VMS_DECTERM
+
+/* Routine to create a decterm for use with the Perl debugger */
+/* No headers, this information was found in the Programming Concepts Manual */
+
+int decw$term_port
+   (const struct dsc$descriptor_s * display,
+    const struct dsc$descriptor_s * setup_file,
+    const struct dsc$descriptor_s * customization,
+    struct dsc$descriptor_s * result_device_name,
+    unsigned short * result_device_name_length,
+    void * controller,
+    void * char_buffer,
+    void * char_change_buffer);
+#endif
 
 /* gcc's header files don't #define direct access macros
  * corresponding to VAXC's variant structs */
 
 /* gcc's header files don't #define direct access macros
  * corresponding to VAXC's variant structs */