|
@@ -15,13 +15,15 @@
|
|
|
|
|
|
unit objcbase;
|
|
unit objcbase;
|
|
|
|
|
|
-{$ifdef FPC_HAS_FEATURE_OBJECTIVEC1}
|
|
|
|
|
|
+interface
|
|
|
|
+
|
|
|
|
+{$ifndef FPC_HAS_FEATURE_OBJECTIVEC1}
|
|
|
|
+{$error ObjectiveC1 feature is not supported or not enabled.}
|
|
|
|
+{$endif}
|
|
|
|
|
|
{$modeswitch objectivec1}
|
|
{$modeswitch objectivec1}
|
|
{$packrecords c}
|
|
{$packrecords c}
|
|
|
|
|
|
-interface
|
|
|
|
-
|
|
|
|
uses
|
|
uses
|
|
ctypes;
|
|
ctypes;
|
|
|
|
|
|
@@ -255,14 +257,4 @@ type
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
-{$else }
|
|
|
|
-
|
|
|
|
-interface
|
|
|
|
-
|
|
|
|
-implementation
|
|
|
|
-
|
|
|
|
-{$endif}
|
|
|
|
-
|
|
|
|
end.
|
|
end.
|
|
-
|
|
|
|
-
|
|
|