/*
* Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
* All rights reserved.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program 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 Lesser General Public License for more details.
* 
* You should have received a copy of the GNU Lesser General Public License
* along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

#include <iostream>
#include "dwarfmanager.h"

void EditLocationExpression (Dwarf_Byte_Ptr data, unsigned int pointer_size, unsigned long length, FileShdrPair & aPair)
{
	unsigned op;
	size_t bytes_read;
	Dwarf_Byte_Ptr end = data + length;

	while (data < end){
		op = *data++;

		switch (op){
		case DW_OP_addr:
			LinearAddr addr = READ_UNALIGNED4(data);
			LinearAddr relocatedAddr = aPair.iXIPFileDetails.Relocate(addr);
			WRITE_UNALIGNED4(data, relocatedAddr);
			data += pointer_size;
			break;
		case DW_OP_deref:
			break;
		case DW_OP_const1u:
		case DW_OP_const1s:
			data++;
			break;
		case DW_OP_const2u:
		case DW_OP_const2s:
			data += 2;
			break;
		case DW_OP_const4u:
		case DW_OP_const4s:
			data += 4;
			break;
		case DW_OP_const8u:
		case DW_OP_const8s:
			data += 8;
			break;
		case DW_OP_constu:
		case DW_OP_consts: 
		{
			ULEB128(data, bytes_read);
			break;
		}
		case DW_OP_dup:
		case DW_OP_drop:
		case DW_OP_over:
			break;
		case DW_OP_pick:
			data++;
			break;
		case DW_OP_swap:
		case DW_OP_rot:
		case DW_OP_xderef:
		case DW_OP_abs:
		case DW_OP_and:
		case DW_OP_div:
		case DW_OP_minus:
		case DW_OP_mod:
		case DW_OP_mul:
		case DW_OP_neg:
		case DW_OP_not:
		case DW_OP_or:
		case DW_OP_plus:
			break;
		case DW_OP_plus_uconst:
		{
			ULEB128(data, bytes_read);
			break;
		}
		case DW_OP_shl:
		case DW_OP_shr:
		case DW_OP_shra:
		case DW_OP_xor:
			break;
		case DW_OP_bra:
			data += 2;
			break;
		case DW_OP_eq:
		case DW_OP_ge:
		case DW_OP_gt:
		case DW_OP_le:
		case DW_OP_lt:
		case DW_OP_ne:
			break;
		case DW_OP_skip:
			data += 2;
			break;

		case DW_OP_lit0:
		case DW_OP_lit1:
		case DW_OP_lit2:
		case DW_OP_lit3:
		case DW_OP_lit4:
		case DW_OP_lit5:
		case DW_OP_lit6:
		case DW_OP_lit7:
		case DW_OP_lit8:
		case DW_OP_lit9:
		case DW_OP_lit10:
		case DW_OP_lit11:
		case DW_OP_lit12:
		case DW_OP_lit13:
		case DW_OP_lit14:
		case DW_OP_lit15:
		case DW_OP_lit16:
		case DW_OP_lit17:
		case DW_OP_lit18:
		case DW_OP_lit19:
		case DW_OP_lit20:
		case DW_OP_lit21:
		case DW_OP_lit22:
		case DW_OP_lit23:
		case DW_OP_lit24:
		case DW_OP_lit25:
		case DW_OP_lit26:
		case DW_OP_lit27:
		case DW_OP_lit28:
		case DW_OP_lit29:
		case DW_OP_lit30:
		case DW_OP_lit31:
			break;

		case DW_OP_reg0:
		case DW_OP_reg1:
		case DW_OP_reg2:
		case DW_OP_reg3:
		case DW_OP_reg4:
		case DW_OP_reg5:
		case DW_OP_reg6:
		case DW_OP_reg7:
		case DW_OP_reg8:
		case DW_OP_reg9:
		case DW_OP_reg10:
		case DW_OP_reg11:
		case DW_OP_reg12:
		case DW_OP_reg13:
		case DW_OP_reg14:
		case DW_OP_reg15:
		case DW_OP_reg16:
		case DW_OP_reg17:
		case DW_OP_reg18:
		case DW_OP_reg19:
		case DW_OP_reg20:
		case DW_OP_reg21:
		case DW_OP_reg22:
		case DW_OP_reg23:
		case DW_OP_reg24:
		case DW_OP_reg25:
		case DW_OP_reg26:
		case DW_OP_reg27:
		case DW_OP_reg28:
		case DW_OP_reg29:
		case DW_OP_reg30:
		case DW_OP_reg31:
			break;

		case DW_OP_breg0:
		case DW_OP_breg1:
		case DW_OP_breg2:
		case DW_OP_breg3:
		case DW_OP_breg4:
		case DW_OP_breg5:
		case DW_OP_breg6:
		case DW_OP_breg7:
		case DW_OP_breg8:
		case DW_OP_breg9:
		case DW_OP_breg10:
		case DW_OP_breg11:
		case DW_OP_breg12:
		case DW_OP_breg13:
		case DW_OP_breg14:
		case DW_OP_breg15:
		case DW_OP_breg16:
		case DW_OP_breg17:
		case DW_OP_breg18:
		case DW_OP_breg19:
		case DW_OP_breg20:
		case DW_OP_breg21:
		case DW_OP_breg22:
		case DW_OP_breg23:
		case DW_OP_breg24:
		case DW_OP_breg25:
		case DW_OP_breg26:
		case DW_OP_breg27:
		case DW_OP_breg28:
		case DW_OP_breg29:
		case DW_OP_breg30:
		case DW_OP_breg31:
		case DW_OP_fbreg:
		{
			ULEB128(data, bytes_read);
			break;
		}
		case DW_OP_bregx:
		{
			ULEB128(data, bytes_read);
			ULEB128(data, bytes_read);
			break;
		}
		case DW_OP_piece:
		{
			ULEB128(data, bytes_read);
			break;
		}
		case DW_OP_deref_size:
		case DW_OP_xderef_size:
			data++;
			break;
		case DW_OP_nop:
		  /* DWARF 3 extensions.  */
		case DW_OP_push_object_address:
		  break;
		case DW_OP_call2:
		  /* XXX: Strictly speaking for 64-bit DWARF3 files
		     this ought to be an 8-byte wide computation.  */
		  data += 2;
		  break;
		case DW_OP_call4:
		  /* XXX: Strictly speaking for 64-bit DWARF3 files
		     this ought to be an 8-byte wide computation.  */
		  data += 4;
		  break;
		case DW_OP_call_ref:
		  /* XXX: Strictly speaking for 64-bit DWARF3 files
		     this ought to be an 8-byte wide computation.  */
		  data += 4;
		  break;
		case DW_OP_form_tls_address:
		case DW_OP_call_frame_cfa:
		  break;
		case DW_OP_bit_piece:
		{
			// Handily the spec doesn't describe the operands - but by analogy with
			// DW_OP_piece we assume these are ULEB128 encoded.
			ULEB128(data, bytes_read);
			ULEB128(data, bytes_read);
			break;
		}
	
		/* GNU extensions.  */
		case DW_OP_GNU_push_tls_address:
		//case DW_OP_GNU_uninit:
			/* FIXME: Is there data associated with this OP ?  */
			break;

		default:
			// bail - can't do anything else sensible here
			cerr << "Warning: Unrecognized opcode " << op << " in Dwarf expression.\n";
		  return;
		}

	}
}