X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vms%2Fvmsish.h;h=ddc8b96749f8698d78556444f0c2724816ffcc33;hb=6e5a998b1cc5eddc2fb262c2e2e7f989bfb76f23;hp=182758fa57f81a9784641d6279f17418f5b1552d;hpb=da63c68b5c5846782b25159ecdf311e839c9845b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/vms/vmsish.h b/vms/vmsish.h
index 182758f..ddc8b96 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -298,12 +298,10 @@
 #define HAVE_INTERP_INTERN
 struct interp_intern {
     int    hushed;
-    float  inv_rand_max;
-    struct dsc$descriptor_s VMScmd;
+    double inv_rand_max;
 };
 #define VMSISH_HUSHED     (PL_sys_intern.hushed)
 #define MY_INV_RAND_MAX   (PL_sys_intern.inv_rand_max)
-#define VMSCMD            (PL_sys_intern.VMScmd)
 
 /* Flags for vmstrnenv() */
 #define PERL__TRNENV_SECURE 0x01
@@ -511,6 +509,10 @@ struct utimbuf {
 #    define sigaction(a,b,c) Perl_my_sigaction(a,b,c)
 #  endif
 #endif
+#ifdef KILL_BY_SIGPRC
+#  define kill  Perl_my_kill
+#endif
+
 
 /* VMS doesn't use a real sys_nerr, but we need this when scanning for error
  * messages in text strings . . .
@@ -768,6 +770,11 @@ FILE *	Perl_my_tmpfile ();
 #ifndef HOMEGROWN_POSIX_SIGNALS
 int	Perl_my_sigaction (pTHX_ int, const struct sigaction*, struct sigaction*);
 #endif
+#ifdef KILL_BY_SIGPRC
+unsigned int	Perl_sig_to_vmscondition (int);
+int	Perl_my_kill (int, int);
+void	Perl_csighandler_init (void);
+#endif
 int	Perl_my_utime (pTHX_ char *, struct utimbuf *);
 void	Perl_vms_image_init (int *, char ***);
 struct dirent *	Perl_readdir (pTHX_ DIR *);