浏览代码

--- Merging r29810 into '.':
U compiler/symdef.pas
--- Recording mergeinfo for merge of r29810 into '.':
U .

# revisions: 29810, adapted manually

git-svn-id: branches/fixes_3_0@31996 -

joost 9 年之前
父节点
当前提交
51163d68fc
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/symdef.pas

+ 2 - 1
compiler/symdef.pas

@@ -1170,7 +1170,7 @@ implementation
             if not assigned(current_module.ansistrdef) then
             if not assigned(current_module.ansistrdef) then
               begin
               begin
                 { if we did not create it yet we need to do this now }
                 { 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
                   symtable:=current_module.globalsymtable
                 else
                 else
                   symtable:=current_module.localsymtable;
                   symtable:=current_module.localsymtable;
@@ -3133,6 +3133,7 @@ implementation
       begin
       begin
         inherited create(pointerdef,def);
         inherited create(pointerdef,def);
         has_pointer_math:=cs_pointermath in current_settings.localswitches;
         has_pointer_math:=cs_pointermath in current_settings.localswitches;
+        // Dump_Stack(Output,get_frame);
       end;
       end;