From: Ralph Campbell <ralph@ucbvax.Berkeley.EDU>
Date: Wed, 5 Sep 1984 03:24:06 +0000 (-0800)
Subject: fix illegal storage class declarations for parameters.
X-Git-Tag: BSD-4_3-Snapshot-Development~9520
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/01444c04522f0a26e0be0fbda3dc52a3e81d8041

fix illegal storage class declarations for parameters.

SCCS-vsn: old/pcc/mip/pftn.c 1.5
---

diff --git a/usr/src/old/pcc/mip/pftn.c b/usr/src/old/pcc/mip/pftn.c
index 1878de9a68..9817942e31 100644
--- a/usr/src/old/pcc/mip/pftn.c
+++ b/usr/src/old/pcc/mip/pftn.c
@@ -1,4 +1,4 @@
-static char *sccsid ="@(#)pftn.c	1.4 (Berkeley) %G%";
+static char *sccsid ="@(#)pftn.c	1.5 (Berkeley) %G%";
 # include "mfile1"
 
 unsigned int offsz;
@@ -1631,14 +1631,18 @@ fixclass( class, type ) TWORD type; {
 				uerror( "fortran function has wrong type" );
 				}
 			}
-	case STNAME:
-	case UNAME:
-	case ENAME:
 	case EXTERN:
 	case STATIC:
 	case EXTDEF:
 	case TYPEDEF:
 	case USTATIC:
+		if( blevel == 1 ){
+			uerror( "illegal class" );
+			return( PARAM );
+			}
+	case STNAME:
+	case UNAME:
+	case ENAME:
 		return( class );
 
 	default: