paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:40:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: renamed cmsBlocks to cmsCBlocks, because less confusing

Browse Source 
git-svn-id: trunk@54831 -
This commit is contained in:
mattias 2017-05-08 11:53:32 +00:00
parent fb914a4a21
commit 497a08de97
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/linkscanner.pas
View File

@ -198,7 +198,7 @@ type
ansistring; similarly, char becomes unicodechar rather than ansichar }
cmsTypeHelpers, { allows the declaration of "type helper" (non-Delphi) or "record helper"
(Delphi) for primitive types }
cmsBlocks, { support for http://en.wikipedia.org/wiki/Blocks_(C_language_extension) }
cmsCBlocks, { support for http://en.wikipedia.org/wiki/Blocks_(C_language_extension) }
cmsISOlike_IO, { I/O as it required by an ISO compatible compiler }
cmsISOLike_Program_Para, { program parameters as it required by an ISO compatible compiler }
cmsISOLike_Mod, { mod operation as it is required by an iso compatible compiler }
@ -3148,7 +3148,7 @@ begin
FHiddenUsedUnits:=FHiddenUsedUnits+',ISO7185';
if (CompilerMode=cmExtPas) then
FHiddenUsedUnits:=FHiddenUsedUnits+',ISO7185,ExtPas';
if (cmsBlocks in CompilerModeSwitches) and (PascalCompiler=pcFPC) then
if (cmsCBlocks in CompilerModeSwitches) and (PascalCompiler=pcFPC) then
FHiddenUsedUnits:=FHiddenUsedUnits+',BlockRTL';
if (cmsDefault_unicodestring in CompilerModeSwitches) then
FHiddenUsedUnits:=FHiddenUsedUnits+',UUChar';

2
components/codetools/pascalparsertool.pas
View File

@ -4687,7 +4687,7 @@ end;
function TPascalParserTool.KeyWordFuncTypeReferenceTo: boolean;
begin
if (cmsBlocks in Scanner.CompilerModeSwitches)
if (cmsCBlocks in Scanner.CompilerModeSwitches)
or (Scanner.PascalCompiler=pcPas2js) then begin
CreateChildNode;
CurNode.Desc:=ctnReferenceTo;