From 94f4a791ce59facde3a91d62c6cd6e4385843a1b Mon Sep 17 00:00:00 2001
From: Matthias Braun <matze@braunis.de>
Date: Mon, 25 Jun 2007 23:10:22 +0000
Subject: [PATCH] allow specification of attribute copy functions

[r14759]
---
 ir/be/scripts/generate_new_opcodes.pl | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/ir/be/scripts/generate_new_opcodes.pl b/ir/be/scripts/generate_new_opcodes.pl
index 0e153368a..8aedc397b 100755
--- a/ir/be/scripts/generate_new_opcodes.pl
+++ b/ir/be/scripts/generate_new_opcodes.pl
@@ -41,8 +41,10 @@ our %operands;
 our %cpu;
 our $default_attr_type;
 our $default_cmp_attr;
+our $default_copy_attr;
 our %init_attr;
 our %compare_attr;
+our %copy_attr;
 our %reg_classes;
 
 # include spec file
@@ -563,6 +565,13 @@ foreach my $op (keys(%nodes)) {
 	if (defined($cmp_attr_func)) {
 		push(@obst_new_irop, "\tops.node_cmp_attr = ${cmp_attr_func};\n");
 	}
+	my $copy_attr_func = $copy_attr{$attr_type};
+	if (!defined($copy_attr_func)) {
+		$copy_attr_func = $default_copy_attr;
+	}
+	if (defined($copy_attr_func)) {
+		push(@obst_new_irop, "\tops.copy_attr = ${copy_attr_func};\n");
+	}
 
 	$n_opcodes++;
 	my $n_res = $out_arity;
-- 
2.20.1