+ improvement on the usebrowser part

(does not work correctly for now)

compiler/parser.pas

@@ -303,6 +303,8 @@ unit parser;
 {!!! No check for unused macros yet !!! }
          dispose(macros,done);
 
+         if (compile_level>1) then
+           begin
               { restore scanner }
               c:=oldc;
               pattern:=oldpattern;
@@ -328,15 +330,11 @@ unit parser;
               resourcesection:=oldresource;
               rttilist:=oldrttilist;
               { restore symtable state }
-         if (compile_level>1) then
-           begin
               refsymtable:=oldrefsymtable;
               symtablestack:=oldsymtablestack;
-           end;
               macros:=oldmacros;
               aktprocsym:=oldaktprocsym;
               procprefix:=oldprocprefix;
-       { restore current state }
               aktlocalswitches:=oldaktlocalswitches;
               aktmoduleswitches:=oldaktmoduleswitches;
               aktpackrecords:=oldaktpackrecords;
@@ -344,7 +342,7 @@ unit parser;
               aktoptprocessor:=oldaktoptprocessor;
               aktasmmode:=oldaktasmmode;
               aktfilepos:=oldaktfilepos;
-
+           end;
        { Shut down things when the last file is compiled }
          if (compile_level=1) then
           begin
@@ -359,9 +357,7 @@ unit parser;
             if cs_browser in aktmoduleswitches then
              begin
                Message1(parser_i_writing_browser_log,Browse.Fname);
-               Browse.CreateLog;
                write_browser_log;
-               Browse.CloseLog;
              end;
 {$endif UseBrowser}
           end;
@@ -372,7 +368,11 @@ unit parser;
 end.
 {
   $Log$
-  Revision 1.44  1998-09-10 15:25:34  daniel
+  Revision 1.45  1998-09-18 08:01:35  pierre
+    + improvement on the usebrowser part
+      (does not work correctly for now)
+
+  Revision 1.44  1998/09/10 15:25:34  daniel
   + Added maxheapsize.
   * Corrected semi-bug in calling the assembler and the linker
 

compiler/pmodules.pas

@@ -178,10 +178,11 @@ unit pmodules;
       var
         pu           : pused_unit;
         loaded_unit  : pmodule;
-        nextmapentry : longint;
+        nextmapentry,firstimplementation : longint;
       begin
       { init the map }
         new(current_module^.map);
+        fillchar(current_module^.map^,sizeof(tunitmap),#0);
         nextmapentry:=1;
       { load the used units from interface }
         pu:=pused_unit(current_module^.used_units.first);
@@ -209,6 +210,7 @@ unit pmodules;
             end;
            pu:=pused_unit(pu^.next);
          end;
+        firstimplementation:=nextmapentry;
       { ok, now load the unit }
         current_module^.symtable:=new(punitsymtable,loadasunit);
       { if this is the system unit insert the intern symbols }
@@ -239,15 +241,22 @@ unit pmodules;
                  current_module^.do_compile:=true;
                  exit;
                end;
+{$endif TEST_IMPL}
             { setup the map entry for deref }
               current_module^.map^[nextmapentry]:=loaded_unit^.symtable;
               inc(nextmapentry);
               if nextmapentry>maxunits then
                Message(unit_f_too_much_units);
-{$endif TEST_IMPL}
             end;
            pu:=pused_unit(pu^.next);
          end;
+{$ifdef UseBrowser}
+        if cs_browser in aktmoduleswitches then
+          begin
+             punitsymtable(current_module^.symtable)^.
+               load_implementation_refs(firstimplementation);
+          end;
+{$endif UseBrowser}
         { remove the map, it's not needed anymore }
         dispose(current_module^.map);
         current_module^.map:=nil;
@@ -916,7 +925,11 @@ unit pmodules;
 end.
 {
   $Log$
-  Revision 1.48  1998-09-09 15:33:07  peter
+  Revision 1.49  1998-09-18 08:01:36  pierre
+    + improvement on the usebrowser part
+      (does not work correctly for now)
+
+  Revision 1.48  1998/09/09 15:33:07  peter
     * fixed in_global to allow directives also after interface token
 
   Revision 1.47  1998/09/09 11:50:55  pierre

compiler/ppu.pas

@@ -58,6 +58,8 @@ const
   ibdbxcount       = 9;
   ibsymref         = 10;
   ibdefref         = 11;
+  ibendsymtablebrowser = 12;
+  ibbeginsymtablebrowser = 13;
   {syms}
   ibtypesym       = 20;
   ibprocsym       = 21;
@@ -770,7 +772,11 @@ end;
 end.
 {
   $Log$
-  Revision 1.11  1998-09-11 15:16:47  peter
+  Revision 1.12  1998-09-18 08:01:37  pierre
+    + improvement on the usebrowser part
+      (does not work correctly for now)
+
+  Revision 1.11  1998/09/11 15:16:47  peter
     * merge fixes
 
   Revision 1.10.2.1  1998/09/11 15:15:04  peter

compiler/symsym.inc

@@ -1545,8 +1545,6 @@
 {$ifdef UseBrowser}
 
     procedure ttypesym.load_references;
-      var
-        prdef : pdef;
       begin
          inherited load_references;
          if (definition^.deftype=recorddef) then
@@ -1556,10 +1554,21 @@
       end;
 
     procedure ttypesym.write_references;
-      var
+      begin
-        prdef : pdef;
+        if lastwritten<>lastref then
           begin
              inherited write_references;
+          end
+         { write address of this symbol if record or object
+           even if no real refs are there
+           because we need it for the symtable }
+         else if (definition^.deftype=recorddef) or
+                 (definition^.deftype=objectdef) then
+          begin
+             writesymref(@self);
+             current_ppu^.writeentry(ibsymref);
+          end;
+             
          if (definition^.deftype=recorddef) then
             precdef(definition)^.symtable^.write_browser;
          if (definition^.deftype=objectdef) then
@@ -1646,7 +1655,11 @@
 
 {
   $Log$
-  Revision 1.42  1998-09-07 19:33:25  florian
+  Revision 1.43  1998-09-18 08:01:38  pierre
+    + improvement on the usebrowser part
+      (does not work correctly for now)
+
+  Revision 1.42  1998/09/07 19:33:25  florian
     + some stuff for property rtti added:
        - NameIndex of the TPropInfo record is now written correctly
        - the DEFAULT/NODEFAULT keyword is supported now