1 /* Copyright (C) 2002, 2005 Red Hat, Inc. 2 This file is part of Red Hat elfutils. 3 Written by Ulrich Drepper <drepper (at) 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 } 190
