Update the ocaml docs to work with LLVMContext.
authorErick Tryzelaar <idadesub@users.sourceforge.net>
Wed, 19 Aug 2009 17:32:38 +0000 (17:32 +0000)
committerErick Tryzelaar <idadesub@users.sourceforge.net>
Wed, 19 Aug 2009 17:32:38 +0000 (17:32 +0000)
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@79431 91177308-0d34-0410-b5e6-96231b3b80d8

docs/tutorial/OCamlLangImpl3.html
docs/tutorial/OCamlLangImpl4.html
docs/tutorial/OCamlLangImpl5.html
docs/tutorial/OCamlLangImpl6.html
docs/tutorial/OCamlLangImpl7.html

index 9caae435e29e149c8017d1d51b106afe849e8ae8..0ba04ab8af2c21cf7499afd7b9f78440ee084471 100644 (file)
@@ -95,8 +95,8 @@ an undeclared parameter):</p>
 <pre>
 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
 </pre>
 </div>
@@ -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
index ffa85d51dfb7891ac757e5c79876f749c9f1f0db..ec3c20bc6bfac6d08671ce25ffe8751dfcead110 100644 (file)
@@ -795,8 +795,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
index dea243f00b8ee02bc7ad49f61173f266fb4707f1..6c77e9fa45e6cd678620b0b2d7e326dee8bf1a07 100644 (file)
@@ -1200,8 +1200,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
index 780cab819142a70c29619fae6bb500dd9f8af810..8c6996f20573dfd6306aecd5c8377705ad15edfe 100644 (file)
@@ -1173,8 +1173,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
index abda44011cab14a629855bd4f463d8b3a515c1ba..dab3059c89a478a84b72f0181ee5bfd497749c1f 100644 (file)
@@ -1384,14 +1384,15 @@ 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
 
 (* Create an alloca instruction in the entry block of the function. This
  * is used for mutable variables etc. *)
 let create_entry_block_alloca the_function var_name =
-  let builder = builder_at (instr_begin (entry_block the_function)) in
+  let builder = builder_at context (instr_begin (entry_block the_function)) in
   build_alloca double_type var_name builder
 
 let rec codegen_expr = function