paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 05:39:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: cleanup

Browse Source 
git-svn-id: trunk@16490 -
This commit is contained in:
paul 2010-12-01 08:19:32 +00:00
parent 668cd1f3c0
commit 37179a6558
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/psub.pas
View File

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

2
compiler/ptype.pas
View File

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