/* Chrysalide - Outil d'analyse de fichiers binaires
 * const.c - décodage des chargements de constantes
 *
 * Copyright (C) 2010-2012 Cyrille Bagard
 *
 *  This file is part of Chrysalide.
 *
 *  OpenIDA 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.
 *
 *  OpenIDA 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 <http://www.gnu.org/licenses/>.
 */


#include "opcodes.h"


#include "../instruction.h"
#include "../operand.h"



/******************************************************************************
*                                                                             *
*  Paramètres  : data = flux de données à analyser.                           *
*                pos  = position courante dans ce flux. [OUT]                 *
*                end  = limite des données à analyser.                        *
*                addr = adresse virtuelle de l'instruction.                   *
*                proc = architecture ciblée par le désassemblage.             *
*                fmt  = format du fichier contenant le code.                  *
*                                                                             *
*  Description : Décode une instruction de type 'const'.                      *
*                                                                             *
*  Retour      : Instruction mise en place ou NULL.                           *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchInstruction *dalvik_read_instr_const(const bin_t *data, off_t *pos, off_t end, vmpa_t addr, const GDalvikProcessor *proc, const GDexFormat *fmt)
{
    GArchInstruction *result;               /* Instruction à retourner     */
    SourceEndian endian;                    /* Boutisme lié au binaire     */

    result = g_dalvik_instruction_new(DOP_CONST);

    endian = g_arch_processor_get_endianness(G_ARCH_PROCESSOR(proc));

    if (!dalvik_read_operands(result, fmt, data, pos, end, endian, DALVIK_OPT_31I))
    {
        g_object_unref(G_OBJECT(result));
        return NULL;
    }

    dalvik_mark_first_operand_as_written(result);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : data = flux de données à analyser.                           *
