Преглед на файлове

* 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;