Quellcode durchsuchen

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

git-svn-id: trunk@16311 -
florian vor 14 Jahren
Ursprung
Commit
d25b6f44f0
1 geänderte Dateien mit 2 neuen und 0 gelöschten Zeilen
  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;