瀏覽代碼

* avoid hint about uninitialized variable for compiler generated label jump buffer in macpas mode, resolves #17842

git-svn-id: trunk@16311 -
florian 14 年之前
父節點
當前提交
d25b6f44f0
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      compiler/pdecl.pas

+ 2 - 0
compiler/pdecl.pas

@@ -298,6 +298,8 @@ implementation
                         insertbssdata(tstaticvarsym(labelsym.jumpbuf));
                       end;
                     include(labelsym.jumpbuf.symoptions,sp_internal);
+                    { the buffer will be setup later, but avoid a hint }
+                    tabstractvarsym(labelsym.jumpbuf).varstate:=vs_written;
                   end;
                 consume(token);
              end;