tests/asm-tst7.c

   1 /* Copyright (C) 2002, 2005 Red Hat, Inc.
   2    This file is part of Red Hat elfutils.
   3    Written by Ulrich Drepper <drepper@redhat.com>, 2002.
   4
   5    Red Hat elfutils is free software; you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by the
   7    Free Software Foundation; version 2 of the License.
   8
   9    Red Hat elfutils is distributed in the hope that it will be useful, but
  10    WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12    General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License along
  15    with Red Hat elfutils; if not, write to the Free Software Foundation,
  16    Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA.
  17
  18    Red Hat elfutils is an included package of the Open Invention Network.
  19    An included package of the Open Invention Network is a package for which
  20    Open Invention Network licensees cross-license their patents.  No patent
  21    license is granted, either expressly or impliedly, by designation as an
  22    included package.  Should you wish to participate in the Open Invention
  23    Network licensing program, please visit www.openinventionnetwork.com
  24    <http://www.openinventionnetwork.com>.  */
  25
  26 #ifdef HAVE_CONFIG_H
  27 # include <config.h>
  28 #endif
  29
  30 #include <fcntl.h>
  31 #include <inttypes.h>
  32 #include ELFUTILS_HEADER(asm)
  33 #include <libelf.h>
  34 #include <stdio.h>
  35 #include <unistd.h>
  36
  37
  38 static const char fname[] = "asm-tst7-out.o";
  39
  40
  41 int
  42 main (void)
  43 {
  44   int result = 0;
  45   size_t cnt;
  46   AsmCtx_t *ctx;
  47   Elf *elf;
  48   int fd;
  49
  50   elf_version (EV_CURRENT);
  51
  52   Ebl *ebl = ebl_openbackend_machine (EM_386);
  53   if (ebl == NULL)
  54     {
  55       puts ("cannot open backend library");
  56       return 1;
  57     }
  58
  59   ctx = asm_begin (fname, ebl, false);
  60   if (ctx == NULL)
  61     {
  62       printf ("cannot create assembler context: %s\n", asm_errmsg (-1));
  63       return 1;
  64     }
  65
  66   if (asm_newcomsym (ctx, "commsym", 4, 16) == NULL)
  67     {
  68       printf ("cannot create common symbol: %s\n", asm_errmsg (-1));
  69       asm_abort (ctx);
  70       return 1;
  71     }
  72
  73   /* Create the output file.  */
  74   if (asm_end (ctx) != 0)
  75     {
  76       printf ("cannot create output file: %s\n", asm_errmsg (-1));
  77       asm_abort (ctx);
  78       return 1;
  79     }
  80
  81   /* Check the file.  */
  82   fd = open (fname, O_RDONLY);
  83   if (fd == -1)
  84     {
  85       printf ("cannot open generated file: %m\n");
  86       result = 1;
  87       goto out;
  88     }
  89
  90   elf = elf_begin (fd, ELF_C_READ, NULL);
  91   if (elf == NULL)
  92     {
  93       printf ("cannot create ELF descriptor: %s\n", elf_errmsg (-1));
  94       result = 1;
  95       goto out_close;
  96     }
  97   if (elf_kind (elf) != ELF_K_ELF)
  98     {
  99       puts ("not a valid ELF file");
 100       result = 1;
 101       goto out_close2;
 102     }
 103
 104   for (cnt = 1; 1; ++cnt)
 105     {
 106       Elf_Scn *scn;
 107       GElf_Shdr shdr_mem;
 108       GElf_Shdr *shdr;
 109
 110       scn = elf_getscn (elf, cnt);
 111       if (scn == NULL)
 112         {
 113           printf ("cannot get section %Zd: %s\n", cnt, elf_errmsg (-1));
 114           result = 1;
 115           continue;
 116         }
 117
 118       shdr = gelf_getshdr (scn, &shdr_mem);
 119       if (shdr == NULL)
 120         {
 121           printf ("cannot get section header for section %Zd: %s\n",
 122                   cnt, elf_errmsg (-1));
 123           result = 1;
 124           continue;
 125         }
 126       /* We are looking for the symbol table.  */
 127       if (shdr->sh_type != SHT_SYMTAB)
 128         continue;
 129
 130       for (cnt = 1; cnt< (shdr->sh_size
 131                           / gelf_fsize (elf, ELF_T_SYM, 1, EV_CURRENT));
 132            ++cnt)
 133         {
 134           GElf_Sym sym_mem;
 135           GElf_Sym *sym;
 136
 137           if (cnt > 1)
 138             {
 139               puts ("too many symbol");
 140               result = 1;
 141               break;
 142             }
 143
 144           sym = gelf_getsym (elf_getdata (scn, NULL), cnt, &sym_mem);
 145           if (sym == NULL)
 146             {
 147               printf ("cannot get symbol %zu: %s\n", cnt, elf_errmsg (-1));
 148               result = 1;
 149             }
 150           else
 151             {
 152               if (sym->st_shndx != SHN_COMMON)
 153                 {
 154                   printf ("expected common symbol, got section %u\n",
 155                           (unsigned int) sym->st_shndx);
 156                   result = 1;
 157                 }
 158
 159               if (sym->st_value != 16)
 160                 {
 161                   printf ("requested alignment 16, is %" PRIuMAX "\n",
 162                           (uintmax_t) sym->st_value);
 163                   result = 1;
 164                 }
 165
 166               if (sym->st_size != 4)
 167                 {
 168                   printf ("requested size 4, is %" PRIuMAX "\n",
 169                           (uintmax_t) sym->st_value);
 170                   result = 1;
 171                 }
 172             }
 173         }
 174
 175       break;
 176     }
 177
 178  out_close2:
 179   elf_end (elf);
 180  out_close:
 181   close (fd);
 182  out:
 183   /* We don't need the file anymore.  */
 184   unlink (fname);
 185
 186   ebl_closebackend (ebl);
 187
 188   return result;
 189 }