paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 18:40:33 +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('FOR',{$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('IF',{$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];
AVLNode:=NeededPointerTypes.FindKey(Identifier,
@CompareImplicitTypeStringAndName);
//DebugLn(['AddNeededPointerType ',GetIdentifier(Identifier),' Position=',Position,' Count=',Count]);
DebugLn(['AddNeededPointerType ',GetIdentifier(Identifier),' Position=',Position,' Count=',Count]);
if AVLNode<>nil then begin
Item:=TImplicitType(AVLNode.Data);
if Item.MaxPosition<Count then