Merge branch 'alternativ_solution_for_arraydefs' into 'main'

Browser information for advanced records with floats (alternative solution)

See merge request freepascal.org/fpc/source!940

compiler/browcol.pas

@@ -272,9 +272,7 @@ implementation
 
 uses
   globtype,globals,comphook,constexp,
-{$ifdef DEBUG}
   verbose,
-{$endif DEBUG}
   finput,fmodule,
   crefs,cpuinfo,cgbase,
   aasmbase,aasmtai,aasmdata,paramgr,
@@ -1764,6 +1762,8 @@ var
   ifile: sizeint;
 begin
   DisposeBrowserCol;
+  if not assigned(current_module.arraydefs) then
+    InternalError(2025021001);
   if (cs_browser in current_settings.moduleswitches) then
     NewBrowserCol;
   hp:=tmodule(loaded_units.first);

compiler/ctask.pas

@@ -282,6 +282,11 @@ begin
     parsing_done(m);
     if m.is_initial and not m.is_unit then
       m.state:=ms_processed;
+    end
+  else if (m.state=ms_processed) and m.is_initial and not m.is_unit then
+    begin
+      parsing_done(m);
+      m.state:=ms_processed;
     end;
   Result:=m.state=ms_processed;
   {$IFDEF DEBUG_CTASK}

compiler/fmodule.pas

@@ -1280,8 +1280,9 @@ implementation
         localmacrosymtable:=nil;
         ptrdefs.free;
         ptrdefs:=nil;
+        { keep arraydefs for symbol browser needs
         arraydefs.free;
-        arraydefs:=nil;
+        arraydefs:=nil;}
         procaddrdefs.free;
         procaddrdefs:=nil;
 {$ifdef llvm}

compiler/parser.pas

@@ -62,13 +62,13 @@ implementation
 
     begin
 
-       module.end_of_parsing;
-
        if (module.is_initial) and
           (status.errorcount=0) then
          { Write Browser Collections }
          do_extractsymbolinfo;
 
+       module.end_of_parsing;
+
        // olddata.restore(false);
 
        { Restore all locally modified warning messages }
@@ -520,8 +520,6 @@ implementation
            // if (module.is_initial) and not finished then
            //  internalerror(2012091901);
          finally
-            if finished then
-              parsing_done(module);
          end;
     end;