diff options
author | Gordon Henriksen <gordonhenriksen@mac.com> | 2008-08-17 18:44:35 +0000 |
---|---|---|
committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2008-08-17 18:44:35 +0000 |
commit | 5eca075b74d62c621b160aa216b4cd50829a2cc7 (patch) | |
tree | 5406e0182a3a20726e00eec044bbca1199e673b9 /bindings/ocaml/llvm/llvm_ocaml.c | |
parent | 94fb5f2a7066c427a9d3dac10a33ccbd02aac467 (diff) | |
download | external_llvm-5eca075b74d62c621b160aa216b4cd50829a2cc7.tar.gz external_llvm-5eca075b74d62c621b160aa216b4cd50829a2cc7.tar.bz2 external_llvm-5eca075b74d62c621b160aa216b4cd50829a2cc7.zip |
Rename some GC classes so that their roll will hopefully be clearer.
In particular, Collector was confusing to implementors. Several
thought that this compile-time class was the place to implement
their runtime GC heap. Of course, it doesn't even exist at runtime.
Specifically, the renames are:
Collector -> GCStrategy
CollectorMetadata -> GCFunctionInfo
CollectorModuleMetadata -> GCModuleInfo
CollectorRegistry -> GCRegistry
Function::getCollector -> getGC (setGC, hasGC, clearGC)
Several accessors and nested types have also been renamed to be
consistent. These changes should be obvious.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@54899 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/llvm/llvm_ocaml.c')
-rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index 94bd374594..f09d6cd91c 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -643,13 +643,13 @@ CAMLprim value llvm_set_function_call_conv(value Id, LLVMValueRef Fn) { } /* llvalue -> string option */ -CAMLprim value llvm_collector(LLVMValueRef Fn) { - const char *Collector; +CAMLprim value llvm_gc(LLVMValueRef Fn) { + const char *GC; CAMLparam0(); CAMLlocal2(Name, Option); - if ((Collector = LLVMGetCollector(Fn))) { - Name = copy_string(Collector); + if ((GC = LLVMGetGC(Fn))) { + Name = copy_string(GC); Option = alloc(1, 0); Field(Option, 0) = Name; @@ -660,8 +660,8 @@ CAMLprim value llvm_collector(LLVMValueRef Fn) { } /* string option -> llvalue -> unit */ -CAMLprim value llvm_set_collector(value GC, LLVMValueRef Fn) { - LLVMSetCollector(Fn, GC == Val_int(0)? 0 : String_val(Field(GC, 0))); +CAMLprim value llvm_set_gc(value GC, LLVMValueRef Fn) { + LLVMSetGC(Fn, GC == Val_int(0)? 0 : String_val(Field(GC, 0))); return Val_unit; } |