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

codetools: use camelcase for system unit under Delphi, make ExpressionTypeDescNames a var, patch #28648 from Ondrej Pokorny

Browse Source 
git-svn-id: trunk@49796 -
This commit is contained in:
mattias 2015-09-09 11:16:09 +00:00
parent d0a5c5a338
commit 8d32bb263f
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/finddeclarationtool.pas
View File

@ -261,7 +261,7 @@ type
// Do not define: TExpressionTypeDescs = set of TExpressionTypeDesc;
// There are too many enums, so the set would be big and slow
const
var
ExpressionTypeDescNames: array[TExpressionTypeDesc] of string = (
'None',
'Context',
@ -307,6 +307,7 @@ const
'Nil'
);
const
xtAllTypes = [Low(TExpressionTypeDesc)..High(TExpressionTypeDesc)]-[xtNone];
xtAllPredefinedTypes = xtAllTypes-[xtContext];
xtAllIdentTypes = xtAllTypes - [xtConstOrdInteger,xtConstBoolean,xtConstReal,xtConstString,xtConstSet,xtCompilerFunc,xtNil];

8
components/codetools/linkscanner.pas
View File

@ -54,6 +54,10 @@ uses
// LazUtils
LazFileUtils, LazUtilities, LazDbgLog;
var
FPCSystemUnitName: String = 'system';
DelphiSystemUnitName: String = 'System';
const
PascalCompilerDefine = ExternalMacroStart+'Compiler';
MacroUseHeapTrc = ExternalMacroStart+'UseHeapTrcUnit';
@ -2851,9 +2855,9 @@ begin
if FHiddenUsedUnits='' then begin
// see fpc/compiler/pmodules.pp loaddefaultunits
if PascalCompiler=pcDelphi then
FHiddenUsedUnits:='System'
FHiddenUsedUnits:=DelphiSystemUnitName
else
FHiddenUsedUnits:='system';
FHiddenUsedUnits:=FPCSystemUnitName;
if InitialValues.IsDefined('VER1_0')
then begin
if InitialValues.IsDefined('LINUX') then