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

compiler: remove unneeded push/pop to symtablestack

Browse Source 
git-svn-id: trunk@25518 -
This commit is contained in:
paul 2013-09-18 05:24:19 +00:00
parent 6aae88578c
commit 2fa739f729
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pmodules.pas
View File

@ -875,7 +875,6 @@ type
addmoduleclass; addmoduleclass;
{$endif} {$endif}
read_interface_declarations; read_interface_declarations;
symtablestack.pop(current_module.globalsymtable);
{ Export macros defined in the interface for macpas. The macros { Export macros defined in the interface for macpas. The macros
are put in the globalmacrosymtable that will only be used by other are put in the globalmacrosymtable that will only be used by other
@ -891,6 +890,7 @@ type
begin begin
Message1(unit_f_errors_in_unit,tostr(Errorcount)); Message1(unit_f_errors_in_unit,tostr(Errorcount));
status.skip_error:=true; status.skip_error:=true;
symtablestack.pop(current_module.globalsymtable);
exit; exit;
end; end;
@ -920,7 +920,6 @@ type
{ Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it } { Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it }
maybe_load_got; maybe_load_got;
symtablestack.push(current_module.globalsymtable);
if not current_module.interface_only then if not current_module.interface_only then
begin begin
consume(_IMPLEMENTATION); consume(_IMPLEMENTATION);