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

codetools: fix PREC->PRED function name typo.

Browse Source 
git-svn-id: trunk@51354 -
This commit is contained in:
ondrej 2016-01-20 13:52:32 +00:00
parent 696ae12a21
commit c91dcd1309
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/finddeclarationtool.pas
View File

@ -9469,11 +9469,11 @@ begin
if not AtomIsChar('(') then
exit;
ParamList:=CreateParamExprListFromStatement(CurPos.StartPos,Params);
if (CompareIdentifiers(IdentPos,'PREC')=0)
if (CompareIdentifiers(IdentPos,'PRED')=0)
or (CompareIdentifiers(IdentPos,'SUCC')=0)
or (CompareIdentifiers(IdentPos,'DEFAULT')=0)
then begin
// the DEFAULT, PREC and SUCC of a expression has the same type as the expression
// the DEFAULT, PRED and SUCC of a expression has the same type as the expression
if ParamList.Count<>1 then exit;
Result:=ParamList.Items[0];
end

2
components/codetools/keywordfunclists.pas
View File

@ -1720,7 +1720,7 @@ begin
Add('NIL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('ORD' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('POINTER' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('PREC' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('PRED' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('QWORD' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('REAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SHORTSTRING',{$ifdef FPC}@{$endif}AllwaysTrue);