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 unused variable

git-svn-id: trunk@37757 -
svenbarth 7 years ago
parent
28640ba350
commit
68c7308de3
1 changed files with 0 additions and 1 deletions
Unified View Show Diff Stats
  1. 0 1
      packages/rtl-objpas/src/inc/rtti.pp

+ 0 - 1
packages/rtl-objpas/src/inc/rtti.pp
View File 

@@ -758,7 +758,6 @@ end;
 
 
 
 function TRttiPool.GetType(ATypeInfo: PTypeInfo): TRttiType;
 
 function TRttiPool.GetType(ATypeInfo: PTypeInfo): TRttiType;
 
 var
 
 var
 
-  i: integer;
 
   obj: TRttiObject;
 
   obj: TRttiObject;
 
 begin
 
 begin
 
   if not Assigned(ATypeInfo) then
 
   if not Assigned(ATypeInfo) then