paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 18:50:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: identifier completion: fixed typo

Browse Source 
git-svn-id: trunk@42040 -
This commit is contained in:
mattias 2013-07-09 19:34:27 +00:00
parent 426618ab08
commit bba30188f8
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/identcompletiontool.pas
View File

@ -2135,7 +2135,7 @@ begin
AddKeyWord('Calling');
AddKeyWord('CheckPointer');
AddKeyWord('CodeAlign');
AddKeyWord('COerators');
AddKeyWord('COperators');
AddKeyWord('DebugInfo');
AddKeyWord('Define');
AddKeyWord('ElIfC');

5
components/codetools/linkscanner.pas
View File

@ -3527,16 +3527,17 @@ end;
function TLinkScanner.IncludeDirective: boolean;
// {$i filename} or {$include filename}
// filename can be 'filename with spaces'
var IncFilename: string;
var
IncFilename: string;
DynamicExtension: Boolean;
begin
if StoreDirectives then
FDirectives[FDirectivesCount-1].Kind:=lsdkInclude;
inc(SrcPos);
if (Src[SrcPos]='%') then begin
// ToDo: insert string constant: %date%, %fpcversion%
UpdateCleanedSource(CommentStartPos-1);
// insert ''
// ToDo: insert more useful string constant: %date%, %fpcversion%
if 2>length(FCleanedSrc)-CleanedLen then begin
// expand cleaned source string by at least 1024
SetLength(FCleanedSrc,length(FCleanedSrc)+1024);