paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 18:39:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: set defines when setting modeswitches

Browse Source 
git-svn-id: trunk@54838 -
This commit is contained in:
mattias 2017-05-08 19:01:27 +00:00
parent 09d0b3fa93
commit a2e22134f1
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/codetools/linkscanner.pas
View File

@ -3500,12 +3500,20 @@ begin
if Enable then begin
FCompilerModeSwitches:=FCompilerModeSwitches+Switches;
case ModeSwitch of
cmsDefault_unicodestring: Values.Variables['FPC_UNICODESTRINGS'] := '1';
cmsDefault_unicodestring:
begin
Values.Variables['FPC_UNICODESTRINGS'] := '1';
Values.Variables['UNICODE'] := '1';
end;
end;
end else begin
FCompilerModeSwitches:=FCompilerModeSwitches-Switches;
case ModeSwitch of
cmsDefault_unicodestring: Values.Undefine('FPC_UNICODESTRINGS');
cmsDefault_unicodestring:
begin
Values.Undefine('FPC_UNICODESTRINGS');
Values.Undefine('UNICODE');
end;
end;
end;
exit;
@ -4551,13 +4559,27 @@ begin
end;
procedure TLinkScanner.SetCompilerMode(const AValue: TCompilerMode);
var
OldModeSwitches, EnabledModeSwitches,
DisabledModeSwitches: TCompilerModeSwitches;
begin
if FCompilerMode=AValue then exit;
Values.Undefine(CompilerModeVars[FCompilerMode]);
FCompilerMode:=AValue;
OldModeSwitches:=FCompilerModeSwitches;
FCompilerModeSwitches:=DefaultCompilerModeSwitches[CompilerMode];
FNestedComments:=cmsNested_comment in CompilerModeSwitches;
Values.Variables[CompilerModeVars[FCompilerMode]]:='1';
EnabledModeSwitches:=FCompilerModeSwitches-OldModeSwitches;
DisabledModeSwitches:=OldModeSwitches-FCompilerModeSwitches;
if cmsDefault_unicodestring in EnabledModeSwitches then begin
Values.Variables['FPC_UNICODESTRINGS'] := '1';
Values.Variables['UNICODE'] := '1';
end else if cmsDefault_unicodestring in DisabledModeSwitches then begin
Values.Undefine('FPC_UNICODESTRINGS');
Values.Undefine('UNICODE');
end;
end;
procedure TLinkScanner.SetPascalCompiler(const AValue: TPascalCompiler);