tests/asm-tst8.c

   1 /* Copyright (C) 2002, 2005 Red Hat, Inc.
   2    Written by Ulrich Drepper <drepper@redhat.com>, 2002.
   3
   4    This program is Open Source software; you can redistribute it and/or
   5    modify it under the terms of the Open Software License version 1.0 as
   6    published by the Open Source Initiative.
   7
   8    You should have received a copy of the Open Software License along
   9    with this program; if not, you may obtain a copy of the Open Software
  10    License version 1.0 from http://www.opensource.org/licenses/osl.php or
  11    by writing the Open Source Initiative c/o Lawrence Rosen, Esq.,
  12    3001 King Ranch Road, Ukiah, CA 95482.   */
  13
  14 #include <fcntl.h>
  15 #include <inttypes.h>
  16 #include <libasm.h>
  17 #include <libelf.h>
  18 #include <stdio.h>
  19 #include <unistd.h>
  20
  21
  22 static const char fname[] = "asm-tst8-out.o";
  23
  24
  25 int
  26 main (void)
  27 {
  28   int result = 0;
  29   size_t cnt;
  30   AsmCtx_t *ctx;
  31   Elf *elf;
  32   int fd;
  33
  34   elf_version (EV_CURRENT);
  35
  36   Ebl *ebl = ebl_openbackend_machine (EM_386);
  37   if (ebl == NULL)
  38     {
  39       puts ("cannot open backend library");
  40       return 1;
  41     }
  42
  43   ctx = asm_begin (fname, ebl, false);
  44   if (ctx == NULL)
  45     {
  46       printf ("cannot create assembler context: %s\n", asm_errmsg (-1));
  47       return 1;
  48     }
  49
  50   if (asm_newabssym (ctx, "tst8-out.s", 4, 0xfeedbeef, STT_FILE, STB_LOCAL)
  51       == NULL)
  52     {
  53       printf ("cannot create absolute symbol: %s\n", asm_errmsg (-1));
  54       asm_abort (ctx);
  55       return 1;
  56     }
  57
  58   /* Create the output file.  */
  59   if (asm_end (ctx) != 0)
  60     {
  61       printf ("cannot create output file: %s\n", asm_errmsg (-1));
  62       asm_abort (ctx);
  63       return 1;
  64     }
  65
  66   /* Check the file.  */
  67   fd = open (fname, O_RDONLY);
  68   if (fd == -1)
  69     {
  70       printf ("cannot open generated file: %m\n");
  71       result = 1;
  72       goto out;
  73     }
  74
  75   elf = elf_begin (fd, ELF_C_READ, NULL);
  76   if (elf == NULL)
  77     {
  78       printf ("cannot create ELF descriptor: %s\n", elf_errmsg (-1));
  79       result = 1;
  80       goto out_close;
  81     }
  82   if (elf_kind (elf) != ELF_K_ELF)
  83     {
  84       puts ("not a valid ELF file");
  85       result = 1;
  86       goto out_close2;
  87     }
  88
  89   for (cnt = 1; 1; ++cnt)
  90     {
  91       Elf_Scn *scn;
  92       GElf_Shdr shdr_mem;
  93       GElf_Shdr *shdr;
  94
  95       scn = elf_getscn (elf, cnt);
  96       if (scn == NULL)
  97         {
  98           printf ("cannot get section %Zd: %s\n", cnt, elf_errmsg (-1));
  99           result = 1;
 100           continue;
 101         }
 102
 103       shdr = gelf_getshdr (scn, &shdr_mem);
 104       if (shdr == NULL)
 105         {
 106           printf ("cannot get section header for section %Zd: %s\n",
 107                   cnt, elf_errmsg (-1));
 108           result = 1;
 109           continue;
 110         }
 111       /* We are looking for the symbol table.  */
 112       if (shdr->sh_type != SHT_SYMTAB)
 113         continue;
 114
 115       for (cnt = 1; cnt< (shdr->sh_size
 116                           / gelf_fsize (elf, ELF_T_SYM, 1, EV_CURRENT));
 117            ++cnt)
 118         {
 119           GElf_Sym sym_mem;
 120           GElf_Sym *sym;
 121
 122           if (cnt > 1)
 123             {
 124               puts ("too many symbol");
 125               result = 1;
 126               break;
 127             }
 128
 129           sym = gelf_getsym (elf_getdata (scn, NULL), cnt, &sym_mem);
 130           if (sym == NULL)
 131             {
 132               printf ("cannot get symbol %zu: %s\n", cnt, elf_errmsg (-1));
 133               result = 1;
 134             }
 135           else
 136             {
 137               if (sym->st_shndx != SHN_ABS)
 138                 {
 139                   printf ("expected common symbol, got section %u\n",
 140                           (unsigned int) sym->st_shndx);
 141                   result = 1;
 142                 }
 143
 144               if (sym->st_value != 0xfeedbeef)
 145                 {
 146                   printf ("requested value 0xfeedbeef, is %#" PRIxMAX "\n",
 147                           (uintmax_t) sym->st_value);
 148                   result = 1;
 149                 }
 150
 151               if (sym->st_size != 4)
 152                 {
 153                   printf ("requested size 4, is %" PRIuMAX "\n",
 154                           (uintmax_t) sym->st_value);
 155                   result = 1;
 156                 }
 157
 158               if (GELF_ST_TYPE (sym->st_info) != STT_FILE)
 159                 {
 160                   printf ("requested type FILE, is %u\n",
 161                           (unsigned int) GELF_ST_TYPE (sym->st_info));
 162                   result = 1;
 163                 }
 164             }
 165         }
 166
 167       break;
 168     }
 169
 170  out_close2:
 171   elf_end (elf);
 172  out_close:
 173   close (fd);
 174  out:
 175   /* We don't need the file anymore.  */
 176   unlink (fname);
 177
 178   ebl_closebackend (ebl);
 179
 180   return result;
 181 }