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

codetools: identifier completion: updated list of directives

Browse Source 
git-svn-id: trunk@47932 -
This commit is contained in:
mattias 2015-02-21 09:06:14 +00:00
parent 6025925c8a
commit 04d81bf59c
1 changed files with 57 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
components/codetools/identcompletiontool.pas
View File

@ -2108,38 +2108,61 @@ begin
and (CursorPos.X<=InnerStart+GetIdentLen(@Line[InnerStart])))
then begin
// at start of directive
// see fpc/compiler/scandir.pas
// see fpc/compiler/scandir.pas (incomplete list, e.g. Define is missing there)
AddKeyWord('A1');
AddKeyWord('A2');
AddKeyWord('A4');
AddKeyWord('A8');
AddKeyWord('Align');
AddKeyWord('AlignAssertions');
AddKeyWord('AppID');
AddKeyWord('AppName');
AddKeyWord('AppType');
AddKeyWord('AsmMode');
AddKeyWord('Assertions');
AddKeyWord('BitPacking');
AddKeyWord('BoolEval');
AddKeyWord('Calling');
AddKeyWord('CheckLowAddrLoads');
AddKeyWord('CheckPointer');
AddKeyWord('CodeAlign');
AddKeyWord('Codepage');
AddKeyWord('COperators');
AddKeyWord('Copyright');
AddKeyWord('D');
AddKeyWord('DebugInfo');
AddKeyWord('Define');
AddKeyWord('Description');
AddKeyWord('ElIfC');
AddKeyWord('Else');
AddKeyWord('ElseC');
AddKeyWord('ElseIf');
AddKeyWord('EndC');
AddKeyWord('EndIf');
AddKeyWord('EndRegion');
AddKeyWord('Error');
AddKeyWord('ErrorC');
AddKeyWord('ExtendedSyntax');
AddKeyWord('ExternalSym');
AddKeyWord('F');
AddKeyWord('Fatal');
AddKeyWord('FPUType');
AddKeyWord('FrameworkPath');
AddKeyWord('Goto');
AddKeyWord('Hint');
AddKeyWord('Hints');
AddKeyWord('HPPEmit');
AddKeyWord('HugeCode');
AddKeyWord('HugePointerArithmetikNormalization');
AddKeyWord('HugePointerComparisonNormalization');
AddKeyWord('HugePointerNormalization');
AddKeyWord('IEEEErrors');
AddKeyWord('IfC');
AddKeyWord('IfDef');
AddKeyWord('IfEnd');
AddKeyWord('IfNDef');
AddKeyWord('IfOpt');
AddKeyWord('ImageBase');
AddKeyWord('ImplicitExceptions');
AddKeyWord('Include');
AddKeyWord('IncludePath');
@ -2147,15 +2170,22 @@ begin
AddKeyWord('Inline');
AddKeyWord('Interfaces');
AddKeyWord('IOChecks');
AddKeyWord('L');
AddKeyWord('LibExport');
AddKeyWord('LibraryPath');
AddKeyWord('Link');
AddKeyWord('LinkFramework');
AddKeyWord('LinkLib');
AddKeyWord('LocalSymbols');
AddKeyWord('LongStrings');
AddKeyWord('M');
AddKeyWord('Macro');
AddKeyWord('MaxFPURegisters');
AddKeyWord('MaxStackSize');
AddKeyWord('Memory');
AddKeyWord('Message');
AddKeyWord('MinEnumSize');
AddKeyWord('MinFPConstPrec');
AddKeyWord('MMX');
AddKeyWord('Mode');
AddKeyWord('ModeSwitch');
@ -2163,32 +2193,55 @@ begin
AddKeyWord('Note');
AddKeyWord('Notes');
AddKeyWord('ObjectChecks');
AddKeyWord('ObjectPath');
AddKeyWord('OpenStrings');
AddKeyWord('Optimization');
AddKeyWord('Output_Format');
AddKeyWord('OV');
AddKeyWord('OverflowChecks');
AddKeyWord('PackEnum');
AddKeyWord('PackEecords');
AddKeyWord('PackRecords');
AddKeyWord('PackSet');
AddKeyWord('PIC');
AddKeyWord('PointerMath');
AddKeyWord('Pop');
AddKeyWord('Profile');
AddKeyWord('Push');
AddKeyWord('R');
AddKeyWord('RangeChecks');
AddKeyWord('ReferenceInfo');
AddKeyWord('Region');
AddKeyWord('Resource');
AddKeyWord('SafeFPUExceptions');
AddKeyWord('Saturation');
AddKeyWord('ScopedEnums');
AddKeyWord('ScreenName');
AddKeyWord('SetC');
AddKeyWord('SetPEFlags');
AddKeyWord('SetPEOptFlags');
AddKeyWord('SmartLink');
AddKeyWord('StackFrames');
AddKeyWord('Stop');
AddKeyWord('Threading');
AddKeyWord('TypeAddress');
AddKeyWord('StringChecks');
AddKeyWord('Syscall');
AddKeyWord('TargetSwitch');
AddKeyWord('ThreadName');
AddKeyWord('TypedAddress');
AddKeyWord('TypeInfo');
AddKeyWord('UnDef');
AddKeyWord('UnitPath');
AddKeyWord('VarParaCopyOutCheck');
AddKeyWord('VarPropSetter');
AddKeyWord('VarStringChecks');
AddKeyWord('Wait');
AddKeyWord('Warn');
AddKeyWord('Warning');
AddKeyWord('Warnings');
AddKeyWord('WeakPackageUnit');
AddKeyWord('WriteableConst'); // unusual spelling in fpc
AddKeyWord('Z1');
AddKeyWord('Z2');
AddKeyWord('Z4');
AddKeyWord('ZeroBasedStrings');
end else if InnerStart<=length(Line) then begin
// in parameter of directive