/* Chrysalide - Outil d'analyse de fichiers binaires * form.c - chargement en mémoire des valeurs d'attributs * * Copyright (C) 2016-2017 Cyrille Bagard * * This file is part of Chrysalide. * * Chrysalide is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 3 of the License, or * (at your option) any later version. * * Chrysalide is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with Foobar. If not, see . */ #include "form.h" #include "../dwarf-int.h" /****************************************************************************** * * * Paramètres : format = contenu binaire de débogage à parcourir. * * cu = unité de compilation parente. * * form = nature de la valeur à lire. * * pos = tête de lecture au sein des données. [OUT] * * value = valeur au format donné lue. [OUT] * * * * Description : Lit la valeur correspondant à un type donné. * * * * Retour : Bilan de l'opération. * * * * Remarques : - * * * ******************************************************************************/ bool read_dwarf_v2_form_value(const GDwarfFormat *format, const dw_compil_unit_header *cu, DwarfForm form, vmpa2t *pos, dw_v2_form_value *value) { bool result; /* Bilan de lecture à renvoyer */ GBinContent *content; /* Contenu binaire à parcourir */ SourceEndian endian; /* Boutisme des enregistrements*/ GExeFormat *exe; /* Format d'exécutable rattaché*/ const bin_t *tmp; /* Données quelconques */ uint8_t tmp8; /* Données sur 8 bits */ uint16_t tmp16; /* Données sur 16 bits */ uint32_t tmp32; /* Données sur 32 bits */ uint64_t tmp64; /* Données sur 64 bits */ uleb128_t tmpuleb; /* Données sur xxx bits */ phys_t offset; /* Décalage à appliquer */ mrange_t range; /* Couverture d'une section */ vmpa2t iter; /* Point de lecture parallèle */ content = G_BIN_FORMAT(format)->content; endian = g_binary_format_get_endianness(G_BIN_FORMAT(format)); exe = G_DBG_FORMAT(format)->executable; switch (form) { case DW_FORM_addr: switch (cu->address_size) { case 2: result = g_binary_content_read_u16(content, pos, endian, &tmp16); if (result) value->address = tmp16; break; case 4: result = g_binary_content_read_u32(content, pos, endian, &tmp32); if (result) value->address = tmp32; break; case 8: result = g_binary_content_read_u64(content, pos, endian, &tmp64); if (result) value->address = tmp64; break; default: result = false; break; } break; case DW_FORM_block2: result = g_binary_content_read_u16(content, pos, endian, &tmp16); if (result) { value->block.size = tmp16; goto block_finish; } break; case DW_FORM_block4: result = g_binary_content_read_u32(content, pos, endian, &tmp32); if (result) { value->block.size = tmp32; goto block_finish; } break; case DW_FORM_data2: result = g_binary_content_read_u16(content, pos, endian, &value->data2); break; case DW_FORM_data4: result = g_binary_content_read_u32(content, pos, endian, &value->data4); break; case DW_FORM_data8: result = g_binary_content_read_u64(content, pos, endian, &value->data8); break; case DW_FORM_string: tmp = g_binary_content_get_raw_access(content, pos, 1); result = (tmp != NULL); if (result) { value->string = (const char *)tmp; while (result && *tmp != '\0') { tmp = g_binary_content_get_raw_access(content, pos, 1); result = (tmp != NULL); } } break; case DW_FORM_block: tmpuleb = 0; /* Pour GCC */ result = g_binary_content_read_uleb128(content, pos, &tmpuleb); if (!result) break; value->block.size = tmpuleb; block_finish: value->block.start = g_binary_content_get_raw_access(content, pos, value->block.size); result = (value->block.start != NULL); break; case DW_FORM_block1: result = g_binary_content_read_u8(content, pos, &tmp8); if (result) { value->block.size = tmp8; goto block_finish; } break; case DW_FORM_data1: result = g_binary_content_read_u8(content, pos, &value->data1); break; case DW_FORM_flag: result = g_binary_content_read_u8(content, pos, &value->flag); break; case DW_FORM_sdata: result = g_binary_content_read_leb128(content, pos, &value->sdata); break; case DW_FORM_strp: /* Définition des positions */ if (cu->is_32b) { result = g_binary_content_read_u32(content, pos, endian, &tmp32); offset = tmp32; } else { result = g_binary_content_read_u64(content, pos, endian, &tmp64); offset = tmp64; } /* Lecture dans la section adaptée */ if (result) result = g_exe_format_get_section_range_by_name(exe, ".debug_str", &range); if (result) { copy_vmpa(&iter, get_mrange_addr(&range)); result = g_binary_content_seek(content, &iter, offset); if (!result) break; tmp = g_binary_content_get_raw_access(content, &iter, 1); result = (tmp != NULL); if (result) { value->string = (const char *)tmp; while (result && *tmp != '\0') { tmp = g_binary_content_get_raw_access(content, &iter, 1); result = (tmp != NULL); } } } break; case DW_FORM_udata: result = g_binary_content_read_uleb128(content, pos, &value->udata); break; case DW_FORM_ref1: result = g_binary_content_read_u8(content, pos, &value->ref1); break; case DW_FORM_ref2: result = g_binary_content_read_u16(content, pos, endian, &value->ref2); break; case DW_FORM_ref4: result = g_binary_content_read_u32(content, pos, endian, &value->ref4); break; case DW_FORM_ref8: result = g_binary_content_read_u64(content, pos, endian, &value->ref8); break; case DW_FORM_ref_udata: result = g_binary_content_read_uleb128(content, pos, &value->ref_udata); break; default: result = false; break; } return result; }