From 571a753616edf328bfe0271fc8579fae0ba7a63b Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 7 Jan 2010 18:16:20 +0000 Subject: * unified names of system_*/systems_* sets git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14566 3ad0048d-3df7-0310-abae-a5850022a9f2 --- compiler/objcutil.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'compiler/objcutil.pas') diff --git a/compiler/objcutil.pas b/compiler/objcutil.pas index 9ec66b3947..6ff9b1b811 100644 --- a/compiler/objcutil.pas +++ b/compiler/objcutil.pas @@ -150,7 +150,7 @@ end; {$if defined(onlymacosx10_6) or defined(arm) } { NOTE: those send2 methods are only available on Mac OS X 10.6 and later! (but also on all iPhone SDK revisions we support) } - if (target_info.system in system_objc_nfabi) then + if (target_info.system in systems_objc_nfabi) then result:=cloadvmtaddrnode.create(ctypenode.create(tobjectdef(tclassrefdef(def).pointeddef).childof)) else {$endif onlymacosx10_6 or arm} @@ -181,7 +181,7 @@ end; NOTE: those send2 methods are only available on Mac OS X 10.6 and later! (but also on all iPhone SDK revisions we support) } - if not(target_info.system in system_objc_nfabi) then + if not(target_info.system in systems_objc_nfabi) then {$endif onlymacosx10_6 or arm} result:=objcloadbasefield(result,'SUPERCLASS'); typecheckpass(result); @@ -870,7 +870,7 @@ end; procedure exportobjcclass(def: tobjectdef); begin - if (target_info.system in system_objc_nfabi) then + if (target_info.system in systems_objc_nfabi) then begin { export class and metaclass symbols } exportname(def.rtti_mangledname(objcclassrtti),0); -- cgit v1.2.1