Quelle  load_address.c   Sprache: C

// SPDX-License-Identifier: GPL-2.0-only
#ifndef _GNU_SOURCE
#define _GNU_SOURCE
#endif
#include <link.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdbool.h>
#include "../kselftest.h"

struct Statistics {
 unsigned long long load_address;
 unsigned long long alignment;
 bool interp;
};

int ExtractStatistics(struct dl_phdr_info *info, size_t size, void *data)
{
 struct Statistics *stats = (struct Statistics *) data;
 int i;

 if (info->dlpi_name != NULL && info->dlpi_name[0] != '\0') {
  // Ignore headers from other than the executable.
  return 2;
 }

 stats->load_address = (unsigned long long) info->dlpi_addr;
 stats->alignment = 0;

 for (i = 0; i < info->dlpi_phnum; i++) {
  unsigned long long align;

  if (info->dlpi_phdr[i].p_type == PT_INTERP) {
   stats->interp = true;
   continue;
  }

  if (info->dlpi_phdr[i].p_type != PT_LOAD)
   continue;

  align = info->dlpi_phdr[i].p_align;

  if (align > stats->alignment)
   stats->alignment = align;
 }

 return 1;  // Terminate dl_iterate_phdr.
}

int main(int argc, char **argv)
{
 struct Statistics extracted = { };
 unsigned long long misalign, pow2;
 bool interp_needed;
 char buf[1024];
 FILE *maps;
 int ret;

 ksft_print_header();
 ksft_set_plan(4);

 /* Dump maps file for debugging reference. */
 maps = fopen("/proc/self/maps", "r");
 if (!maps)
  ksft_exit_fail_msg("FAILED: /proc/self/maps: %s\n", strerror(errno));
 while (fgets(buf, sizeof(buf), maps)) {
  ksft_print_msg("%s", buf);
 }
 fclose(maps);

 /* Walk the program headers. */
 ret = dl_iterate_phdr(ExtractStatistics, &extracted);
 if (ret != 1)
  ksft_exit_fail_msg("FAILED: dl_iterate_phdr\n");

 /* Report our findings. */
 ksft_print_msg("load_address=%#llx alignment=%#llx\n",
         extracted.load_address, extracted.alignment);

 /* If we're named with ".static." we expect no INTERP. */
 interp_needed = strstr(argv[0], ".static.") == NULL;

 /* Were we built as expected? */
 ksft_test_result(interp_needed == extracted.interp,
    "%s INTERP program header %s\n",
    interp_needed ? "Wanted" : "Unwanted",
    extracted.interp ? "seen" : "missing");

 /* Did we find an alignment? */
 ksft_test_result(extracted.alignment != 0,
    "Alignment%s found\n", extracted.alignment ? "" : " NOT");

 /* Is the alignment sane? */
 pow2 = extracted.alignment & (extracted.alignment - 1);
 ksft_test_result(pow2 == 0,
    "Alignment is%s a power of 2: %#llx\n",
    pow2 == 0 ? "" : " NOT", extracted.alignment);

 /* Is the load address aligned? */
 misalign = extracted.load_address & (extracted.alignment - 1);
 ksft_test_result(misalign == 0, "Load Address is %saligned (%#llx)\n",
    misalign ? "MIS" : "", misalign);

 ksft_finished();
}