[udis86.git] / libudis86 / syn-intel.c

/* udis86 - libudis86/syn-intel.c
 *
 * Copyright (c) 2002-2009 Vivek Thampi
 * All rights reserved.
 * 
 * Redistribution and use in source and binary forms, with or without modification, 
 * are permitted provided that the following conditions are met:
 * 
 *     * Redistributions of source code must retain the above copyright notice, 
 *       this list of conditions and the following disclaimer.
 *     * Redistributions in binary form must reproduce the above copyright notice, 
 *       this list of conditions and the following disclaimer in the documentation 
 *       and/or other materials provided with the distribution.
 * 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR 
 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON 
 * ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */
#include "types.h"
#include "extern.h"
#include "decode.h"
#include "itab.h"
#include "syn.h"

/* -----------------------------------------------------------------------------
 * opr_cast() - Prints an operand cast.
 * -----------------------------------------------------------------------------
 */
static void 
opr_cast(struct ud* u, struct ud_operand* op)
{
  switch(op->size) {
	case  8: mkasm(u, "byte " ); break;
	case 16: mkasm(u, "word " ); break;
	case 32: mkasm(u, "dword "); break;
	case 64: mkasm(u, "qword "); break;
	case 80: mkasm(u, "tword "); break;
	default: break;
  }
  if (u->br_far)
	mkasm(u, "far "); 
  else if (u->br_near)
	mkasm(u, "near ");
}

/* -----------------------------------------------------------------------------
 * gen_operand() - Generates assembly output for each operand.
 * -----------------------------------------------------------------------------
 */
static void gen_operand(struct ud* u, struct ud_operand* op, int syn_cast)
{
  switch(op->type) {
	case UD_OP_REG:
		mkasm(u, ud_reg_tab[op->base - UD_R_AL]);
		break;

	case UD_OP_MEM: {

		int op_f = 0;

		if (syn_cast) 
			opr_cast(u, op);

		mkasm(u, "[");

		if (u->pfx_seg)
			mkasm(u, "%s:", ud_reg_tab[u->pfx_seg - UD_R_AL]);

		if (op->base) {
			mkasm(u, "%s", ud_reg_tab[op->base - UD_R_AL]);
			op_f = 1;
		}

		if (op->index) {
			if (op_f)
				mkasm(u, "+");
			mkasm(u, "%s", ud_reg_tab[op->index - UD_R_AL]);
			op_f = 1;
		}

		if (op->scale)
			mkasm(u, "*%d", op->scale);

		if (op->offset == 8) {
			if (op->lval.sbyte < 0)
				mkasm(u, "-0x%x", -op->lval.sbyte);
			else	mkasm(u, "%s0x%x", (op_f) ? "+" : "", op->lval.sbyte);
		}
		else if (op->offset == 16)
			mkasm(u, "%s0x%x", (op_f) ? "+" : "", op->lval.uword);
		else if (op->offset == 32) {
			if (u->adr_mode == 64) {
				if (op->lval.sdword < 0)
					mkasm(u, "-0x%x", -op->lval.sdword);
				else	mkasm(u, "%s0x%x", (op_f) ? "+" : "", op->lval.sdword);
			} 
			else	mkasm(u, "%s0x%lx", (op_f) ? "+" : "", op->lval.udword);
		}
		else if (op->offset == 64) 
			mkasm(u, "%s0x" FMT64 "x", (op_f) ? "+" : "", op->lval.uqword);

		mkasm(u, "]");
		break;
	}
			
	case UD_OP_IMM:
		if (syn_cast) opr_cast(u, op);
		switch (op->size) {
			case  8: mkasm(u, "0x%x", op->lval.ubyte);    break;
			case 16: mkasm(u, "0x%x", op->lval.uword);    break;
			case 32: mkasm(u, "0x%lx", op->lval.udword);  break;
			case 64: mkasm(u, "0x" FMT64 "x", op->lval.uqword); break;
			default: break;
		}
		break;

	case UD_OP_JIMM:
		if (syn_cast) opr_cast(u, op);
		switch (op->size) {
			case  8:
				mkasm(u, "0x" FMT64 "x", u->pc + op->lval.sbyte); 
				break;
			case 16:
				mkasm(u, "0x" FMT64 "x", u->pc + op->lval.sword);
				break;
			case 32:
				mkasm(u, "0x" FMT64 "x", u->pc + op->lval.sdword);
				break;
			default:break;
		}
		break;

	case UD_OP_PTR:
		switch (op->size) {
			case 32:
				mkasm(u, "word 0x%x:0x%x", op->lval.ptr.seg, 
					op->lval.ptr.off & 0xFFFF);
				break;
			case 48:
				mkasm(u, "dword 0x%x:0x%lx", op->lval.ptr.seg, 
					op->lval.ptr.off);
				break;
		}
		break;

	case UD_OP_CONST:
		if (syn_cast) opr_cast(u, op);
		mkasm(u, "%d", op->lval.udword);
		break;

	default: return;
  }
}

