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

codetools: fix ShowCodeContext for predefined functions

Browse Source 
git-svn-id: trunk@51386 -
This commit is contained in:
ondrej 2016-01-23 15:17:03 +00:00
parent 0ce59a4f03
commit 6fe2a8440e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/identcompletiontool.pas
View File

@ -2911,7 +2911,10 @@ var
or IsPointedSystem
or UpAtomIs('BEGIN')
or UpAtomIs('TRY') or UpAtomIs('FINALLY') or UpAtomIs('EXCEPT')
or UpAtomIs('REPEAT') or UpAtomIs('ASM') then begin
or UpAtomIs('ASM')
or UpAtomIs('REPEAT') or UpAtomIs('UNTIL') or UpAtomIs('WHILE') or UpAtomIs('DO')
or UpAtomIs('IF') or UpAtomIs('THEN') or UpAtomIs('ELSE')
then begin
// see fpc/compiler/psystem.pp
AddCompilerProc('Assert','Condition:Boolean;const Message:String');
AddCompilerProc('Assigned','P:Pointer','Boolean');