瀏覽代碼

* correctly set the defowner of the exception symtable to the surrounding routine as suggested by Blaise.ru

git-svn-id: trunk@48760 -
svenbarth 4 年之前
父節點
當前提交
c7f4be71dc
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/pstatmnt.pas

+ 1 - 0
compiler/pstatmnt.pas

@@ -991,6 +991,7 @@ implementation
                                sym:=clocalvarsym.create('$exceptsym',vs_value,ot,[]);
                                sym:=clocalvarsym.create('$exceptsym',vs_value,ot,[]);
                             end;
                             end;
                           excepTSymtable:=tstt_excepTSymtable.create;
                           excepTSymtable:=tstt_excepTSymtable.create;
+                          excepTSymtable.defowner:=current_procinfo.procdef;
                           excepTSymtable.insert(sym);
                           excepTSymtable.insert(sym);
                           symtablestack.push(excepTSymtable);
                           symtablestack.push(excepTSymtable);
                        end
                        end