/* =============================================================================
 * translates to intel syntax 
 * =============================================================================
 */
extern void ud_translate_intel(struct ud* u)
{
  /* -- prefixes -- */

  /* check if P_OSO prefix is used */
  if (! P_OSO(u->itab_entry->prefix) && u->pfx_opr) {
	switch (u->dis_mode) {
		case 16: 
			mkasm(u, "o32 ");
			break;
		case 32:
		case 64:
 			mkasm(u, "o16 ");
			break;
	}
  }

  /* check if P_ASO prefix was used */
  if (! P_ASO(u->itab_entry->prefix) && u->pfx_adr) {
	switch (u->dis_mode) {
		case 16: 
			mkasm(u, "a32 ");
			break;
		case 32:
 			mkasm(u, "a16 ");
			break;
		case 64:
 			mkasm(u, "a32 ");
			break;
	}
  }

  if (u->pfx_lock)
	mkasm(u, "lock ");
  if (u->pfx_rep)
	mkasm(u, "rep ");
  if (u->pfx_repne)
	mkasm(u, "repne ");
  if (u->implicit_addr && u->pfx_seg)
	mkasm(u, "%s ", ud_reg_tab[u->pfx_seg - UD_R_AL]);

  /* print the instruction mnemonic */
  mkasm(u, "%s ", ud_lookup_mnemonic(u->mnemonic));

  /* operand 1 */
  if (u->operand[0].type != UD_NONE) {
	gen_operand(u, &u->operand[0], u->c1);
  }
  /* operand 2 */
  if (u->operand[1].type != UD_NONE) {
	mkasm(u, ", ");
	gen_operand(u, &u->operand[1], u->c2);
  }

  /* operand 3 */
  if (u->operand[2].type != UD_NONE) {
	mkasm(u, ", ");
	gen_operand(u, &u->operand[2], u->c3);
  }
}
Commit	Line	Data
bbe45369	1	/* udis86 - libudis86/syn-intel.c
	2	*
	3	* Copyright (c) 2002-2009 Vivek Thampi
	4	* All rights reserved.
	5	*
	6	* Redistribution and use in source and binary forms, with or without modification,
	7	* are permitted provided that the following conditions are met:
	8	*
	9	* * Redistributions of source code must retain the above copyright notice,
	10	* this list of conditions and the following disclaimer.
	11	* * Redistributions in binary form must reproduce the above copyright notice,
	12	* this list of conditions and the following disclaimer in the documentation
	13	* and/or other materials provided with the distribution.
	14	*
	15	* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
	16	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
	17	* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
	18	* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
	19	* ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
	20	* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
	21	* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
	22	* ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
	23	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
	24	* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
	25	*/
	26	#include "types.h"
	27	#include "extern.h"
	28	#include "decode.h"
	29	#include "itab.h"
	30	#include "syn.h"
	31
	32	/* -----------------------------------------------------------------------------
	33	* opr_cast() - Prints an operand cast.
	34	* -----------------------------------------------------------------------------
	35	*/
	36	static void
	37	opr_cast(struct ud* u, struct ud_operand* op)
	38	{
	39	switch(op->size) {
	40	case 8: mkasm(u, "byte " ); break;
	41	case 16: mkasm(u, "word " ); break;
	42	case 32: mkasm(u, "dword "); break;
	43	case 64: mkasm(u, "qword "); break;
	44	case 80: mkasm(u, "tword "); break;
	45	default: break;
	46	}
	47	if (u->br_far)
	48	mkasm(u, "far ");
	49	else if (u->br_near)
	50	mkasm(u, "near ");
	51	}
	52
	53	/* -----------------------------------------------------------------------------
	54	* gen_operand() - Generates assembly output for each operand.
	55	* -----------------------------------------------------------------------------
	56	*/
	57	static void gen_operand(struct ud* u, struct ud_operand* op, int syn_cast)
	58	{
	59	switch(op->type) {
	60	case UD_OP_REG:
	61	mkasm(u, ud_reg_tab[op->base - UD_R_AL]);
	62	break;
	63
	64	case UD_OP_MEM: {
65
66	int op_f = 0;
67
68	if (syn_cast)
69	opr_cast(u, op);
70
71	mkasm(u, "[");
72
73	if (u->pfx_seg)
74	mkasm(u, "%s:", ud_reg_tab[u->pfx_seg - UD_R_AL]);
75
76	if (op->base) {
77	mkasm(u, "%s", ud_reg_tab[op->base - UD_R_AL]);
78	op_f = 1;
79	}
80
81	if (op->index) {
82	if (op_f)
83	mkasm(u, "+");
84	mkasm(u, "%s", ud_reg_tab[op->index - UD_R_AL]);
85	op_f = 1;
86	}
87
88	if (op->scale)
89	mkasm(u, "*%d", op->scale);
90
91	if (op->offset == 8) {
92	if (op->lval.sbyte < 0)
93	mkasm(u, "-0x%x", -op->lval.sbyte);
94	else mkasm(u, "%s0x%x", (op_f) ? "+" : "", op->lval.sbyte);
95	}
96	else if (op->offset == 16)
97	mkasm(u, "%s0x%x", (op_f) ? "+" : "", op->lval.uword);
98	else if (op->offset == 32) {
99	if (u->adr_mode == 64) {
100	if (op->lval.sdword < 0)
101	mkasm(u, "-0x%x", -op->lval.sdword);
102	else mkasm(u, "%s0x%x", (op_f) ? "+" : "", op->lval.sdword);
103	}
104	else mkasm(u, "%s0x%lx", (op_f) ? "+" : "", op->lval.udword);
105	}
106	else if (op->offset == 64)
107	mkasm(u, "%s0x" FMT64 "x", (op_f) ? "+" : "", op->lval.uqword);
108
109	mkasm(u, "]");
110	break;
111	}
112
113	case UD_OP_IMM:
114	if (syn_cast) opr_cast(u, op);
115	switch (op->size) {
116	case 8: mkasm(u, "0x%x", op->lval.ubyte); break;
117	case 16: mkasm(u, "0x%x", op->lval.uword); break;
118	case 32: mkasm(u, "0x%lx", op->lval.udword); break;
119	case 64: mkasm(u, "0x" FMT64 "x", op->lval.uqword); break;
120	default: break;
121	}
122	break;
123
124	case UD_OP_JIMM:
125	if (syn_cast) opr_cast(u, op);
126	switch (op->size) {
127	case 8:
128	mkasm(u, "0x" FMT64 "x", u->pc + op->lval.sbyte);
129	break;
130	case 16:
131	mkasm(u, "0x" FMT64 "x", u->pc + op->lval.sword);
132	break;
133	case 32:
134	mkasm(u, "0x" FMT64 "x", u->pc + op->lval.sdword);
135	break;
136	default:break;
137	}
138	break;
139
140	case UD_OP_PTR:
141	switch (op->size) {
142	case 32:
143	mkasm(u, "word 0x%x:0x%x", op->lval.ptr.seg,
144	op->lval.ptr.off & 0xFFFF);
145	break;
146	case 48:
147	mkasm(u, "dword 0x%x:0x%lx", op->lval.ptr.seg,
148	op->lval.ptr.off);
149	break;
150	}
151	break;
152
153	case UD_OP_CONST:
154	if (syn_cast) opr_cast(u, op);
155	mkasm(u, "%d", op->lval.udword);
156	break;
157
158	default: return;
159	}
160	}
161
162	/* =============================================================================
163	* translates to intel syntax
164	* =============================================================================
165	*/
166	extern void ud_translate_intel(struct ud* u)
167	{
168	/* -- prefixes -- */
169
170	/* check if P_OSO prefix is used */
171	if (! P_OSO(u->itab_entry->prefix) && u->pfx_opr) {
172	switch (u->dis_mode) {
173	case 16:
174	mkasm(u, "o32 ");
175	break;
176	case 32:
177	case 64:
178	mkasm(u, "o16 ");
179	break;
180	}
181	}
182
183	/* check if P_ASO prefix was used */
184	if (! P_ASO(u->itab_entry->prefix) && u->pfx_adr) {
185	switch (u->dis_mode) {
186	case 16:
187	mkasm(u, "a32 ");
188	break;
189	case 32:
190	mkasm(u, "a16 ");
191	break;
192	case 64:
193	mkasm(u, "a32 ");
194	break;
195	}
196	}
197
198	if (u->pfx_lock)
199	mkasm(u, "lock ");
200	if (u->pfx_rep)
201	mkasm(u, "rep ");
202	if (u->pfx_repne)
203	mkasm(u, "repne ");
204	if (u->implicit_addr && u->pfx_seg)
205	mkasm(u, "%s ", ud_reg_tab[u->pfx_seg - UD_R_AL]);
206
207	/* print the instruction mnemonic */
208	mkasm(u, "%s ", ud_lookup_mnemonic(u->mnemonic));
209
210	/* operand 1 */
211	if (u->operand[0].type != UD_NONE) {
212	gen_operand(u, &u->operand[0], u->c1);
213	}
214	/* operand 2 */
215	if (u->operand[1].type != UD_NONE) {
216	mkasm(u, ", ");
217	gen_operand(u, &u->operand[1], u->c2);
218	}
219
220	/* operand 3 */
221	if (u->operand[2].type != UD_NONE) {
222	mkasm(u, ", ");
223	gen_operand(u, &u->operand[2], u->c3);
224	}
225	}