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

codetools: removed generic from the list of global keywords

Browse Source 
git-svn-id: trunk@14151 -
This commit is contained in:
mattias 2008-02-15 21:57:46 +00:00
parent f2f92d75eb
commit 12698f650c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/keywordfunclists.pas
View File

@ -809,7 +809,7 @@ begin
Add('FINALLY',{$ifdef FPC}@{$endif}AllwaysTrue); Add('FINALLY',{$ifdef FPC}@{$endif}AllwaysTrue);
Add('FOR',{$ifdef FPC}@{$endif}AllwaysTrue); Add('FOR',{$ifdef FPC}@{$endif}AllwaysTrue);
Add('FUNCTION',{$ifdef FPC}@{$endif}AllwaysTrue); Add('FUNCTION',{$ifdef FPC}@{$endif}AllwaysTrue);
Add('GENERIC',{$ifdef FPC}@{$endif}AllwaysTrue); //Add('GENERIC',{$ifdef FPC}@{$endif}AllwaysTrue); can be used as identifier
Add('GOTO',{$ifdef FPC}@{$endif}AllwaysTrue); Add('GOTO',{$ifdef FPC}@{$endif}AllwaysTrue);
Add('IF',{$ifdef FPC}@{$endif}AllwaysTrue); Add('IF',{$ifdef FPC}@{$endif}AllwaysTrue);
Add('IMPLEMENTATION',{$ifdef FPC}@{$endif}AllwaysTrue); Add('IMPLEMENTATION',{$ifdef FPC}@{$endif}AllwaysTrue);

2
components/h2pas/h2pasconvert.pas
View File

@ -4289,7 +4289,7 @@ var
Identifier:=@Tool.Src[Position+Count]; Identifier:=@Tool.Src[Position+Count];
AVLNode:=NeededPointerTypes.FindKey(Identifier, AVLNode:=NeededPointerTypes.FindKey(Identifier,
@CompareImplicitTypeStringAndName); @CompareImplicitTypeStringAndName);
//DebugLn(['AddNeededPointerType ',GetIdentifier(Identifier),' Position=',Position,' Count=',Count]); DebugLn(['AddNeededPointerType ',GetIdentifier(Identifier),' Position=',Position,' Count=',Count]);
if AVLNode<>nil then begin if AVLNode<>nil then begin
Item:=TImplicitType(AVLNode.Data); Item:=TImplicitType(AVLNode.Data);
if Item.MaxPosition<Count then if Item.MaxPosition<Count then