0018a485aa
- Provide a working default PVM configuration. - Remove unneeded pvm files form the install. PR: 34276 Submitted by: maintainer Obtained from: NetBSD
22 lines
581 B
Plaintext
22 lines
581 B
Plaintext
--- routines/signal/sigelm.f.orig Mon Feb 5 10:19:36 2001
|
|
+++ routines/signal/sigelm.f Sun Jun 3 18:52:29 2001
|
|
@@ -134,8 +134,18 @@
|
|
22 continue
|
|
c rhs=4
|
|
ilinc=iadr(lstk(top))
|
|
+ if (istk(ilinc).ne.1) then !protect the 4th arg. (GA 2001)
|
|
+ err=4
|
|
+ call error(53)
|
|
+ return
|
|
+ endif
|
|
linc=sadr(ilinc+4)
|
|
nspn=int(stk(linc))
|
|
+ if (nspn.eq.0) then !protect the 4th arg. (GA 2001)
|
|
+ err=4
|
|
+ call error(36)
|
|
+ return
|
|
+ endif
|
|
top=top-1
|
|
iln=iadr(lstk(top))
|
|
ln=sadr(iln+4)
|