Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

- remove unneeded local variable

git-svn-id: trunk@42386 -
svenbarth 6 years ago
parent
affa9f9d9c
commit
8cd1f1973b
1 changed files with 0 additions and 2 deletions
Unified View Show Diff Stats
  1. 0 2
      rtl/objpas/typinfo.pp

+ 0 - 2
rtl/objpas/typinfo.pp
View File 

@@ -1017,8 +1017,6 @@ begin
 
 end;
 
 end;
 
 
 
 function GetAttribute(AttributeTable: PAttributeTable; AttributeNr: Word): TCustomAttribute;
 
 function GetAttribute(AttributeTable: PAttributeTable; AttributeNr: Word): TCustomAttribute;
 
-var
 
-  AttributeProcList: TAttributeProcList;
 
 begin
 
 begin
 
   if (AttributeTable=nil) or (AttributeNr>=AttributeTable^.AttributeCount) then
 
   if (AttributeTable=nil) or (AttributeNr>=AttributeTable^.AttributeCount) then
 
     result := nil
 
     result := nil