Shih-wei Liao | e264f62 | 2010-02-10 11:10:31 -0800 | [diff] [blame] | 1 | //===-- OcamlGC.cpp - Ocaml frametable GC strategy ------------------------===// |
| 2 | // |
| 3 | // The LLVM Compiler Infrastructure |
| 4 | // |
| 5 | // This file is distributed under the University of Illinois Open Source |
| 6 | // License. See LICENSE.TXT for details. |
| 7 | // |
| 8 | //===----------------------------------------------------------------------===// |
| 9 | // |
| 10 | // This file implements lowering for the llvm.gc* intrinsics compatible with |
| 11 | // Objective Caml 3.10.0, which uses a liveness-accurate static stack map. |
| 12 | // |
| 13 | // The frametable emitter is in OcamlGCPrinter.cpp. |
| 14 | // |
| 15 | //===----------------------------------------------------------------------===// |
| 16 | |
| 17 | #include "llvm/CodeGen/GCs.h" |
| 18 | #include "llvm/CodeGen/GCStrategy.h" |
| 19 | |
| 20 | using namespace llvm; |
| 21 | |
| 22 | namespace { |
Stephen Hines | ebe69fe | 2015-03-23 12:10:34 -0700 | [diff] [blame^] | 23 | class OcamlGC : public GCStrategy { |
| 24 | public: |
| 25 | OcamlGC(); |
| 26 | }; |
Shih-wei Liao | e264f62 | 2010-02-10 11:10:31 -0800 | [diff] [blame] | 27 | } |
| 28 | |
Stephen Hines | ebe69fe | 2015-03-23 12:10:34 -0700 | [diff] [blame^] | 29 | static GCRegistry::Add<OcamlGC> X("ocaml", "ocaml 3.10-compatible GC"); |
Shih-wei Liao | e264f62 | 2010-02-10 11:10:31 -0800 | [diff] [blame] | 30 | |
Stephen Hines | ebe69fe | 2015-03-23 12:10:34 -0700 | [diff] [blame^] | 31 | void llvm::linkOcamlGC() {} |
Shih-wei Liao | e264f62 | 2010-02-10 11:10:31 -0800 | [diff] [blame] | 32 | |
| 33 | OcamlGC::OcamlGC() { |
| 34 | NeededSafePoints = 1 << GC::PostCall; |
| 35 | UsesMetadata = true; |
| 36 | } |