From ed1bd8a8ef79a85223e9f2d9088f9c5aba61032f Mon Sep 17 00:00:00 2001
From: Erick Tryzelaar
exception Error of string -let the_module = create_module "my cool jit" -let builder = builder () +let the_module = create_module (global_context ()) "my cool jit" +let builder = builder (global_context ()) let named_values:(string, llvalue) Hashtbl.t = Hashtbl.create 10@@ -899,8 +899,9 @@ open Llvm exception Error of string -let the_module = create_module "my cool jit" -let builder = builder () +let context = global_context () +let the_module = create_module context "my cool jit" +let builder = builder context let named_values:(string, llvalue) Hashtbl.t = Hashtbl.create 10 let rec codegen_expr = function -- cgit v1.1