mirror of
				https://sourceware.org/git/glibc.git
				synced 2025-11-03 20:53:13 +03:00 
			
		
		
		
	The previous approach uses readelf -DWs, which does not produce a stable output format (older binutils versions do not include symbol version information). This commit re-uses scripts/abilist.awk with a tweak to include GLIBC_PRIVATE symbols. This awk script is based on objdump -T output, which appears to be stable over time. Reviewed-by: Szabolcs Nagy <szabolcs.nagy@arm.com>
		
			
				
	
	
		
			149 lines
		
	
	
		
			3.0 KiB
		
	
	
	
		
			Awk
		
	
	
	
	
	
			
		
		
	
	
			149 lines
		
	
	
		
			3.0 KiB
		
	
	
	
		
			Awk
		
	
	
	
	
	
# This awk script processes the output of objdump --dynamic-syms
 | 
						|
# into a simple format that should not change when the ABI is not changing.
 | 
						|
 | 
						|
BEGIN {
 | 
						|
  if (combine_fullname)
 | 
						|
    combine = 1;
 | 
						|
  if (combine)
 | 
						|
    parse_names = 1;
 | 
						|
}
 | 
						|
 | 
						|
# Per-file header.
 | 
						|
/[^ :]+\.so\.[0-9.]+:[ 	]+.file format .*$/ {
 | 
						|
  emit(0);
 | 
						|
 | 
						|
  seen_opd = 0;
 | 
						|
 | 
						|
  sofullname = $1;
 | 
						|
  sub(/:$/, "", sofullname);
 | 
						|
  soname = sofullname;
 | 
						|
  sub(/^.*\//, "", soname);
 | 
						|
  sub(/\.so\.[0-9.]+$/, "", soname);
 | 
						|
 | 
						|
  suppress = ((filename_regexp != "" && sofullname !~ filename_regexp) \
 | 
						|
	      || (libname_regexp != "" && soname !~ libname_regexp));
 | 
						|
 | 
						|
  next
 | 
						|
}
 | 
						|
 | 
						|
suppress { next }
 | 
						|
 | 
						|
# Normalize columns.
 | 
						|
/^[0-9a-fA-F]+      / { sub(/      /, "  -   ") }
 | 
						|
 | 
						|
# Skip undefineds.
 | 
						|
$4 == "*UND*" { next }
 | 
						|
 | 
						|
# Skip locals.
 | 
						|
$2 == "l" { next }
 | 
						|
 | 
						|
# If the target uses ST_OTHER, it will be output before the symbol name.
 | 
						|
$2 == "g" || $2 == "w" && (NF == 7 || NF == 8) {
 | 
						|
  type = $3;
 | 
						|
  size = $5;
 | 
						|
  sub(/^0*/, "", size);
 | 
						|
  if (size == "") {
 | 
						|
      size = " 0x0";
 | 
						|
  } else {
 | 
						|
      size = " 0x" size;
 | 
						|
  }
 | 
						|
  version = $6;
 | 
						|
  symbol = $NF;
 | 
						|
  gsub(/[()]/, "", version);
 | 
						|
 | 
						|
  # binutils versions up through at least 2.23 have some bugs that
 | 
						|
  # caused STV_HIDDEN symbols to appear in .dynsym, though that is useless.
 | 
						|
  if (NF > 7 && $7 == ".hidden") next;
 | 
						|
 | 
						|
  if (version == "GLIBC_PRIVATE" && !include_private) next;
 | 
						|
 | 
						|
  desc = "";
 | 
						|
  if (type == "D" && ($4 == ".tbss" || $4 == ".tdata")) {
 | 
						|
    type = "T";
 | 
						|
  }
 | 
						|
  else if (type == "D" && $4 == ".opd") {
 | 
						|
    type = "F";
 | 
						|
    size = "";
 | 
						|
    if (seen_opd < 0)
 | 
						|
      type = "O";
 | 
						|
    seen_opd = 1;
 | 
						|
  }
 | 
						|
  else if (type == "D" && NF == 8 && $7 == "0x80") {
 | 
						|
    # Alpha functions avoiding plt entry in users
 | 
						|
    type = "F";
 | 
						|
    size = "";
 | 
						|
    seen_opd = -1;
 | 
						|
  }
 | 
						|
  else if ($4 == "*ABS*") {
 | 
						|
    next;
 | 
						|
  }
 | 
						|
  else if (type == "D") {
 | 
						|
    # Accept unchanged.
 | 
						|
  }
 | 
						|
  else if (type == "DO") {
 | 
						|
    type = "D";
 | 
						|
  }
 | 
						|
  else if (type == "DF") {
 | 
						|
    if (symbol ~ /^\./ && seen_opd >= 0)
 | 
						|
      next;
 | 
						|
    seen_opd = -1;
 | 
						|
    type = "F";
 | 
						|
    size = "";
 | 
						|
  }
 | 
						|
  else if (type == "iD" && ($4 == ".text" || $4 == ".opd")) {
 | 
						|
    # Indirect functions.
 | 
						|
    type = "F";
 | 
						|
    size = "";
 | 
						|
  }
 | 
						|
  else {
 | 
						|
    print "ERROR: Unable to handle this type of symbol:", $0
 | 
						|
    exit 1
 | 
						|
  }
 | 
						|
 | 
						|
  if (desc == "")
 | 
						|
    desc = symbol " " type size;
 | 
						|
 | 
						|
  if (combine)
 | 
						|
    version = soname " " version (combine_fullname ? " " sofullname : "");
 | 
						|
 | 
						|
  # Append to the string which collects the results.
 | 
						|
  descs = descs version " " desc "\n";
 | 
						|
  next;
 | 
						|
}
 | 
						|
 | 
						|
# Header crapola.
 | 
						|
NF == 0 || /DYNAMIC SYMBOL TABLE/ || /file format/ { next }
 | 
						|
 | 
						|
{
 | 
						|
  print "ERROR: Unable to interpret this line:", $0
 | 
						|
  exit 1
 | 
						|
}
 | 
						|
 | 
						|
function emit(end) {
 | 
						|
  if (!end && (combine || ! parse_names || soname == ""))
 | 
						|
    return;
 | 
						|
  tofile = parse_names && !combine;
 | 
						|
 | 
						|
  if (tofile) {
 | 
						|
    out = prefix soname ".symlist";
 | 
						|
    if (soname in outfiles)
 | 
						|
      out = out "." ++outfiles[soname];
 | 
						|
    else
 | 
						|
      outfiles[soname] = 1;
 | 
						|
    outpipe = "LC_ALL=C sort -u > " out;
 | 
						|
  } else {
 | 
						|
    outpipe = "LC_ALL=C sort -u";
 | 
						|
  }
 | 
						|
 | 
						|
  printf "%s", descs | outpipe;
 | 
						|
 | 
						|
  descs = "";
 | 
						|
 | 
						|
  if (tofile)
 | 
						|
    print "wrote", out, "for", sofullname;
 | 
						|
}
 | 
						|
 | 
						|
END {
 | 
						|
  emit(1);
 | 
						|
}
 |