Răsfoiți Sursa

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

git-svn-id: trunk@16311 -
florian 14 ani în urmă
părinte
comite
d25b6f44f0
1 a modificat fișierele cu 2 adăugiri și 0 ștergeri
  1. 2 0
      compiler/pdecl.pas

+ 2 - 0
compiler/pdecl.pas

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