Skip to content
This repository
Browse code

Minor style changes.

  • Loading branch information...
commit 4418be2ab192ad9d3617a3a2df840baef08ddd14 1 parent f376e0a
Vasily Chekalkin authored March 26, 2011

Showing 1 changed file with 4 additions and 3 deletions. Show diff stats Hide diff stats

  1. 7  compilers/opsc/src/Ops/JIT.pm
7  compilers/opsc/src/Ops/JIT.pm
@@ -43,15 +43,14 @@ method _load_pbc(Str $file) {
43 43
     $!packfile.unpack($contents);
44 44
 
45 45
     # Find Bytecode and Constants segments.
46  
-    my $dir := $!packfile.get_directory();
47  
-    die unless pir::defined($dir);
  46
+    my $dir := $!packfile.get_directory() // die("Couldn't find directory in Packfile");
48 47
 
49 48
     # Types:
50 49
     # 2 Constants.
51 50
     # 3 Bytecode.
52 51
     # 4 DEBUG
53 52
     for $dir -> $it {
54  
-        say("Segment { $it.key } => { $it.value.type }");
  53
+        #say("Segment { $it.key } => { $it.value.type }");
55 54
         my $segment := $it.value;
56 55
         if $segment.type == 2 {
57 56
             $!constants := $segment;
@@ -68,6 +67,8 @@ method _load_pbc(Str $file) {
68 67
     $!opmap := $!bytecode.opmap() // die("Couldn't load OpMap");
69 68
 }
70 69
 
  70
+
  71
+
71 72
 method process(Ops::Op $op, %c) {
72 73
 }
73 74
 

0 notes on commit 4418be2

Please sign in to comment.
Something went wrong with that request. Please try again.