added findnthparam;

cdc38a23 · dcw · ade73475 · cdc38a23
Commit cdc38a23 authored Apr 10, 1992 by dcw
Show whitespace changes
Inline Side-by-side

Showing with 17 additions and 0 deletions

struct.c struct.c +17 -0

No files found.
--- a/struct.c
+++ b/struct.c
@@ -162,3 +162,20 @@ void print_printlist(p) printlist p;
 		print_printitem(p->item);
 	}
 }
+
+
+param findnthparam( n, p, sname, dname ) int n; paramlist p; char *sname, *dname;
+{
+	int m = n;
+
+	for( ; p != NULL && --m; p = p->next );
+
+	ASSERT( p != NULL,
+		("datadec: bad print number %d in shape %s of type %s\n",
+		m, sname, dname));
+
+	return p;
+}
+
+
+