Change 33100 by [EMAIL PROTECTED] on 2008/01/29 03:34:59
2 hunks from 27648 needed to keep maint-5.8 compileable on VMS.
Affected files ...
... //depot/maint-5.8/perl/vms/vms.c#33 edit
Differences ...
==== //depot/maint-5.8/perl/vms/vms.c#33 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#32~33005~ 2008-01-18 11:14:53.000000000 -0800
+++ perl/vms/vms.c 2008-01-28 19:34:59.000000000 -0800
@@ -47,6 +47,12 @@
#if __CRTL_VER >= 70301000 && !defined(__VAX)
#include <ppropdef.h>
#endif
+#if __CRTL_VER >= 70000000 /* FIXME to earliest version */
+#include <efndef.h>
+#define NO_EFN EFN$C_ENF
+#else
+#define NO_EFN 0;
+#endif
#include <prvdef.h>
#include <psldef.h>
#include <rms.h>
@@ -101,6 +107,32 @@
#endif
+#pragma member_alignment save
+#pragma nomember_alignment longword
+struct item_list_3 {
+ unsigned short len;
+ unsigned short code;
+ void * bufadr;
+ unsigned short * retadr;
+};
+#pragma member_alignment restore
+
+/* More specific prototype than in starlet_c.h makes programming errors
+ more visible.
+ */
+#ifdef sys$getdviw
+#undef sys$getdviw
+#endif
+int sys$getdviw
+ (unsigned long efn,
+ unsigned short chan,
+ const struct dsc$descriptor_s * devnam,
+ const struct item_list_3 * itmlst,
+ void * iosb,
+ void * (astadr)(unsigned long),
+ void * astprm,
+ void * nullarg);
+
#if __CRTL_VER >= 70300000 && !defined(__VAX)
static int set_feature_default(const char *name, int value)
End of Patch.
