* do not mess with the global symbol when compiling the implementation part of a unit

git-svn-id: trunk@29810 -

compiler/symdef.pas

@@ -1168,7 +1168,7 @@ implementation
             if not assigned(current_module.ansistrdef) then
               begin
                 { if we did not create it yet we need to do this now }
-                if current_module.is_unit then
+                if current_module.in_interface then
                   symtable:=current_module.globalsymtable
                 else
                   symtable:=current_module.localsymtable;
@@ -1644,6 +1644,8 @@ implementation
                insertstack:=insertstack^.next;
              if not assigned(insertstack) then
                internalerror(200602044);
+             if insertstack^.symtable.sealed then
+               internalerror(2015022301);
              insertstack^.symtable.insertdef(self);
            end;
       end;
@@ -3099,6 +3101,7 @@ implementation
       begin
         inherited create(pointerdef,def);
         has_pointer_math:=cs_pointermath in current_settings.localswitches;
+        // Dump_Stack(Output,get_frame);
       end;