Objective-C layer: Add function objcl_objc2_p.

darcs-hash:e9c9605cc47cc04e36e2ba9e60f76aea097e77bd

2 files changed, 14 insertions, 0 deletions

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)
 {