adding run-time initialization unit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@738 8e941d3f-bd1b-0410-a28a-d453659cc2b4

bindings/objc/MacOSobjcrtl.pas

@@ -0,0 +1,29 @@
+unit MacOSobjcrtl;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  MacOSAll, objcrtl, objcrtl10, objcrtl20;
+
+implementation
+
+procedure InitObjCRunTime;
+var
+  MacVersion : SInt32;
+begin
+  if (Gestalt(gestaltSystemVersionMinor, MacVersion) = noErr) then begin
+    if MacVersion >= 5
+      then InitializeObjcRtl20(DefaultObjCLibName)
+      else InitializeObjcRtl10(DefaultObjCLibName);
+  end else
+    InitializeObjcRtl20(DefaultObjCLibName);
+end;
+
+
+initialization
+  InitObjCRuntime;
+
+end.
+