|
@@ -170,7 +170,7 @@ const
|
|
'PrefixedAttributes',
|
|
'PrefixedAttributes',
|
|
'IgnoreAttributes',
|
|
'IgnoreAttributes',
|
|
'OmitRTTI',
|
|
'OmitRTTI',
|
|
- 'MultipleScopeHelpers'
|
|
|
|
|
|
+ 'MultiHelpers'
|
|
);
|
|
);
|
|
|
|
|
|
PCUDefaultBoolSwitches: TBoolSwitches = [
|
|
PCUDefaultBoolSwitches: TBoolSwitches = [
|
|
@@ -1385,8 +1385,10 @@ begin
|
|
msISOLikeMod: Result:=43;
|
|
msISOLikeMod: Result:=43;
|
|
msExternalClass: Result:=44;
|
|
msExternalClass: Result:=44;
|
|
msPrefixedAttributes: Result:=45;
|
|
msPrefixedAttributes: Result:=45;
|
|
- // msIgnoreInterfaces: Result:=46;
|
|
|
|
|
|
+ // was: msIgnoreInterfaces: Result:=46;
|
|
msIgnoreAttributes: Result:=47;
|
|
msIgnoreAttributes: Result:=47;
|
|
|
|
+ msOmitRTTI: Result:=48;
|
|
|
|
+ msMultiHelpers: Result:=49;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
@@ -4892,6 +4894,8 @@ begin
|
|
begin
|
|
begin
|
|
s:=Names[i];
|
|
s:=Names[i];
|
|
Found:=false;
|
|
Found:=false;
|
|
|
|
+ if (FileVersion<5) and (SameText(s,'multiplescopehelpers')) then
|
|
|
|
+ s:=PCUModeSwitchNames[msMultiHelpers];
|
|
for f in TModeSwitch do
|
|
for f in TModeSwitch do
|
|
if s=PCUModeSwitchNames[f] then
|
|
if s=PCUModeSwitchNames[f] then
|
|
begin
|
|
begin
|