compiler: cleanup

git-svn-id: trunk@16490 -

compiler/psub.pas

@@ -806,9 +806,7 @@ implementation
         old_current_procinfo : tprocinfo;
         oldmaxfpuregisters : longint;
         oldfilepos : tfileposinfo;
-        old_current_objectdef,
-        old_current_genericdef,
-        old_current_specializedef : tobjectdef;
+        old_current_objectdef : tobjectdef;
         templist : TAsmList;
         headertai : tai;
         i : integer;

compiler/ptype.pas

@@ -305,7 +305,7 @@ implementation
             item:=oldsymtablestack.stack;
             while assigned(item) and (item^.symtable.symtablelevel>main_program_level) do
               item:=item^.next;
-            if assigned(item) then
+            if assigned(item) and (item^.symtable<>symtablestack.top) then
               symtablestack.push(item^.symtable);
 
             { Reparse the original type definition }