From 2fa739f729354c983d245dfa4519694b7ec96db5 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Wed, 18 Sep 2013 05:24:19 +0000
Subject: [PATCH] compiler: remove unneeded push/pop to symtablestack

git-svn-id: trunk@25518 -
---
 compiler/pmodules.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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