tons more stuff

[org.ibex.classgen.git] / src / org / ibex / classgen / CGConst.java

diff --git a/src/org/ibex/classgen/CGConst.java b/src/org/ibex/classgen/CGConst.java
index 83d2056..ca59d67 100644 (file)
--- 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__
 */