Change 29573 by [EMAIL PROTECTED] on 2006/12/18 01:15:43
In vms/vms.c, don't prototype decw$term_port until after
config.h (via perl.h) is included. That's where USE_VMS_DECTERM
is defined.
Affected files ...
... //depot/perl/vms/vms.c#186 edit
Differences ...
==== //depot/perl/vms/vms.c#186 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#185~29380~ 2006-11-25 14:19:14.000000000 -0800
+++ perl/vms/vms.c 2006-12-17 17:15:43.000000000 -0800
@@ -91,22 +91,6 @@
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)
@@ -160,6 +144,21 @@
# 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 */
End of Patch.
