From 68ce22adad85ff1ea04455b466f656ea6b175a5f Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 17 Aug 2008 12:12:30 +0200
Subject: LLVM compiler: Implement QUOTE.

---
 MLKLLVMCompiler.mm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/MLKLLVMCompiler.mm b/MLKLLVMCompiler.mm
index 3b011d5..7767d48 100644
--- a/MLKLLVMCompiler.mm
+++ b/MLKLLVMCompiler.mm
@@ -601,3 +601,14 @@ static Constant
   return value;
 }
 @end
+
+
+@implementation MLKQuoteForm (MLKLLVMCompilation)
+-(Value *) processForLLVM
+{
+  return builder.CreateIntToPtr (ConstantInt::get(Type::Int64Ty,
+                                                  (uint64_t)_quotedData,
+                                                  false),
+                                 PointerTy);
+}
+@end
-- 
cgit v1.2.3