*                pos  = position courante dans ce flux. [OUT]                 *
*                end  = limite des données à analyser.                        *
*                addr = adresse virtuelle de l'instruction.                   *
*                proc = architecture ciblée par le désassemblage.             *
*                fmt  = format du fichier contenant le code.                  *
*                                                                             *
*  Description : Décode une instruction de type 'const/16'.                   *
*                                                                             *
*  Retour      : Instruction mise en place ou NULL.                           *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchInstruction *dalvik_read_instr_const_16(const bin_t *data, off_t *pos, off_t end, vmpa_t addr, const GDalvikProcessor *proc, const GDexFormat *fmt)
{
    GArchInstruction *result;               /* Instruction à retourner     */
    SourceEndian endian;                    /* Boutisme lié au binaire     */

    result = g_dalvik_instruction_new(DOP_CONST_16);

    endian = g_arch_processor_get_endianness(G_ARCH_PROCESSOR(proc));

    if (!dalvik_read_operands(result, fmt, data, pos, end, endian, DALVIK_OPT_21S))
    {
        g_object_unref(G_OBJECT(result));
        return NULL;
    }

    dalvik_mark_first_operand_as_written(result);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : data = flux de données à analyser.                           *
*                pos  = position courante dans ce flux. [OUT]                 *
*                end  = limite des données à analyser.                        *
*                addr = adresse virtuelle de l'instruction.                   *
*                proc = architecture ciblée par le désassemblage.             *
*                fmt  = format du fichier contenant le code.                  *
*                                                                             *
*  Description : Décode une instruction de type 'const/4'.                    *
*                                                                             *
*  Retour      : Instruction mise en place ou NULL.                           *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchInstruction *dalvik_read_instr_const_4(const bin_t *data, off_t *pos, off_t end, vmpa_t addr, const GDalvikProcessor *proc, const GDexFormat *fmt)
{
    GArchInstruction *result;               /* Instruction à retourner     */
    SourceEndian endian;                    /* Boutisme lié au binaire     */

    result = g_dalvik_instruction_new(DOP_CONST_4);

    endian = g_arch_processor_get_endianness(G_ARCH_PROCESSOR(proc));

    if (!dalvik_read_operands(result, fmt, data, pos, end, endian, DALVIK_OPT_11N))
    {
        g_object_unref(G_OBJECT(result));
        return NULL;
    }

    dalvik_mark_first_operand_as_written(result);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : data = flux de données à analyser.                           *
*                pos  = position courante dans ce flux. [OUT]                 *
*                end  = limite des données à analyser.                        *
*                addr = adresse virtuelle de l'instruction.                   *
*                proc = architecture ciblée par le désassemblage.             *
*                fmt  = format du fichier contenant le code.                  *
*                                                                             *
*  Description : Décode une instruction de type 'const-class'.                *
*                                                                             *
*  Retour      : Instruction mise en place ou NULL.                           *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchInstruction *dalvik_read_instr_const_class(const bin_t *data, off_t *pos, off_t end, vmpa_t addr, const GDalvikProcessor *proc, const GDexFormat *fmt)
{
    GArchInstruction *result;               /* Instruction à retourner     */
    SourceEndian endian;                    /* Boutisme lié au binaire     */

    result = g_dalvik_instruction_new(DOP_CONST_CLASS);

    endian = g_arch_processor_get_endianness(G_ARCH_PROCESSOR(proc));

    if (!dalvik_read_operands(result, fmt, data, pos, end, endian, DALVIK_OPT_21C | DALVIK_OP_POOL(DPT_TYPE)))
    {
        g_object_unref(G_OBJECT(result));
        return NULL;
    }

    dalvik_mark_first_operand_as_written(result);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : data = flux de données à analyser.                           *
*                pos  = position courante dans ce flux. [OUT]                 *
*                end  = limite des données à analyser.                        *
*                addr = adresse virtuelle de l'instruction.                   *
*                proc = architecture ciblée par le désassemblage.             *
*                fmt  = format du fichier contenant le code.                  *
*                                                                             *
*  Description : Décode une instruction de type 'const/high16'.               *
*                                                                             *
*  Retour      : Instruction mise en place ou NULL.                           *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchInstruction *dalvik_read_instr_const_high16(const bin_t *data, off_t *pos, off_t end, vmpa_t addr, const GDalvikProcessor *proc, const GDexFormat *fmt)
{
    GArchInstruction *result;               /* Instruction à retourner     */
    SourceEndian endian;                    /* Boutisme lié au binaire     */

    result = g_dalvik_instruction_new(DOP_CONST_HIGH16);

    endian = g_arch_processor_get_endianness(G_ARCH_PROCESSOR(proc));

    if (!dalvik_read_operands(result, fmt, data, pos, end, endian, DALVIK_OPT_21H))
    {
        g_object_unref(G_OBJECT(result));
        return NULL;
    }

    dalvik_mark_first_operand_as_written(result);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : data = flux de données à analyser.                           *
*                pos  = position courante dans ce flux. [OUT]                 *
*                end  = limite des données à analyser.                        *
*                addr = adresse virtuelle de l'instruction.                   *
*                proc = architecture ciblée par le désassemblage.             *
*                fmt  = format du fichier contenant le code.                  *
*                                                                             *
*  Description : Décode une instruction de type 'const-string'.               *
*                                                                             *
*  Retour      : Instruction mise en place ou NULL.                           *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchInstruction *dalvik_read_instr_const_string(const bin_t *data, off_t *pos, off_t end, vmpa_t addr, const GDalvikProcessor *proc, const GDexFormat *fmt)
{
    GArchInstruction *result;               /* Instruction à retourner     */
    SourceEndian endian;                    /* Boutisme lié au binaire     */

    result = g_dalvik_instruction_new(DOP_CONST_STRING);

    endian = g_arch_processor_get_endianness(G_ARCH_PROCESSOR(proc));

    if (!dalvik_read_operands(result, fmt, data, pos, end, endian, DALVIK_OPT_21C | DALVIK_OP_POOL(DPT_STRING)))
    {
        g_object_unref(G_OBJECT(result));
        return NULL;
    }

    dalvik_mark_first_operand_as_written(result);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : data = flux de données à analyser.                           *
*                pos  = position courante dans ce flux. [OUT]                 *
*                end  = limite des données à analyser.                        *
*                addr = adresse virtuelle de l'instruction.                   *
*                proc = architecture ciblée par le désassemblage.             *
*                fmt  = format du fichier contenant le code.                  *
*                                                                             *
*  Description : Décode une instruction de type 'const-string/jumbo'.         *
*                                                                             *
*  Retour      : Instruction mise en place ou NULL.                           *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchInstruction *dalvik_read_instr_const_string_jumbo(const bin_t *data, off_t *pos, off_t end, vmpa_t addr, const GDalvikProcessor *proc, const GDexFormat *fmt)
{
    GArchInstruction *result;               /* Instruction à retourner     */
    SourceEndian endian;                    /* Boutisme lié au binaire     */

    result = g_dalvik_instruction_new(DOP_CONST_STRING_JUMBO);

    endian = g_arch_processor_get_endianness(G_ARCH_PROCESSOR(proc));

    if (!dalvik_read_operands(result, fmt, data, pos, end, endian, DALVIK_OPT_31C | DALVIK_OP_POOL(DPT_STRING)))
    {
        g_object_unref(G_OBJECT(result));
        return NULL;
    }

    dalvik_mark_first_operand_as_written(result);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : data = flux de données à analyser.                           *
*                pos  = position courante dans ce flux. [OUT]                 *
*                end  = limite des données à analyser.                        *
*                addr = adresse virtuelle de l'instruction.                   *
*                proc = architecture ciblée par le désassemblage.             *
*                fmt  = format du fichier contenant le code.                  *
*                                                                             *
*  Description : Décode une instruction de type 'const-wide'.                 *
*                                                                             *
*  Retour      : Instruction mise en place ou NULL.                           *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchInstruction *dalvik_read_instr_const_wide(const bin_t *data, off_t *pos, off_t end, vmpa_t addr, const GDalvikProcessor *proc, const GDexFormat *fmt)
{
    GArchInstruction *result;               /* Instruction à retourner     */
    SourceEndian endian;                    /* Boutisme lié au binaire     */

    result = g_dalvik_instruction_new(DOP_CONST_WIDE);

    endian = g_arch_processor_get_endianness(G_ARCH_PROCESSOR(proc));

    if (!dalvik_read_operands(result, fmt, data, pos, end, endian, DALVIK_OPT_51L))
    {
        g_object_unref(G_OBJECT(result));
        return NULL;
    }

    dalvik_mark_first_operand_as_written(result);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : data = flux de données à analyser.                           *
*                pos  = position courante dans ce flux. [OUT]                 *
*                end  = limite des données à analyser.                        *
*                addr = adresse virtuelle de l'instruction.                   *
*                proc = architecture ciblée par le désassemblage.             *
*                fmt  = format du fichier contenant le code.                  *
*                                                                             *
*  Description : Décode une instruction de type 'const-wide/16'.              *
*                                                                             *
*  Retour      : Instruction mise en place ou NULL.                           *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchInstruction *dalvik_read_instr_const_wide_16(const bin_t *data, off_t *pos, off_t end, vmpa_t addr, const GDalvikProcessor *proc, const GDexFormat *fmt)
{
    GArchInstruction *result;               /* Instruction à retourner     */
    SourceEndian endian;                    /* Boutisme lié au binaire     */

    result = g_dalvik_instruction_new(DOP_CONST_WIDE_16);

    endian = g_arch_processor_get_endianness(G_ARCH_PROCESSOR(proc));

    if (!dalvik_read_operands(result, fmt, data, pos, end, endian, DALVIK_OPT_21S))
    {
        g_object_unref(G_OBJECT(result));
        return NULL;
    }

    dalvik_mark_first_operand_as_written(result);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : data = flux de données à analyser.                           *
*                pos  = position courante dans ce flux. [OUT]                 *
*                end  = limite des données à analyser.                        *
*                addr = adresse virtuelle de l'instruction.                   *
*                proc = architecture ciblée par le désassemblage.             *
*                fmt  = format du fichier contenant le code.                  *
*                                                                             *
*  Description : Décode une instruction de type 'const-wide/32'.              *
*                                                                             *
*  Retour      : Instruction mise en place ou NULL.                           *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchInstruction *dalvik_read_instr_const_wide_32(const bin_t *data, off_t *pos, off_t end, vmpa_t addr, const GDalvikProcessor *proc, const GDexFormat *fmt)
{
    GArchInstruction *result;               /* Instruction à retourner     */
    SourceEndian endian;                    /* Boutisme lié au binaire     */

    result = g_dalvik_instruction_new(DOP_CONST_WIDE_32);

    endian = g_arch_processor_get_endianness(G_ARCH_PROCESSOR(proc));

    if (!dalvik_read_operands(result, fmt, data, pos, end, endian, DALVIK_OPT_31I))
    {
        g_object_unref(G_OBJECT(result));
        return NULL;
    }

    dalvik_mark_first_operand_as_written(result);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : data = flux de données à analyser.                           *
*                pos  = position courante dans ce flux. [OUT]                 *
*                end  = limite des données à analyser.                        *
*                addr = adresse virtuelle de l'instruction.                   *
*                proc = architecture ciblée par le désassemblage.             *
*                fmt  = format du fichier contenant le code.                  *
*                                                                             *
*  Description : Décode une instruction de type 'const-wide/high16'.          *
*                                                                             *
*  Retour      : Instruction mise en place ou NULL.                           *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchInstruction *dalvik_read_instr_const_wide_high16(const bin_t *data, off_t *pos, off_t end, vmpa_t addr, const GDalvikProcessor *proc, const GDexFormat *fmt)
{
    GArchInstruction *result;               /* Instruction à retourner     */
    SourceEndian endian;                    /* Boutisme lié au binaire     */

    result = g_dalvik_instruction_new(DOP_CONST_WIDE_HIGH16);

    endian = g_arch_processor_get_endianness(G_ARCH_PROCESSOR(proc));

    if (!dalvik_read_operands(result, fmt, data, pos, end, endian, DALVIK_OPT_21H))
    {
        g_object_unref(G_OBJECT(result));
        return NULL;
    }

    dalvik_mark_first_operand_as_written(result);

    return result;

}