From 1a773ade9a4c15ea6ce1488f50a504d782ee92d9 Mon Sep 17 00:00:00 2001 From: Matthias Braun Date: Sat, 11 Oct 2008 17:00:16 +0000 Subject: [PATCH] my perl 5.10 here seems to create the %cpu when doing keys(%cpu), workaround problems because of that [r22693] --- ir/be/scripts/generate_machine.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ir/be/scripts/generate_machine.pl b/ir/be/scripts/generate_machine.pl index fd2813c2b..c3bd76380 100755 --- a/ir/be/scripts/generate_machine.pl +++ b/ir/be/scripts/generate_machine.pl @@ -59,10 +59,10 @@ my @obst_init_unit_types; # stack for unit type variable init my $bundle_size = exists($vliw{"bundle_size"}) ? $vliw{"bundle_size"} : 3; my $bundles_per_cycle = exists($vliw{"bundles_per_cycle"}) ? $vliw{"bundles_per_cycle"} : 1; -my $num_unit_types = scalar(keys(%cpu)); my $tmp = uc($arch); my $idx = 0; my $has_desc = defined(%cpu); +my $num_unit_types = scalar(keys(%cpu)); if ($has_desc) { push(@obst_unit_tp_defs, "/* enum for execution unit types */\n"); -- 2.20.1