X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mono%2Fmini%2Fgenmdesc.pl;h=8c8e7eac6407e0513297e1527c1f4a45cd8b5a0d;hb=91149fb1e524882128d180a9ba5f4d0f13e31521;hp=cd0a5a0e09ae752548adba54fe9b35179d17ec16;hpb=b661dde23abc4840e26e28ff8db76401eea9a066;p=mono.git

diff --git a/mono/mini/genmdesc.pl b/mono/mini/genmdesc.pl
index cd0a5a0e09a..8c8e7eac640 100644
--- a/mono/mini/genmdesc.pl
+++ b/mono/mini/genmdesc.pl
@@ -20,7 +20,7 @@ sub INST_MAX   () {return 6;}
 
 # this must include all the #defines used in mini-ops.h
 my @defines = qw (__i386__ __x86_64__ __ppc__ __powerpc__ __ppc64__ __arm__ 
-	__sparc__ sparc __s390__ s390 __ia64__ __alpha__ __mips__ __aarch64__);
+	__sparc__ sparc __s390__ s390 __alpha__ __mips__ __aarch64__);
 my %table =();
 my %template_table =();
 my @opcodes = ();
@@ -178,6 +178,9 @@ sub build_spec {
 		if (defined $vals [$i]) {
 			if ($i == INST_LEN) {
 			        $n = $vals [$i];
+			        if ($n =~ /[^0-9]/) {
+						die "Invalid instruction length $n\n";
+			        }
 			        if ((defined $vals [INST_NACL]) and $nacl == 1){
 				    $n = $vals [INST_NACL];
 			        }