Commit cdc38a23 authored by dcw's avatar dcw
Browse files

added findnthparam;

parent ade73475
......@@ -162,3 +162,20 @@ void print_printlist(p) printlist p;
param findnthparam( n, p, sname, dname ) int n; paramlist p; char *sname, *dname;
int m = n;
for( ; p != NULL && --m; p = p->next );
("datadec: bad print number %d in shape %s of type %s\n",
m, sname, dname));
return p;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment