From a2eb1e7a8c01462dce3db86a3d71eef4cfc742a5 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Christian=20W=C3=BCrdig?=
 <chriswue@ipd.info.uni-karlsruhe.de>
Date: Thu, 22 Feb 2007 11:03:54 +0000
Subject: [PATCH] fixed out-flags parsing

---
 ir/be/scripts/generate_new_opcodes.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ir/be/scripts/generate_new_opcodes.pl b/ir/be/scripts/generate_new_opcodes.pl
index f250a4225..121b6459a 100755
--- a/ir/be/scripts/generate_new_opcodes.pl
+++ b/ir/be/scripts/generate_new_opcodes.pl
@@ -90,9 +90,9 @@ foreach my $op (keys(%nodes)) {
 
 		for (my $idx = 0; $idx <= $#outs; $idx++) {
 			# check, if we have additional flags annotated to out
-			if ($outs[$idx] =~ /:(S|I(\|(S|I))*)/) {
+			if ($outs[$idx] =~ /:((S|I)(\|(S|I))*)/) {
 				push(@out_flags, $1);
-				$outs[$idx] =~ s/:(S|I(\|(S|I))*)//;
+				$outs[$idx] =~ s/:((S|I)(\|(S|I))*)//;
 			}
 			push(@obst_proj, "  pn_$op\_".$outs[$idx]." = $idx,\n");
 		}
-- 
2.20.1