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

diff --git a/vms/vmsish.h b/vms/vmsish.h
index a21c9e3..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
@@ -773,7 +771,9 @@ FILE *	Perl_my_tmpfile ();
 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 ***);