Load jitted_ops.bc as module with all precompiled stuff

parrot · Mar 26, 2011 · c53341e · c53341e
1 parent 9093704
commit c53341e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 17 deletions.
diff --git a/compilers/opsc/src/Ops/JIT.pm b/compilers/opsc/src/Ops/JIT.pm
@@ -21,6 +21,9 @@ has $!constants;
 has $!bytecode;
 has $!opmap;
 
+# LLVM stuff
+has $!module;
+
 =item new
 Create new JITter for given PBC and OpsFile.
 
@@ -80,6 +83,11 @@ method _load_pbc(Str $file) {
 Initialize LLVM
 
 method _init_llvm() {
+    # t/jit/jitted_ops.bc generated by:
+    # ./ops2c -d t/jit/jitted.ops
+    # llvm-gcc-4.2 -emit-llvm -O0 -Iinclude -I/usr/include/i486-linux-gnu -o t/jit/jitted_ops.bc -c t/jit/jitted_ops.c
+    $!module := LLVM::Module.create('JIT');
+    $!module.read("t/jit/jitted_ops.bc") // die("Couldn't read t/jit/jitted_ops.bc");
 }
 
 =begin Processing

diff --git a/t/jit/proto.t b/t/jit/proto.t
@@ -31,23 +31,6 @@ my $jitter := Ops::JIT.new($pbc, $ops_file, $oplib);
 ok( 1, "JITter created");
 
 =begin
-my $dir := $pf.get_directory();
-ok( pir::defined($dir), "Got PF Directory");
-
-my $bc := $dir{'BYTECODE_' ~ $pir};
-ok( pir::defined($bc), "Got bytecode" );
-
-my $opmap := $bc.opmap();
-ok( pir::defined($opmap), "Got OpMap");
-
-# Convert it to hash for faster lookup. Also cleanup a bit.
-my %parsed_op;
-for $ops_file.ops -> $op {
-    Ops::Util::strip_source($op);
-    %parsed_op{$op.full_name} := $op;
-};
-#_dumper(%parsed_op);
-
 my $trans := Ops::Trans::JIT.new;
 ok( 1, "Got Ops::Trans::JIT" );