f527d42d1c
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@738 8e941d3f-bd1b-0410-a28a-d453659cc2b4
30 lines
480 B
ObjectPascal
30 lines
480 B
ObjectPascal
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.
|
|
|