From a115ef0d3cfab649b0bb74799eba6896e6b44f21 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 29 Jan 2008 20:55:24 +0100
Subject: Objective-C layer: Add function objcl_objc2_p.

darcs-hash:e9c9605cc47cc04e36e2ba9e60f76aea097e77bd
---
 Objective-C/libobjcl.h |  3 +++
 Objective-C/libobjcl.m | 11 +++++++++++
 2 files changed, 14 insertions(+)

(limited to 'Objective-C')

diff --git a/Objective-C/libobjcl.h b/Objective-C/libobjcl.h
index e5a70f1..9008c9e 100644
--- a/Objective-C/libobjcl.h
+++ b/Objective-C/libobjcl.h
@@ -104,6 +104,9 @@ objcl_get_no (void);
 const char *
 objcl_get_runtime_type (void);
 
+int
+objcl_objc2_p (void);
+
 long
 objcl_sizeof_type (const char *typespec);
 
diff --git a/Objective-C/libobjcl.m b/Objective-C/libobjcl.m
index 58baf67..3fc2300 100644
--- a/Objective-C/libobjcl.m
+++ b/Objective-C/libobjcl.m
@@ -331,6 +331,17 @@ objcl_get_runtime_type (void)
 }
 
 
+int
+objcl_objc2_p (void)
+{
+#ifdef __OBJC2__
+  return 1;
+#else
+  return 0;
+#endif
+}
+
+
 long
 objcl_sizeof_type (const char *typespec)
 {
-- 
cgit v1.2.3