1# Copyright (c) 1982 Regents of the University of California
2#
3#	@(#)pcexterns.awk	4.2	(Berkeley)	07/29/82
4#
5NR == 1	{
6	name = substr($1, 1, index($1, ":") - 1);
7	printf "	.stabs	\"%s\",0x30,0,0x1,0\n", name;
8}
9
10NF == 3 && $2 == "T" {
11	printf "	.stabs	\"%s\",0x30,0,0xc,0x%d\n", substr($3, 2), NR;
12}
13
14NF == 3 && $2 ~ /[ABD]/ {
15	printf "	.stabs	\"%s\",0x30,0,0xb,0x%d\n", substr($3, 2), NR;
16}
17