X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fia32%2Fia32_emitter.c;h=7507e35fb25b3ffbb37b22533bb83dc7cfcc0998;hb=c535ac8fff54e1684c27ce3412e3426caf9a004b;hp=03907b420cf1186e29601e3372eefb712eb61871;hpb=7c5ef5e313aea108a7e90764b7aa1a50e77894c9;p=libfirm

diff --git a/ir/be/ia32/ia32_emitter.c b/ir/be/ia32/ia32_emitter.c
index 03907b420..7507e35fb 100644
--- a/ir/be/ia32/ia32_emitter.c
+++ b/ir/be/ia32/ia32_emitter.c
@@ -21,20 +21,123 @@
 #include "ia32_new_nodes.h"
 #include "ia32_map_regs.h"
 
+#ifdef obstack_chunk_alloc
+# undef obstack_chunk_alloc
+# define obstack_chunk_alloc xmalloc
+#else
+# define obstack_chunk_alloc xmalloc
+# define obstack_chunk_free free
+#endif
+
 #define SNPRINTF_BUF_LEN 128
 
 static const arch_env_t *arch_env = NULL;
 
-char *ia32_emit_binop(ir_node *irn) {
-	return "R1, R2";
+char *ia32_emit_binop(const ir_node *n) {
+	static char *buf = NULL;
+
+	if (! buf) {
+		buf = xcalloc(1, SNPRINTF_BUF_LEN);
+	}
+	else {
+		memset(buf, 0, SNPRINTF_BUF_LEN);
+	}
+
+	switch(get_ia32_op_type(n)) {
+		case ia32_Normal:
+			if (get_ia32_cnst(n)) {
+				lc_esnprintf(ia32_get_arg_env(), buf, SNPRINTF_BUF_LEN, "%1D, %s", n, get_ia32_cnst(n));
+			}
+			else {
+				lc_esnprintf(ia32_get_arg_env(), buf, SNPRINTF_BUF_LEN, "%1D, %4S", n, n);
+			}
+			break;
+		case ia32_am_Source:
+			lc_esnprintf(ia32_get_arg_env(), buf, SNPRINTF_BUF_LEN, "%1D, %s", n, ia32_emit_am(n));
+			break;
+		case ia32_am_Dest:
+			lc_esnprintf(ia32_get_arg_env(), buf, SNPRINTF_BUF_LEN, "%s, %4S", ia32_emit_am(n), n);
+			break;
+		default:
+			assert(0 && "unsupported op type");
+	}
+
+	return buf;
 }
 
-char *ia32_emit_unop(ir_node *irn) {
-	return "R";
+char *ia32_emit_unop(const ir_node *n) {
+	static char *buf = NULL;
+
+	if (! buf) {
+		buf = xcalloc(1, SNPRINTF_BUF_LEN);
+	}
+	else {
+		memset(buf, 0, SNPRINTF_BUF_LEN);
+	}
+
+	switch(get_ia32_op_type(n)) {
+		case ia32_Normal:
+			lc_esnprintf(ia32_get_arg_env(), buf, SNPRINTF_BUF_LEN, "%1D", n);
+			break;
+		case ia32_am_Dest:
+			snprintf(buf, SNPRINTF_BUF_LEN, ia32_emit_am(n));
+			break;
+		default:
+			assert(0 && "unsupported op type");
+	}
+
+	return buf;
 }
 
-char *ia32_emit_am(ir_node *irn) {
-	return "AM";
+char *ia32_emit_am(const ir_node *n) {
+	ia32_am_flavour_t am_flav    = get_ia32_am_flavour(n);
+	int               had_output = 0;
+	char             *s;
+	int               size;
+	static struct obstack *obst  = NULL;
+
+	if (! obst) {
+		obst = xcalloc(1, sizeof(*obst));
+	}
+	else {
+		obstack_free(obst, NULL);
+	}
+
+	/* obstack_free with NULL results in an uninitialized obstack */
+	obstack_init(obst);
+
+	obstack_printf(obst, "[");
+
+	if (am_flav & ia32_B) {
+		lc_eoprintf(ia32_get_arg_env(), obst, "%1S", n);
+		had_output = 1;
+	}
+
+	if (am_flav & ia32_I) {
+		if (had_output) {
+			obstack_printf(obst, "+");
+		}
+
+		lc_eoprintf(ia32_get_arg_env(), obst, "%2S", n);
+
+		if (am_flav & ia32_S) {
+			obstack_printf(obst, "*%d", get_ia32_am_scale(n));
+		}
+
+		had_output = 1;
+	}
+
+	if (am_flav & ia32_O) {
+		obstack_printf(obst, get_ia32_am_offs(n));
+	}
+
+	obstack_printf(obst, "] ");
+
+	size        = obstack_object_size(obst);
+	s           = obstack_finish(obst);
+	s[size - 1] = '\0';
+
+	return s;
 }
 
 /*************************************************************
@@ -48,30 +151,6 @@ char *ia32_emit_am(ir_node *irn) {
  * |_|                                       |_|
  *************************************************************/
 
-/**
- * Return node's tarval as string.
- */
-const char *node_const_to_str(ir_node *n) {
-	char *s = get_ia32_cnst(n);
-
-	if (!s)
-		s = "NULL";
-
-	return s;
-}
-
-/**
- * Returns node's offset as string.
- */
-char *node_offset_to_str(ir_node *n) {
-	char *s = get_ia32_am_offs(n);
-
-	if (!s)
-		s = "";
-
-	return s;
-}
-
 /* We always pass the ir_node which is a pointer. */
 static int ia32_get_arg_type(const lc_arg_occ_t *occ) {
 	return lc_arg_type_ptr;
@@ -203,10 +282,10 @@ static int ia32_const_to_str(lc_appendable_t *app,
 		return lc_arg_append(app, occ, "(null)", 6);
 
 	if (occ->conversion == 'C') {
-		buf = node_const_to_str(X);
+		buf = get_ia32_cnst(X);
 	}
 	else { /* 'O' */
-		buf = node_offset_to_str(X);
+		buf = get_ia32_am_offs(X);
 	}
 
 	return lc_arg_append(app, occ, buf, strlen(buf));