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