error messages and error handling

lang/cem/cemcom/decspecs.c

@@ -6,6 +6,7 @@
 /*	D E C L A R A T I O N   S P E C I F I E R   C H E C K I N G	*/
 
 #include	"nofloat.h"
+#include	"assert.h"
 #include	"Lpars.h"
 #include	"decspecs.h"
 #include	"arith.h"
@@ -28,8 +29,7 @@ do_decspecs(ds)
 	*/
 	register struct type *tp = ds->ds_type;
 	
-	if (level == L_FORMAL1)
-		crash("do_decspecs");
+	ASSERT(level != L_FORMAL1);
 	
 	if (	level == L_GLOBAL &&
 		(ds->ds_sc == AUTO || ds->ds_sc == REGISTER)