Commit cdc38a23 authored by dcw's avatar dcw

added findnthparam;

parent ade73475
......@@ -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;
}
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