X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vms%2Fvms.c;h=46bad3bc7d19c04d26578233092ebebccf9440d0;hb=f24bbd7dc19eb52f312855f9ca40f06202951a58;hp=f41b1e1f51abe4259d77ddcad9bc2a9274853ac9;hpb=bf6b5eb4157d8ec84b03a82e6575ebd58812ca0a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/vms/vms.c b/vms/vms.c
index f41b1e1..46bad3b 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3925,6 +3925,7 @@ is_null_device(name)
 I32
 cando(I32 bit, I32 effective, Stat_t *statbufp)
 {
+  dTHR;
   if (statbufp == &statcache) return cando_by_name(bit,effective,namecache);
   else {
     char fname[NAM$C_MAXRSS+1];