X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=src%2Forg%2Fibex%2Fclassgen%2FCGConst.java;h=ca59d671a595e7e93d431c6d431650b8a6758cf2;hb=4d74252fce7ed5e091bed579075529bfbcc827f2;hp=83d2056f54968af1f25e9e173df68f1c4a4f50c8;hpb=1a607deb9b281751feb3c57b163d17f7d1c0c801;p=org.ibex.classgen.git diff --git a/src/org/ibex/classgen/CGConst.java b/src/org/ibex/classgen/CGConst.java index 83d2056..ca59d67 100644 --- a/src/org/ibex/classgen/CGConst.java +++ b/src/org/ibex/classgen/CGConst.java @@ -242,16 +242,16 @@ while(<>) { next unless(m|byte ([A-Z0-9_]+) = .*?([0-9xA-F]+);\s+//\s*(.*)$|i); my ($name,$num) = ($1,hex($2)); $_ = $3; - my $n = 1; - $n |= (s/^(\d+)// ? $1 : (s/^V//||die,7)) << 1; + my $n = 1<<5; + $n |= s/^(\d+)// ? $1 : (s/^V//||die,7); $n |= (1<<4) if(s/^C//); - $n |= (1<<5) if(s/^B//); + $n |= (1<<3) if(s/^B//); die if(/./); $a[$num] = $n; } print "private static final byte[] OP_DATA = {\n\t"; for(my $i=0;$i<256;$i++) { - printf "0x%02x%s", $a[$i]||2, $i==255?"\n};\n":($i%16)==15?",\n\t":", "; + printf "0x%02x%s", $a[$i]||1, $i==255?"\n};\n":($i%16)==15?",\n\t":", "; } __END__ */